Commande qui actualise un lien DDE sous VBA Excel

Version imprimable

Erreur lors de l'execution d'une macro au demarrage d'excel

Bonjour,

Je suis nouveau sur ce forum et j'aimerais avoir un petit coup de pouce. Je travaille sur un projet ou l'on doit récuperer un signal tout ou rien (0 ou 1) d'un automate sur une feuille excel via liaison DDE. Le but est de générer un CSV toutes les heures et donc de pouvoir exploiter ces données par la suite.
On veut que cela soit automatiser. J'ai donc programmer 3 programme en .bat pour cela (Je sais que c'est hors du sujet du forum mais je les mets au cas ou).
BAT

Code:

1
2
3
4
5
6
7
8
@ECHO OFF
 
 
 
start "" "C:\Users\f.chaloin-externe\Desktop\bat1.bat"
start "" "C:\Users\f.chaloin-externe\Desktop\bat2.bat"
 
exit

BAT1

Code:

1
2
3
4
5
6
7
8
9
10
11
12
@ECHO OFF
 
 
"C:\Users\f.chaloin-externe\Desktop\Original - Copie1.csv"  
 
rem/cmd/macro1  
remC:\Program Files (x86)\Microsoft Office\Office14\XLSTART\Personal.xlam
 
rem "C:\Program Files (x86)\Microsoft Office\Office14\EXCEL.EXE" 
 
 
exit

BAT2

Code:

1
2
3
4
5
6
7
8
@ECHO OFF
 
 
ping -n 15 localhost
 
TASKKILL /f /T /im excel.exe 
 
exit

Voila ma macro:

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
Sub Macro1()
 
 
    Application.AskToUpdateLinks = False
    ActiveWorkbook.UpdateLink Name:=ActiveWorkbook.LinkSources
 
    Range("A1").Select
    ActiveCell.FormulaR1C1 = _
        "=CoDeSys|'C:\Program Files (x86)\WAGO Software\CoDeSys V2.3\Projects\wago.PRO'!PLC_PRG.H1"
    Range("A2").Select
    ActiveCell.FormulaR1C1 = _
        "=CoDeSys|'C:\Program Files (x86)\WAGO Software\CoDeSys V2.3\Projects\wago.PRO'!PLC_PRG.H2"
    Range("A3").Select
    ActiveCell.FormulaR1C1 = _
        "=CoDeSys|'C:\Program Files (x86)\WAGO Software\CoDeSys V2.3\Projects\wago.PRO'!PLC_PRG.H3"
    Range("A4").Select
    ActiveCell.FormulaR1C1 = _
        "=CoDeSys|'C:\Program Files (x86)\WAGO Software\CoDeSys V2.3\Projects\wago.PRO'!PLC_PRG.H4"
    Range("A5").Select
    ActiveCell.FormulaR1C1 = _
        "=CoDeSys|'C:\Program Files (x86)\WAGO Software\CoDeSys V2.3\Projects\wago.PRO'!PLC_PRG.H5"
    Range("A6").Select
    ActiveCell.FormulaR1C1 = _
        "=CoDeSys|'C:\Program Files (x86)\WAGO Software\CoDeSys V2.3\Projects\wago.PRO'!PLC_PRG.H6"
    Range("A7").Select
    ActiveCell.FormulaR1C1 = _
        "=CoDeSys|'C:\Program Files (x86)\WAGO Software\CoDeSys V2.3\Projects\wago.PRO'!PLC_PRG.H7"
    Range("A8").Select
    ActiveCell.FormulaR1C1 = _
        "=CoDeSys|'C:\Program Files (x86)\WAGO Software\CoDeSys V2.3\Projects\wago.PRO'!PLC_PRG.H8"
    Range("A9").Select
 
    Range("A1,A1,A2,A3,A4,A6,A5,A7,A8").Select
    Range("A8").Activate
    Selection.NumberFormat = "@"
    'Application.Wait Now + TimeValue("00:00:05")
 
