Macro Excel qui pilote Word

[invite81bd6208]

Bonjours a tout,

Je ne suis pas un habitué de cette section du forum mais je me suis dit que je pourrais peut être y trouver de l'aide. J'essaye de faire une macro Excel qui pilote un document Word. L'idée est d'avoir un template word avec des parties vide, qui prendrait les valeurs du document Excel. Le but c'est de faire le calcul Excel, appuyer sur le bouton et hop ça génère un beau rapport Word pour présenter les chiffre.

Je me dis que je dois pas etre le seul a avoir eu en tete de faire ça et pourtant j'ai pas trouvé enormement d'aide sur le sujet, et le debut de macro que j'ai fait pour commencer ne marche pas ! Ou plutot semble marcher 1 fois sur 10.

Voila pour l'instant la macro:

Sub Macro_word_excel()

Dim appWD As Word.Application
Set appWD = CreateObject("Word.Application")
appWD.Visible = True

'On ouvre le template word'
    appWD.Documents.Open Filename:="Template_Test_macro.doc"
    
'On ecrit 291.55 dans word
    appWD.Selection.MoveDown Unit:=wdLine, Count:=2
    appWD.Selection.MoveRight Unit:=wdCharacter, Count:=35
    appWD.Selection.TypeText Text:="291.55"

'On enregistre le document word sous un nouveau nom
    appWD.ActiveDocument.SaveAs Filename:="Test_macro.doc"

'On ferme word et on efface la mémoire
ActiveWindow.Close
appWD.Quit
Set appWD = Nothing

End Sub

Voila donc pour l'instant il s'agit juste d'un tout debut pour ouvrir Word depuis excel marqué quelque chose et enregistrer. Par la suite le 291.55 sera lié a un cellule excel. Mais je ne vais pas plus loin car ça ne marche deja pas !

J'ai essayé y a 5 min la 1ere fois il me dit que l'adresse du template est fausse, la 2eme fois CA A MARCHE, puis la 3eme fois il me redit que l'adresse du template et fausse, pi apres ça il fait que de dire "erreur 462 le serveur n'existe pas ou n'est pas disponible".

Je pense qu'il y a un soucis au niveau de la memoire et du appWD mais j'arrive pas a comprendre quoi..

Si quelqu'un a une idée...

Merci
-----

[invite770d9cfe]

Chez moi ta macro marche bien si on corrige les espaces bizaroïdes dans ton programme.

Au lieu de "Word.Application ", taper "Word.Application"

et surtout :

au lieu de "Template_Test_macro .doc" lire "Template_Test_macro.doc"

Naturellement, ne pas oublier de cocher la case Microsoft Word 9.0 Object Library dans les librairies de référence, mais si tu ne l'avais pas fait, tu n'aurais eu aucun résultat.

[invite61786235]

si tu veu tu peu aussi faire une macro en passant par enregistrer macro
en faisant directement avec ta sourie l action que tu desire danns ton cas
ouvrir une application