lancer macro word à partir d'excel
Bonjour
J'ai créé un bouton sous excel qui lance l'ouverture d'un document word, puis qui lance une macro dans celui-ci après click sur une messagebox.
L'ouverture du .doc marche nikel, ensuite je clique sur la messagebox, puis tout plante, et excel me met au bout d'un moment " Exel attend la fin de l'éxécution d'une action OLE d'une autre application".
Le problème c'est que ma macro marche quand je les essaie dans word.
Voici le code dans excel:
Code:
1
2
3
4
5
6
7
8
9
10
11
12
| Private Sub commandButton1_Click()
Dim wordApp As Object
Set wordApp = CreateObject("Word.Application")
wordApp.Visible = True
wordApp.Documents.Open ("C:\Documents and Settings\poste 15\Bureau\clément\projet 1.2\CLASSEUR_TYPE_modifié.doc")
MsgBox "cliquez sur ok "
wordApp.Run "macro1"
End Sub |
La macro dans word permet de modifier la source de données d'un publipostage.
Voici la macro dans word:
Code:
1
2
3
4
5
6
7
8
9
| Sub Macro1()
ActiveDocument.MailMerge.OpenDataSource Name:= _
"C:\Documents and Settings\poste 15\Bureau\clément\projet 1.2\tableur lié au classeur.xls" _
, ConfirmConversions:=False, ReadOnly:=False, LinkToSource:=True, _
AddToRecentFiles:=False, PasswordDocument:="", PasswordTemplate:="", _
WritePasswordDocument:="", WritePasswordTemplate:="", Revert:=False, _
Format:=wdOpenFormatAuto, Connection:="Feuille de calcul entière", _
SQLStatement:="", SQLStatement1:="" |
Je ne comprend pas ce qui ne fonctionne pas.
Merci d'avance
Configuration: Windows XP
Firefox 2.0.0.4
