Problème entre excel et word

[Ritter]

Bonjour à tous

J'ai effectué une macro sous Excel qui me permet d'ouvrir un document Word, jusque là c'est bon cela marché seulement lorsque que je créé une macro sous Word pour fermer le document Word, ma macro sous excel ne fonctionne plus.


Private Sub CommandButton12_Click()
Set WordObject = CreateObject("C:\travaux excel vba\LETCART.DOC&quot
WordObject.Application.Visible = True
Unload Me
End Sub

Donc si quelqu'un a une solution à me proposer, je suis preneur

 

[vestale974]

Salut,
Remplaces ta procédure par :

Private Sub CommandButton12_Click()
Dim wrdApp
Dim wrdDoc
Set wrdApp = CreateObject("Word.Application&quot
Set wrdDoc = wrdApp.Documents.Open("C:\travaux excel vba\LETCART.DOC&quot
wrdApp.Visible = True
End Sub

@+

 

[Ritter]

Je te remercie grandement, cela fonction à la perfection.


:laugh: