exécuter une macro complémentaire exel à partir d'un vbs

Question

Bonjour 
Je souhaite exécuter une macro complémentaire dans un fichier excel à partir d'un vbscript.
Le script est exécuté a partir d'un logiciel servant à piloter des automates (je ne sais pas si cela peu être important)
Voici le code:
Dim appExcel
Dim objDlg
Dim nomfichier
'recherche fichier WL
Set objDlg = CreateObject("UserAccounts.CommonDialog")
objDlg.Filter = "fichier csv|*.csv"
blnReturn = objDlg.ShowOpen

if blnReturn then
     nomfichier=objDlg.FileName
    
evoware.setstringvariable "nomfichier", nomfichier
end if

'macro dilution
Set appExcel = CreateObject ("Excel.Application")
appExcel.Visible = True
appExcel.Workbooks.Open (nomfichier)

appExcel.Run "C:\Documents and Settings\martin\Application Data\Microsoft\Macros complémentaires\dilution1.xla"

Tout marche bien jusqu'a l'exécution de la macro
j'ai un message disant "impossible de trouver la macro 'C:\Documents and Settings\martin\Application Data\Microsoft\Macros complémentaires\dilution1.xla'"

Je suis débutant alors je m'excuse si je ne suis pas clair ou s'il manque des infos.

merci de votre aide

lillith212 · Answer

Bonjour,
Je n'ai pas regardé ton code en entier mais une chose est sure. Evite de mettre un chemin en dur. Vérifie le chemin de ta macro...
Bon courage

S.L.B.
<hr />

mc04 · Answer

ok merci de ton conseil
j'ai essayé en rajoutant Const macro = "C:\Documents and Settings\martin\Application Data\Microsoft\Macros complémentaires\dilution1.xla"
au début du code
et j'ai remplacé la dernière ligne par appExcel.Run (macro)
mais ça ne marche toujours pas 
Est ce que c'est bien ça que tu voulais dire ou alors j'ai pas compris ?

Exécuter une macro complémentaire exel à partir d'un vbs

2 réponses

Votre réponse

Discussions similaires