- Accueil /
- Forum automatisme /
- Forum Automatisme industriel /
- Ouvrir une feuille EXCEL directement depuis un programme PCVUE
Ouvrir une feuille EXCEL directement depuis un programme PCVUE
le 27/10/2016 à 14:56 Citer ce message
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.

le 27/10/2016 à 15:32 Citer ce message
Essaies avec ça :
monFichierExcel="C:\\monfichier.xls"; //répertoire du fichier excel
intReturn = APPLICATION("LOAD",monFichierExcel);
le 30/10/2016 à 05:36 Citer ce message
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.

le 30/10/2016 à 09:33 Citer ce message
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é
le 23/11/2016 à 22:54 Citer ce message
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
le 04/12/2016 à 04:22 Citer ce message
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!
le 04/12/2016 à 20:14 Citer ce message
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
Membres connectés
Espace membre
Discutez avec nous en temps réel
Aucun connecté
- automationsense
- 07:34
- automationsense
- 07:38
- ahmedbenarab94
- 15:26
- ahmedbenarab94
- 16:03
- automationsense
- 08:02
- ahmedbenarab94
- 09:31
- sarlfei
- 11:32
- sarlfei
- 11:34
- automationsense
- 21:38
- automationsense
- 21:39
Derniers commentaires
Bonjour ahmed,pouvez-vous faire une capture d'écran de votre configuration sur NettoPLCSIM et me l'e ...
Bravo à vous Obonan koné
merci pour ce QCM il m'a permit de voir ce qu'il faut que je bosse
Sinon , si c'est plus facile d'implémenter cela sur un vrai automate. ca serai bien de me donner une ...
Bonjour je souhait d'avoir l'exclusivité de vos représente en algérie, pour ma société import /export ...
J'utilise la version PLCupd qui me permet de simuler des automate S7 1200 et 1500 avec tia portal V13. ...
Bonjour, j'ai suivi la video de la communication de KepserverEx avec TIA Portal. sauf que je n'arrive ...
Bravo à vous Ragoss
Merci pour le QCM
Bonjour, formation Initiation aux automatismes industriels première semaine faite, Quizz fait, 95% de ...
Merci pour votre retour. En creusant un peu plus le sujet, on se rend compte que la littérature à ce ...
Score : 92% 80 à 100% de bonnes réponses Excellent résultat,vous maitrisez bien les bases des ap ...
Bonjour Romain, une partie opérative est constituée d'actionneurs et d'effecteurs. Les capteurs comme ...
Super QCM ! Merci Question 27, la représentation du sectionneur est incorrecte. J'ai donc répondu Non. ...
Bonjour. Les 3 réponses de la question 5 me semblent correctes. Pourriez vous svp m'expliquer ?
Bonjour
Bonjour , j'ai vu que pour la formation initiation il y avait 2 formation en bonus offerts . Mais vous ...
Bonjour,oui la formation Unity Pro est disponible ici : https://www.automation-sense.com/blog/nos-fo ...
Bravo à toi Yucef, good job !
Bonjour Automationsense J'aimerais savoir si vous faites des formations en ligne pour le logiciel Unity ...
93% c'est bien Let's back to work
Bravo à vous Augustin Waga
Score : 85% 80 à 100% de bonnes réponses Excellent résultat,vous maitrisez bien les bases des ap ...
Merci c'est assez bien pour un début
Bonjour
Bonjour je suis un Electromecanicien marocain et je souhaite travailler chez votre meilleur societe pour ...
Bonjour Sanogo, Si vous êtes en Afrique, vous pouvez nous joindre sur ce numéro : +221 77 553 73 4 ...
Bonjour, je suis en côte d'ivoire, je voulais suivre la formation donc j'ai besoin des instructions à ...
Bonjour ehmdiop9,Merci de nous contacter sur : contact@automation-sense.com
Bonjour j'ai l'intention de faire la formation de tous les modules mais je voudrais commencé avec, ...
85 % j'ai encore a apprendre . amusant vos QCM
Bravo à vous Guillaume2406 !
Merci à vous boudebza
Merci beaucoup pour cette correction et je suis content d'avoir suivi et réussi avec succès cette formation ...
je trouve que votre site est tres utile . surtout qu'il accompagne les debutants qui vienne de disciplines ...
j`aime les questions, c'est assez general bon boulot les gars :)
Bonjour Lamah,oui,vous pouvez payer par Western Union,merci de nous contacter sur ce mail : contact@ ...
Bonjour Prisparfaitkeumejio, nous venons de vous envoyer vos identifiants d'accès à la formation par ...
Bonjour tout dépend de la marque d'automate que vous utilisez.Si vous utilisez du Siemens allez pour ...
Bonjour Hchicha,merci de nous contacter par mail au préalable sur : contact@automation-sense.com
Bonsoir Je suis en guinee j'aimerai suivre la formation en automatisme puis je paye par western union? ...
Rien ne s'affiche
Merci pour les tests
Je precise que j'ai déjà effectué le payement.
Bonjour, je viens de m'inscrire à la formation TIA PORTAL et je n'ai pas encore les cours. Sur mon ...
Bonjour s'il vous plaît je suis dans l'embarras du choix entre Tia Portal et Unity Pro quelques-uns peut ...
Merci pour le QCM.
Bonjour Svp vous pouvez m'envoyer le numéro du responsable pour que je puisse le renseigner. Je vous ...
Bonjour Damien, désolé du retard. Veuillez suivre les procédures décrites sur l'image ci-dessous pour ...
Bonjour Amisi,si vous ne disposez pas de carte bancaire vous pourrez payer si vous êtes par exemple en ...