Ban2020 1

Ouvrir une feuille EXCEL directement depuis un programme PCVUE

gishrek
gishrek
Modérateur
Automaticien amateur

1 message
Inscrit le 27/10/2016

le 27/10/2016 à 14:56 Citer ce message

Bonjour à tous.
Je me permet de publier après de multiple recherche sur le net.
Dans le cadre d'un rapport journalier de compteur, je dois écrire un programme sous PCVUE qui extrait les données en csv ( cette partie fonctionne), ensuite grâce à une macro EXCEL faire une présentation de ce rapport en fonction d'un exemple(cette partie fonctionne également). Le but de ma demande est de faire en sorte que PCVUE ouvre tout simplement le fichier EXCEL qui lui effectura la macro à l'ouverture. j'aurais besoin de la ligne de code qui va bien pour pouvoir ouvrir le fichier EXCEL depuis le programme PCVUE. Je pensais à un fopen() mais je ne connais pas très bien la programmation VB sous PCVUE.
Merci d'avance.
automationsense
automationsense
Modérateur
Automaticien vétéran

482 messages
Inscrit le 28/04/2016

le 27/10/2016 à 15:32 Citer ce message

Bonjour,
Essaies avec ça :

monFichierExcel="C:\\monfichier.xls"; //répertoire du fichier excel

intReturn = APPLICATION("LOAD",monFichierExcel);
Cordialement,
Image

" Travailles pour tes propres rêves sinon quelqu'un d'autres t'embauchera pour réaliser les siens "
Kaniass
Kaniass

le 30/10/2016 à 05:36 Citer ce message

Oui mais attention le problème c'est de savoir quand l'export sera finit.
Je conseille d'utiliser la variable registre de status de l'export et de la mettre en événement pour déclencher le programme scada basic. Si l'export s'est bien passé elle doit être égale a 0.
automationsense
automationsense
Modérateur
Automaticien vétéran

482 messages
Inscrit le 28/04/2016

le 30/10/2016 à 09:33 Citer ce message

Bonjour Kaniass,
Il parvient déjà à exporter les données sur fichier CSV,ce qu'il veut maintenant c'est de pouvoir l'ouvrir depuis PCVUE.Merci de ta remarque.

@gishrek ,dis nous ce que ça a donné de ton coté
Cordialement,
Image

" Travailles pour tes propres rêves sinon quelqu'un d'autres t'embauchera pour réaliser les siens "
automatique72
automatique72
Modérateur
Automaticien amateur

2 messages
Inscrit le 10/07/2016

le 23/11/2016 à 22:54 Citer ce message

bonjour
voici un exemple de programme issue de la démo pcvue.
tu trouvera tous qu'il faut pour formaté une feuille excel et l’ouvrir depuis pcvue.
par contre il faut l'adapter par rapport a ton projet.
si tu travail avec une version 11.1 et plus dans la macro trend il y'a un bouton qui s'appelle "excel" et avec ça tu peut faire des extraction excel et générer des rapport.

Private Sub StartExcel_Click()

Dim MyXl As Object
Dim MyWorkBook As Object
Dim MyTable As Object
Dim FileCsvName As String
Dim FileXlsName As String

On Error GoTo TrapError

'Open csv file
FileCsvName = ThisProject.Path & "\TP\" & [EXTRACT.NOMFIC]
'Set FileSource = fs.OpenTextFile(FileCsvName, 1, 0)
' Target EXCEL file
FileXlsName = ThisProject.Path & "\TP\" & "Export_" & Format(Date, "mmmddyyyy") & "_" & Format(Time, "hhmmss") & ".xls"

'Start Xls
Set MyXl = CreateObject("Excel.Application")

'Create a new Workbook
Set MyWorkBook = MyXl.Workbooks.Add
MyWorkBook.Title = Format(Date, "mmmddyyyy") & "_" & Format(Time, "hhmmss")
MyWorkBook.SaveAs FileName:=FileXlsName
MyXl.Visible = True

' Fill the active worksheet with the text file (comma separated)
Set MyTable = MyXl.ActiveSheet.QueryTables.Add(Connection:="TEXT;" & FileCsvName, Destination:=MyXl.ActiveSheet.Range("A1"))
MyTable.Name = "tab-file"
MyTable.FieldNames = True
MyTable.RowNumbers = False
MyTable.FillAdjacentFormulas = False
MyTable.PreserveFormatting = True
MyTable.RefreshOnFileOpen = False
MyTable.RefreshStyle = 1 'xlInsertDeleteCells
MyTable.SavePassword = False
MyTable.SaveData = True
MyTable.AdjustColumnWidth = True
MyTable.RefreshPeriod = 0
MyTable.TextFilePromptOnRefresh = False
MyTable.TextFilePlatform = 437
MyTable.TextFileStartRow = 1
MyTable.TextFileParseType = 1 'xlDelimited
MyTable.TextFileTextQualifier = 1 ' xlTextQualifierDoubleQuote
MyTable.TextFileConsecutiveDelimiter = False
MyTable.TextFileTabDelimiter = False
MyTable.TextFileSemicolonDelimiter = False
MyTable.TextFileCommaDelimiter = True
MyTable.TextFileSpaceDelimiter = False
MyTable.TextFileColumnDataTypes = Array(1, 1)
MyTable.TextFileTrailingMinusNumbers = True
MyTable.Refresh BackgroundQuery:=False

' Display Excel
MyXl.Visible = True

Set MyXl = Nothing
Set MyWorkBook = Nothing

Exit Sub

TrapError:
MsgBox "Error: Application cannot starts Excel"
'MyWorkBook.Close
Set MyXl = Nothing
Set MyWorkBook = Nothing

End Sub
Kaniass
Kaniass

le 04/12/2016 à 04:22 Citer ce message

@automationsense
Oui, j' ai bien compris. Je voulais juste mettre en lumiere le fait que, si on veut ouvrir automatiquement un fichier Excel a la fin d'1 export alors il faut utiliser la variable de Status car c' est une operation asynchrone.

@automatique72
Ce code est bien pour voir comment manipuler des objets Excel depuis le VBA mais, attention, dans le cadre d' 1 export mieux vaut utiliser la notion de Modele d'export. Ca permet de faire un fichier Exel deja tout pret pour recevoir les donnees d' Export.

@gishrek
Il serait effectivement sympa de dire si ton probleme est resolu!
AUTOMATIQUE72
AUTOMATIQUE72

le 04/12/2016 à 20:14 Citer ce message

bonjour,
merci @automationsense pour tes remarques.
oui, le code que j'ai met si juste pour montrer comment manipuler un objet excel via VBA et de connaitre aussi qlq verbe clés pour cet objet(EXCEL).c'est pourquoi j'ai dit que depuis la 11.1 un objet extraction ou export est inclus dans la macro trend.
sachant que cette option d'export elle est payante (activer dans le dongle pcvue)..

@gishrek
on attend tj ton retour pour ton problème.

Répondre à ce message

Aperçu

7 choses à savoir si Tu débutes en automatisme...

7 choses que tu dois savoir si tu debutes en automatismeCliquez ici pour télécharger le guide PDF

Superv 3