If Dir("Y:\DMS\Chaloin_Florent\Recuperation\*.csv") <> "" Then
Kill "Y:\DMS\Chaloin_Florent\Recuperation\*.csv"
End If
 
    Range("A1,A2,A3,A4,A5,A6,A7,A8").Select
    Range("A8").Activate
    Selection.Copy
    Workbooks.Add
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Application.CutCopyMode = False
 
 
Dim Chemin As String, Fichier As String
Chemin = "Y:\DMS\Chaloin_Florent\Recuperation\"
'Ajoute la date du jour et l'heure dans le nom du fichier
Fichier = "Données " & Format(Date, "dd-mm-yyyy") & "_" & Format(Time, "hh-mm-ss") & ".csv"
ActiveWorkbook.SaveAs Filename:=Chemin & Fichier, FileFormat:= _
        xlCSV, _
CreateBackup:=False
 
 
 
End Sub

Et donc si je veux exécuter ma macro au démarrage d'excel en la mettant dans le workbook, la macro beug des la première instruction quel qu'elle soit. Je fait debogage et je demarre la macro manuellement et sa marche. Je pense que c'est parce que la macro s'execute avant l'ouverture de la feuille excel.
Voila si quelqu'un as une petite idée même des conseils et dites moi si mon post est incomplet merci beaucoup.

20/06/2013, 15h35
BlueMonkey
Bonjour,

Dans les scripts le seul élément Excel pouvant contenir des macros en en commentaire .

Code:

rem C:\Program Files (x86)\Microsoft Office\Office14\XLSTART\Personal.xlam

Les macros complémentaires .xlam ne sont pas associée à un classeur. Le problème doit venir de là.
Donc place la macro dans un fichier .xlsm, et ouvre ce fichier depuis le script.

Les lignes de codes suivantes ne sont pas très jolies :cry:
Code:

1 2 ping -n 15 localhost TASKKILL /f /T /im excel.exe
Le plus simple serait d'ouvrir le fichier via batch.
Mais une fois que le fichier est ouvert, tu peux faire des pauses et fermer Excel depuis VBA.
(sans tuer la tâche ...) .
20/06/2013, 16h34
flo1312
Merci de votre réponse

Code:

rem C:\Program Files (x86)\Microsoft Office\Office14\XLSTART\Personal.xlam

J'ai essayer sous le format xslm et xlsb et cela ne marche pas c'est pour ça que je préfère lancer ma macro via le workbook.

Oui je sais mes lignes sont moches je suis débutant dans ces deux langages mais du moment que sa marche cela conviendra ;)
Code:

1 2 ping -n 15 localhost TASKKILL /f /T /im excel.exe
La tempo doit se faire sous DOS car cela laisse tout simplement le temps a la macro de s'executer sachant que l'on importe des données dynamiques. En effet la macro suspend également tout excel ce qui ne lui permet pas d'accéder au chemin DDE.
Pour la fermeture auto j'ai eu du mal a obtenir un résultat adaptable n'engendrant pas d'erreur.

Sinon j'avais penser a activé la simulation clavier sous .batch car finalement je dois faire un "entrer" pour le débogage et F5 qui est le raccourci pour le lancement de la macro. Il y a sendkeys, skeys et surtout Autoit 3 qui revient souvent pour faire cela mais je ne sais pas lequel serait le mieux. Pouvez vous me conseillez?
20/06/2013, 19h32
BlueMonkey
Bonsoir,

Citation:

J'ai essayer sous le format xslm et xlsb et cela ne marche pas c'est pour ça que je préfère lancer ma macro via le workbook.

Quel est ce workbook ?
Comme dit, dans les scripts il n'y a aucune ligne qui correspond à l'ouverture d'un workbook.

Citation:

Oui je sais mes lignes sont moches je suis débutant dans ces deux langages mais du moment que sa marche cela conviendra

