Discussion :

[Tommy24]

Bonjour,

Je cherche à exécuter une macro sous Excel (à laquelle j'envoie un argument) avec une macro Word.

Je suis arrivé au code suivant dans VBA Word :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
Sub Test()
 
Xls_From_Word Name:="Nom"
 
End Sub
 
Function Xls_From_Word(Optional Name As String)
 
If IsMissing(Name) Then
    Name = "blablabla"
End If
 
Dim Xls As Excel.Application
Dim Wkb As Excel.Workbook
 
Set Xls = New Excel.Application
Xls.Visible = True
 
Set Wkb = Xls.Workbooks.Open("C:\Documents and Settings\MyWkb.xlsm")
Wkb.Application.Run "Macro_Xls", Name
Wkb.Activate
 
End Function

Et j'ai le code suivant sous VBA Excel (dans MyWkb.xlsm) :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
Sub Macro_Xls(Name As String)
 
Set objClasseur = Workbooks.Add
(...)
ChDir "C:\Documents and Settings"
ActiveWorkbook.SaveAs Filename:=Nom & ".xls", FileFormat:=xlExcel8
 
End Sub

Mais lorsque j'exécute ma macro Test(), ça plante à la ligne

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Wkb.Application.Run "Macro_Xls", Name

de la fonction Word.
Cela me renvoie l'erreur suivante :

Run-time error '450':
Wrong number of arguments or invalid property assignment

Je ne comprends pas...
J'ai biensûr activé la référence Excel dans Word (et vice-versa dans le doute).

Pouvez-vous m'aider ?
Merci d'avance.

[kiki29]

Salut,tu as http://vb.developpez.com/faqvba/?page=3.7 http://excel.developpez.com/faq/?page=Word

VBA a des instructions spécifiques concernant Excel et/ou Word
du style For, Next etc communes à la suite Office
Word ne reconnait pas Workbooks, ActiveWorkbook
par exemple l'équivalent de ActiveWorkbook est ActiveDocument

[Tommy24]

En fait, j'ai déjà réussi à lancer une macro Excel n'ayant pas d'argument à partir d'une macro Word en utilisant à peu près ces lignes de code (le fait de déclarer une application Excel permet d'utiliser les "Workbooks" entre autre).

Mon vrai problème je pense est que dès que je mets un (ou plusieurs) argument(s) à une macro (Word ou Excel), elle disparaît de la liste des macros que je peux appeler (dans "Macros" de l'onglet "Développeur"). Et du coup quand je l'appelle avec la commande Run elle n'est pas trouvée...

[pgz]

Bonjour.

C'est pas évident, mais je commencerais par remplacer le nom de variable Name par sName ou autre chose. Si tu fais

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Xls.Run "Macro_Xls"

tu as aussi une erreur?

Une autre remarque, mais de détail,

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
Set Xls = New Excel.Application
Xls.Visible = True
 
Set Wkb = Xls.Workbooks.Open("C:\Documents and Settings\MyWkb.xlsm")
Wkb.Application.Run "Macro_Xls", Name

Donc Xls est Wkb.Application, et donc

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Xls.Run "Macro_Xls", Name

devrait suffire

Plus fondamental : pourquoi appeler une procédure dans un classeur alors que tu peux faire la même chose dans Word? Mais c'est vrai que tu n'as peut-être pas tout montré.

Cordialement,

PGZ

[Tommy24]

Bonjour,

Tout d'abord merci pour vos réponses.
Après avoir gratté pendant pas mal de temps j'ai par réussir à lancer une macro excel avec argument depuis ma macro word, mais je n'arrivais pas à en lancer une seconde alors que j'utiliser exactement les mêmes lignes de code...
Je me suis après rendu compte que je ne gérais pas bien les fenêtres excel actives, et que mon problème venait de là...
Maintenant ça marche !