Discussion :

[Michel Delapouaitte]

Bonjour à tous.
Malgré de multiples recherches et essais, je ne trouve pas la solution à mon problème :

Config : excel 97 et word 97.

A partir d'un fichier excel, je cherche à ouvrir un fichier word pour pouvoir y écrire des valeurs présentes dans la feuille excel en question.

Le soucis c'est que je n'arrive pas du tout à ouvrir le fichier word, que ce soit par du VBA "classique" ou en passant par un ordre shell.
Je me casse à chaque fois les dents sur des erreurs (jamais la même), et là le problème c'est que je commence à ne plus en avoir, des dents.

Je précise que j'ai bien ajouté la référence à word dans excel et, inversement, la référence à excel dans word.

Voici mon bout de code :

Code :

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

1
2
Set MonWd = CreateObject("Word.Application")
MonWd.Documents.Open (FileName = "C:\Documents and Settings\BBE\Bureau\wkdir\Conventions\wkgrp\convTestSignet.doc")

J'obtiens un message "impossible d'ouvrir <<-' " (je peux pas copier le message donc j'ai essayé de refaire le signe bizarre "à la main"), ainsi qu'une erreur '429' : un composant activeX ne peut pas créer un objet.

L'aide est plus que floue sur cette erreur ....

Des idées ? Merci d'avance.

[Invité]

Bonjour

Une idée, enlève Filename =

Philippe

[DeaD78]

Bonjour,

Tu peux ouvrir comme cela et ça marche :

Code :

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

1
2
3
4
5
6
7
8
9
10
Sub test()
 
    Dim appword As Word.Application
    Set appword = New Word.Application
    Application.DisplayAlerts = True
    appword.ShowMe
    appword.Visible = True
    appword.Documents.Open Filename:="C:\Documents and Settings\andre.dorian\Bureau\Dimensions_YPUR_C01"
 
End Sub

Bonne journée

[Michel Delapouaitte]

Bonjour à vous deux, et merci de vous attarder sur mon problème.

Philippe JOCHMANS, j'avais déjà essayé sans le "Filename =", mais dans le doute j'ai réessayé et non ça ne marche pas, j'ai toujours le même message, sans l'erreur.

DeaD78, j'ai testé ton bout de code, et j'avais déjà essayé une démarche similaire, mais ça ne fonctionne pas mieux, que ce soit avec l'extension ".doc" ou pas dans le chemin.
J'ai donc e même message "impossible d'ouvrir" + signe bizarre, avec en prime l'erreur VB suivante :

"Erreur d'exécution 5121 :

impossible d'ouvrir le document."

Je vous épargne les propositions ridicules qui suivent, du style essayer d'ouvrir manuellement le fichier ou m'assurer qu'il a bien une extension ".doc".

J'avais déjà obtenu bien malgré moi ce code d'erreur ...

[DeaD78]

Là, c'est quand même bizarre ton problème.

Je viens de tester le code que je t'ai posté avant de te le proposer et il m'ouvre le fichier sur mon bureau à la perfection.

Il faut donc en conclure que le problème vient d'autre part. Les références sont-elles bien correctes (je ne sais pas vraiment si ça influe) au niveau de VBA/Outils/Références ?

Est-ce aussi Word 2000 que tu as ?

A titre de comparaison, mon fichier Dimensions_YPUR_C01 est un .doc sur le bureau et il s'ouvre sans soucis. Je ne rajoute pas le .doc dans le chemin. N'as-tu pas affaire à un .docx?

[Michel Delapouaitte]

Non non c'est word 97 que j'ai, je l'avais précisé dans mon premier post.

J'ai vérifié les librairies de chaque coté (word / excel), elles étaient bien là. Juste pour voir, sans conviction, je les ai décochée, sauvegardé et recochées.

Et là, chose complètement bizarre, mais finalement pas plus que le comportement obtenu précédemment, ça marche.


Merci beaucoup à vous 2 d'avoir pris le temps de me répondre et de m'aider.

Merci également à ceux qui auront pris le temps de réfléchir en lisant ce thread, même s'ils n'ont rien posté.

Bonne journée à tous.