Si tu veux apprendre les choses, mieux vaut essayer de faire marcher les choses comme elles devraient,
plutôt que se contourner les fonctionnement au premier obstacle.

Par exemple pour lancer l'ouverture d'un classeur nommé Classeur1.xlsm se trouvant dans le même dossier que le batch :
Code:

1 2 3 4 echo OFF echo Ouverture du fichier excel classeur1.xlsm ... start classeur1.xlsm echo fichier classeur1.xlsm ouvert!
Et si dans ce classeur Classeur1.xlsm on veut exécuter une macro dès l'ouverture du classeur,
il suffit de placer dans la partie ThisWorbook de l'éditeur VBA, une routine Workbook_Open().
Code:

1 2 3 4 Private Sub Workbook_Open() Call MsgBox(ActiveWorkbook.Name & " ouvert!" & vbLf & "Lorsque tu cliqueras sur Ok, Excel se fermera") Application.Quit End Sub
Ensuite :
- si tu as des messages parce que le classeur n'est pas enregistré, tu peux fermer le classeur sans l'enregistrer ThisWorkbook.Close False.
- si tu as des messages d'avertissement lié au risque perte d'infos pour une conversion à un format texte, tu peux masquer les alertes avec un
Application.DisplayAlerts = False.
21/06/2013, 09h24
flo1312

Citation:

Et si dans ce classeur Classeur1.xlsm on veut exécuter une macro dès l'ouverture du classeur,
il suffit de placer dans la partie ThisWorbook de l'éditeur VBA, une routine Workbook_Open().

Oui cette partie la est faite et j'ai placer ma macro1 dans module 1. Le démarrage automatique se fait correctement sauf que cela bloque a la premiere ligne de code concernant la feuille1 qui na pas encore été générer.

Citation:

Par exemple pour lancer l'ouverture d'un classeur nommé Classeur1.xlsm se trouvant dans le même dossier que le batch :

Je ne savais pas que l'on devait avoir les deux dans le même dossier pour cette commande merci je note. Je precise que ma macro est externe en.xlam cela change quelque chose? merci

Citation:

"C:\Program Files (x86)\Microsoft Office\Office14\EXCEL.EXE"

Le souci est lorsque je veux faire cette commande sous dos, le tableau que je genere m'affiche #REF et l'enregistre comme sa alors qui si je fait cette commande:

"C:\Users\f.chaloin-externe\Desktop\Original - Copie1.csv"

là la récupération de données marche. J'ouvre donc un csv vide mais préexistant. Et la justement ma macro s'execute avant l'ouverture de ma feuille1 (je le constate lors du message d'erreur).
21/06/2013, 10h28
BlueMonkey

Salut,

Citation:

Le démarrage automatique se fait correctement sauf que cela bloque a la premiere ligne de code concernant la feuille1 qui na pas encore été générer.

Dans un fichier xlam, il n'y aucune feuille.
Donc ce n'est pas qu'elle n'est pas encore générée, c'est qu'elle ne sera jamais générée sans code explicite qui créé un nouveau classeur.
(ou bien si Excel est lancé depuis l'ouverture d'un classeur ou autre fichier)

Comme j'essaye de l'expliquer depuis 2 posts, un fichier xlam ne contient aucune feuille. Ce n'est donc pas un WorkBook classique.
C'est juste un fichier destiné à accueillir des macros complémentaires.

Donc pourquoi ne pas mettre ta macro dans un fichier xlsm (un classeur avec feuille et contenant des macros),
plutôt que de mettre mettre la macro dans un xlam et qui plante parce qu'il n'y a pas de feuille existant.
Et si vraiment le comportement souhaité est d'utiliser les macros complémentaire,
pourquoi ne pas ouvrir un nouveau classeur depuis la macro Workbooks.Add, avant de lancer le reste du traitement.
Plutôt que d'utiliser un fichier csv, qui si j'ai bien compris ne sert pas.

