Macro Excel pour Vijeo-designer

Partie du forum pour tout ce qui concerne les interfaces homme machine ou IHM. Forum, conseil, astuce et entraide sur les interface homme machine ou IHM tels que les magelis, KEP, proface, XBT, .
Répondre
Avatar du membre
itasoft
Mi homme - Mi automate
Mi homme - Mi automate
Messages : 7167
Enregistré le : 20 oct. 2015, 10:15
Localisation : Lyon
Contact :

Macro Excel pour Vijeo-designer

Message par itasoft »

Slts,
Pour un besoin ponctuel, j’ai fais une macro Excel pour télécharger les éléments de l’IHM et les afficher sur une feuille Excel
(Alarmes, recettes, Journalisation) pour traitement ou générer des courbes.
Une fois bien lavé, ça peut resservir, la demander si le besoin s'en fait cruellement sentir, LOL

cliquer dessus pour agrandir la photo
MacroExcel.JPG



Exemple de fonction en VBA pour télécharger les alarmes directement depuis Excel à l’aide de la ligne de commande


Sub Exemple_Telecharger_Elements()
Dim LigneCommande As String
Dim adrsIP As String, lecteur As String, fileNameExe As String, pathCible As String, params As String
Dim RetVal

'Dossier cible
pathCible = "D:\TMP"
'Adresse IP du Magelis
adrsIP = "192.168.1.8"
'Emplacement des données: "Main"=lecteur principal / "Secondary"=Carte mémoire "Optional"=Clef USB
lecteur = "Main"
'Logiciel DataTransferTool
fileNameExe = "C:\Program Files\Schneider Electric\Vijeo-Designer\Vijeo-Frame\DataTransferTool.exe"
'Paramètres pour les Alarmes
params = " -ua -get -" & lecteur & "-remotedatafolder Alarm -localfolder " & pathCible & " -r"


LigneCommande = fileNameExe & " -ip " & adrsIP & params

On Error Resume Next
RetVal = Shell(LigneCommande, 0)
Err.Clear

' Configurer le IHM en Anonyme
' Cible1/Environnement/Securité/Securité du gestionnaire de données=Anonyme

End Sub
Automaticien privé (de tout)
itasoft@free.fr
Répondre