lancement d'une macro excel

Forum destiné aux questions sur le développement : Formules, LotusScript, Java ...

lancement d'une macro excel

Messagepar leila » 16 Juin 2003 à 16:37

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)
leila
 

Re: lancement d'une macro excel

Messagepar Stephane Maillard » 16 Juin 2003 à 17:08

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%]
Cordialement

Stéphane Maillard
Avatar de l’utilisateur
Stephane Maillard
Lord of DominoArea
Lord of DominoArea
 
Message(s) : 8695
Inscrit(e) le : 16 Déc 2004 à 01:10
Localisation : Bretagne

Re: lancement d'une macro excel

Messagepar Stephane Maillard » 19 Juin 2003 à 14:07

Bonjour,Voici le code :Public 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%]
Cordialement

Stéphane Maillard
Avatar de l’utilisateur
Stephane Maillard
Lord of DominoArea
Lord of DominoArea
 
Message(s) : 8695
Inscrit(e) le : 16 Déc 2004 à 01:10
Localisation : Bretagne


Retour vers Développement