lancement d'une macro excel

Publié:
16 Juin 2003 à 16:37
par leila
Comment peut -on faire pour créer une procédure qui permette de lancer une macro excel.J'ai tenté d'en créer une avec en paramètre le nom du fichier excel contenant la macro mais ca ne marche pasIl faut lancer une macro nommée Macrovoila ce que j'ai fait:Sub RunMacro (xlsObject As Variant, FichierSauvegarde) xlsObject.Run "FichierSauvegarde.xls!Macro"end suben fait, le fichier nommé FIchierSauvegarde est le fichier dans lequel la macro doit etre lancée.... mais ca ne marche pas!pour l'appel voila comment je fais Call RunMacro (xlsObject, FichierSauvegarde)
Re: lancement d'une macro excel

Publié:
16 Juin 2003 à 17:08
par Stephane Maillard
Re,C'est tout ce que j'ai trouvé :http://support.microsoft.com/support/kb/articles/q194/6/11.aspsur :http://www-10.lotus.com/ldd/46dom.nsf/55c38d716d632d9b8525689b005ba1c0/dc97a066e9b1d65585256bf000490dda?OpenDocument[%sig%]
Re: lancement d'une macro excel

Publié:
19 Juin 2003 à 14:07
par Stephane Maillard
Bonjour,Voici le code

ublic Sub ExcecuteMacro() Dim XL As Variant 'Macro Excel : 'sub ChangementValeur() ' for each c in worksheets("sheet1").range("A1:D10") ' c.value = rnd() * 100 ' next c 'end sub Set XL = GetObject("C:\Test.xls", "excel.sheet") ' Rend Excel visible XL.Application.Visible = True ' Rend le classeur (Workbook) visible XL.Application.Windows("Test.xls").Visible = True XL.Application.Run "ChangementValeur"End Sub[%sig%]