Discussion :

[tonnick]

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 :

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

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 :

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

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

[ouskel'n'or]

Tu peux tester ça (je te mets le code tel qu'il fonctionne chez moi, tu changeras les noms et les chemins)

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
Sub ExecuterUnProcedureDansWord()
Dim wdApp As Word.Application
Dim WdDoc As Document
Dim NomFich
    Set wdApp = CreateObject("word.application")    'ouvre une session Word
 
    'Ouverture du fichier
    Set WdDoc = wdApp.Documents.Open(Filename:="D:\Doc\message.doc")
    DoEvents
 
    'wdApp.Visible = True 'Si tu veux aller voir dans Word
    wdApp.Run "message.doc'!Ouvrir"
    DoEvents
    WdDoc.Close False 'ferme le doc word sans l'enregistrer
    wdApp.Quit ' ferme word
    Set WdDoc = Nothing
    Set wdApp = Nothing
End Sub

N'oublie pas de valider la référence Microsoft Word X.XX Object Library
A+