Discussion :

[papiJC47]

Bonjour,

Par une procédure Excel je voudrais compléter un tableau dans un fichier Word.Auparavant, j'ai selectionné Références dans le menu Outils de Visual Basic Editor et coché la case "Microsoft Word 12.00 Objet Librairy".Lorsque je teste
ma ligne de code :

Code :

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

Set MonTableauWord GetObject (, "word.application")

w et a de word.application ne se mettent pas en majuscule et j'obtiens en execution
Erreur d'exécution ' 429' un composant Active x ne peut créer d'objet
Suite à ce problème j'ai vérifié le chemin d'accès donné par la référence chemin d'accès c:\program Files(X86)MicrosoftOffice\Office 12\MSWOI et dans le répertoire Office 12 le fichier n'existe pas.
Que faut-il faire pour remédier à ce problème ?
Je vous remercie pour vos réponses

[Jean-Philippe André]

Bonjour,

La fonction GetObject() fonctionne lorsque l'objet que tu souhaites recuperer existe deja (Ici Word est deja ouvert au moins une fois).

Si tu veux creer une nouvelle instance, il te faut utiliser

Code :

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

Set MonTableauWord =CreateObject ("Word.Application")

[papiJC47]

Merci à Jean-Philippe André pour ta réponse, mais je suis sur Excel et Word n'est pas ouvert. C'est la première fois que je veux écrire dans un fichier fermé, j'avoue que je suis un peux perdu

[Jean-Philippe André]

L'objectif un est donc d'ouvrir le fichier ?

Regarde les pistes de la
http://excel.developpez.com/faq/?page=Word

[papiJC47]

L'objectif est d'enregistrer des données d'une procédure Excel dans un fichier Word fermé.
Ce qui me gêne un peu c'est, après avoir coché la case décrite au début, j'ai vérifié le chemin et je ne trouve pas le fichier MSWOI correspondant dans ...Office12.
Mon problème vient-il de là?
Ou ai-je coché la bonne case?
Les lignes de codes employées dans la procédure, proviennent d'un exemple complet fourni par un tuto qui je pense a fonctionné
Merci à vous

[papiJC47]

Je vous remercie pour les renseignements fournis
tout fonctionne avec déclaration de type
Dim Wordapp as Word.Application
Encore merci pour votre soutien