erreur automation pour la création d'un doc word

[chris]

Bonjour à tous,
je souhaite pouvoir copier automatiquement des résultats de mes feuilles excel (plages de données et graphiques) dans un doc word. On m'avais déjà donné un petit prog sur ce site mais ça ne marche pas. ça me marque 'erreur automation' au niveau du document.add.
Voici le petit prog:

Sub creationword()
Dim aaa As Object
Set aaa = CreateObject('word.application')
aaa.documents.Add
aaa.Selection.typetext 'ça marche!!!!!'
aaa.activedocument.SaveAs 'D:\\Chris\\cool.doc'
aaa.activedocument.Close
Set aaa = Nothing
End Sub

en espérant qu'encore une fois quelqu'un trouvera une solution à mon probleme....
PS: j'ai bien coché dans références le 'microsoft word 9.0 object library'

 

[pierrejean]

bonjour chris

ton code fonctionne tres bien chez moi apres modif sur la destination:

C:\\\\\\\\

je suis sous excel 2000 si cela peut avoir une incidence

 

[Charly2]

Bonjour Chris, bonjour PierreJean, bonjour à toutes et à tous 🙂

Je suis dans le même cas que PierreJean : tout fonctionne sans problème :huh:

Juste une question : es-tu sous environnement Mac ?

A+ 😉