Citation:

Donc pourquoi ne pas mettre ta macro dans un fichier xlsm (un classeur avec feuille et contenant des macros),
plutôt que de mettre mettre la macro dans un xlam et qui plante parce qu'il n'y a pas de feuille existant.

Effectivement cela résout le problème de l'affichage de l'erreur mais du coup mes données ne sont plus exploitable lors de l'enregistrement (#REF). Peut-être est-ce dût au fait que le données n'ont pas le temps d'être actualiser que ma macro enregistre déja le fichier. Il faudrait donc une tempo entre
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 Range("A1").Select ActiveCell.FormulaR1C1 = _ "=CoDeSys|'C:\Program Files (x86)\WAGO Software\CoDeSys V2.3\Projects\wago.PRO'!PLC_PRG.H1" Range("A2").Select ActiveCell.FormulaR1C1 = _ "=CoDeSys|'C:\Program Files (x86)\WAGO Software\CoDeSys V2.3\Projects\wago.PRO'!PLC_PRG.H2" Range("A3").Select ActiveCell.FormulaR1C1 = _ "=CoDeSys|'C:\Program Files (x86)\WAGO Software\CoDeSys V2.3\Projects\wago.PRO'!PLC_PRG.H3" Range("A4").Select ActiveCell.FormulaR1C1 = _ "=CoDeSys|'C:\Program Files (x86)\WAGO Software\CoDeSys V2.3\Projects\wago.PRO'!PLC_PRG.H4" Range("A5").Select ActiveCell.FormulaR1C1 = _ "=CoDeSys|'C:\Program Files (x86)\WAGO Software\CoDeSys V2.3\Projects\wago.PRO'!PLC_PRG.H5" Range("A6").Select ActiveCell.FormulaR1C1 = _ "=CoDeSys|'C:\Program Files (x86)\WAGO Software\CoDeSys V2.3\Projects\wago.PRO'!PLC_PRG.H6" Range("A7").Select ActiveCell.FormulaR1C1 = _ "=CoDeSys|'C:\Program Files (x86)\WAGO Software\CoDeSys V2.3\Projects\wago.PRO'!PLC_PRG.H7" Range("A8").Select ActiveCell.FormulaR1C1 = _ "=CoDeSys|'C:\Program Files (x86)\WAGO Software\CoDeSys V2.3\Projects\wago.PRO'!PLC_PRG.H8"
et
Code:

1 2 3 4 5 6 7 Dim Chemin As String, Fichier As String Chemin = "Y:\DMS\Chaloin_Florent\Recuperation\" 'Ajoute la date du jour et l'heure dans le nom du fichier Fichier = "Données " & Format(Date, "dd-mm-yyyy") & "_" & Format(Time, "hh-mm-ss") & ".csv" ActiveWorkbook.SaveAs Filename:=Chemin & Fichier, FileFormat:= _ xlCSV, _ CreateBackup:=False
qui ne bloque que la macro et pas excel ce qui laisse un temps d'actualisation finalement. Ou bien c'est un souçit de format car excel génère (je crois) un fichier text qui est resauvergarder en CSV. Dans ce cas je ne voit pas trop comment faire.
En tout cas merci de vous pencher sur mon problème car il ne manque plus qu'à résoudre ça pour terminer mon projet et c'est très frustrant ;)

Pour récupérer tes infos depuis le programme externe, essaye quelque chose comme ça :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Sub LitDonnéeDepuisCoDeSys()
    Dim i As Integer
    For i = 1 To 10
        Range("A" & i) = GetExeResult("CoDeSys|'C:\Program Files (x86)\WAGO Software\CoDeSys V2.3\Projects\wago.PRO'!PLC_PRG.H" & i)
    Next i
End Sub
 
