Discussion :

[QuestVba]

Bonjour,

Merci pout les réponses déjà reçues mais j'ai encore un nouveau problème.
Avec Excel, j'ouvre un document word de la manière suivante :

Code :

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

1
2
3
4
5
6
7
...
Dim appwrd As Word.Application
Dim docword As Word.document
Set appwrd = Word.Application
appwrd.Visible = True
Set docword = appwrd.Documents.Add(Template:="i:...\itinera_aaanormal.dot", NewTemplate:=False, DocumentType:=0)
...

(J'ai activé la référence à Microsoft Word 11.1 Object library). Quand je lance le programme via mon PC, aucun problème. Mais quand je veux faire la même chose via le pc d'un collègue qui est sur le même réseau, excel ouvre simplement Word avec fond gris. Le document ne vient pas.

En faisant un pas à pas, je me rend compte que "docword" est vide alors qu'il aurait dû charger "i:...\itinera_aaanormal.dot" !! Pourquoi ? Une idée ? Je compte sur Vous; Merci.

[78chris]

Bonjour

L'autre PC as-t-il accès à ce dossier avec les droits d'écriture ?

[QuestVba]

Bonjour,

Oui, les Pc de mes collègues ont accès à ce dossier avec droits décriture.

[QuestVba]

Re,

Maintenant, j'essaie sur un autre pc et j'ai une erreur '429' (un composant ActiveX ne peut pas créer d'objet).Une solution ?