Private Function GetExeResult(ByVal prog As String) As String
    Dim wsh As Object
    Set wsh = VBA.CreateObject("WScript.Shell")
    Dim waitOnReturn As Boolean: waitOnReturn = True
    Dim windowStyle As Integer: windowStyle = 1
    Dim errorCode As Integer
    GetExeResult = wsh.Run(prog, windowStyle, waitOnReturn)
End Function

21/06/2013, 13h49
flo1312
ok merci sa me semble être la solution au problème car lorsque je j'execute mon programme .bat on voit bien les données qui passe de #REF a la bonne valeur après la fin de l'exécution de la macro. Seulement le debeugeur affiche cette erreur :

Citation:

'-2147024894 (80070002)'
Erreur Automation
Le fichier spécifié est introuvable.

a cette ligne
Code:

1 2 GetExeResult = wsh.Run(prog, windowStyle, waitOnReturn)
PS: Je pense que je devrais ouvrir un nouveau sujet intitulé "Commande qui actualise un lien DDE sous VBA Excel" mais je lirais vos réponse ici avec la plus grande attention :D

Commande qui actualise un lien DDE sous VBA Excel

J'ouvre cette discussion car ce problème n'as pas l'air d'avoir déja été traiter. Le probleme est de récuperer des valeurs sur un automate va liaison DDE. J'aimerais donc une commande qui permette d'activer tous mes liens DDE mais au lancement automatique de la macro dans le workbook. Voici mon code
Sub Macro1()

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
   Application.AskToUpdateLinks = False
    ActiveWorkbook.UpdateLink Name:=ActiveWorkbook.LinkSources
 
    Range("A1").Select
    ActiveCell.FormulaR1C1 = _
        "=CoDeSys|'C:\Program Files (x86)\WAGO Software\CoDeSys V2.3\Projects\wago.PRO'!PLC_PRG.H1"
    Range("A2").Select
    ActiveCell.FormulaR1C1 = _
        "=CoDeSys|'C:\Program Files (x86)\WAGO Software\CoDeSys V2.3\Projects\wago.PRO'!PLC_PRG.H2"
    Range("A3").Select
    ActiveCell.FormulaR1C1 = _
        "=CoDeSys|'C:\Program Files (x86)\WAGO Software\CoDeSys V2.3\Projects\wago.PRO'!PLC_PRG.H3"
    Range("A4").Select
    ActiveCell.FormulaR1C1 = _
        "=CoDeSys|'C:\Program Files (x86)\WAGO Software\CoDeSys V2.3\Projects\wago.PRO'!PLC_PRG.H4"
    Range("A5").Select
    ActiveCell.FormulaR1C1 = _
        "=CoDeSys|'C:\Program Files (x86)\WAGO Software\CoDeSys V2.3\Projects\wago.PRO'!PLC_PRG.H5"
    Range("A6").Select
    ActiveCell.FormulaR1C1 = _
        "=CoDeSys|'C:\Program Files (x86)\WAGO Software\CoDeSys V2.3\Projects\wago.PRO'!PLC_PRG.H6"
    Range("A7").Select
    ActiveCell.FormulaR1C1 = _
        "=CoDeSys|'C:\Program Files (x86)\WAGO Software\CoDeSys V2.3\Projects\wago.PRO'!PLC_PRG.H7"
    Range("A8").Select
    ActiveCell.FormulaR1C1 = _
        "=CoDeSys|'C:\Program Files (x86)\WAGO Software\CoDeSys V2.3\Projects\wago.PRO'!PLC_PRG.H8"
 
 
 
If Dir("Y:\DMS\Chaloin_Florent\Recuperation\*.csv") <> "" Then
Kill "Y:\DMS\Chaloin_Florent\Recuperation\*.csv"
End If
 
 
 
 
Dim Chemin As String, Fichier As String
Chemin = "Y:\DMS\Chaloin_Florent\Recuperation\"
'Ajoute la date du jour et l'heure dans le nom du fichier
Fichier = "Données " & Format(Date, "dd-mm-yyyy") & "_" & Format(Time, "hh-mm-ss") & ".csv"
ActiveWorkbook.SaveAs Filename:=Chemin & Fichier, FileFormat:= _
        xlCSV, _
CreateBackup:=False
 
 
 
End Sub

En effet, la mise en place de ces liens DDE se fait après la fin de la macro ce qui a pour effet d'enregistrer des #REF au lieu de nos valeurs. D'ailleurs manuellement cela marche donc il n'y as pas de soucis de format ou autre. Merci de votre aide par avance.

21/06/2013, 15h18
BlueMonkey

Re.

Le message d'erreur n'apparaît qu'en pas à pas avec le débugger VBA ? et fonctionne sinon ?

Vérifie que l'application CoDeSys est bien accessible sans avoir à préciser le chemin d'accès (chemin d'installation dans le PATH ?)
Sinon essaye de partir d'une base saine en fermant / ré-ouvrant Excel.
21/06/2013, 16h13
flo1312

Ok merci je vais voir sa ce week-end et je vous tiens au courant lundi. Est-il possible d'automatiser le passage de l'erreur (car mon programme marche en manuel) simplement en simulant les touches "Entrer" et "F5" du clavier? Car AutoIt a l'air d'être un bon logiciel pouvant réaliser ce type de programme mais je ne sais pas m'en servir. En tout cas bon Week end et merci de me guider vers la solution

Tu peux essayer avec Application.DisplayAlerts = False avant d'appeler GetExeResult = wsh.Run(prog, windowStyle, waitOnReturn).
Mais ce n'est quand même pas très sain d'avoir ce message d'erreur.
C'est même surprenant que les résultats soient juste avec un message d'erreur :
Le fichier spécifié est introuvable..

Bon week-end.

[Edit] Le message d'erreur vient d'un "=" que j'ai oublié d'effacé dans l'appel à GetExeResult.
Essaye avec :
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 Sub LitDonnéeDepuisCoDeSys() Dim i As Integer For i = 1 To 8 Range("A" & i) = GetExeResult("CoDeSys|'C:\Program Files (x86)\WAGO Software\CoDeSys V2.3\Projects\wago.PRO'!PLC_PRG.H" & i) Next i End Sub Private Function GetExeResult(ByVal prog As String) As String Dim wsh As Object Set wsh = VBA.CreateObject("WScript.Shell") GetExeResult = wsh.Run(prog, 7, True) Set wsh = Nothing End Function
Sinon en repartant de ton code, et Excel qui va directement chercher le résultat depuis une formule.
Code:

1 2 3 4 5 6 7 Sub AjuteForumlePourCoDeSys() Dim i As Integer For i = 1 To 8 Range("A" & i).FormulaR1C1 = "=CoDeSys|'C:\Program Files (x86)\WAGO Software\CoDeSys V2.3\Projects\wago.PRO'!PLC_PRG.H" & i DoEvents 'Donne la main à Excel pour traiter les évènements Next i End Sub

22/06/2013, 17h42
SfJ5Rpw8

Bonjour,

je ne comprends pas pourquoi tu re-écris tes formules (Lien DDE) dans ta feuilles excel ? celles-ci devraient être valables entre deux ouvertures ...

Pour commencer ne t'occupe pas de tes macros ... mais commence par créer un classeur excel, avec les formules DDE désirées.. .qui ce met à jour à chaque ouverture ..

si tu arrive il te resteras ensuite à traiter ton problème de sauvegarde.
24/06/2013, 09h42
flo1312

Bonjour,

Finalement j'ai opter pour la méthode OnTime.
Cela permet d'exécuter une macro en tache de fond donc de pouvoir travailler dynamiquement sur notre feuille excel mais en plus sa va faire une tempo ce qui est tout benef.
Voila j'ai ma solution au problème merci beaucoup de vous être manifester sa fait toujours plaisir quand on nage :ccool: