Ouvrir modèle WORD par VBA

[jpmasclet]

Bonjour a tous ,

J'ai créer la macro suivante (qui fonctionne)

Set appWrd = CreateObject("Word.Application")
appWrd.Visible = True
Set DocWord = appWrd.Documents. _
Open("H:\******\******\******\CREATION OUTILS - TEST\Gestion des fiches retour\Courrier spécifique\support seuil.dot")

End Sub

Cette macro ouvre mon fichier .dot (lecture seule ou non selon mon choix) or je voudrais que la macro fasse comme si je double cliquai sur le modele , ainsi cela m'ouvrira un fichier appelé documentx.doc (ainsi je suis sur de bien proteger mon modele).

J'espere avoir été clair
merci par avance

 

[chris]

Re : Ouvrir modèle WORD par VBA

Bonjour
Il ne faut pas utiliser la commande open mais
Documents.Add Template:="chemin\nom.dot", NewTemplate:=False, DocumentType:=0

 

[jpmasclet]

Re : Ouvrir modèle WORD par VBA

Bonjour et merci chris pour ton explication mais je dois etre un peu neuneu sur le coup
ça ne fonctionne pas ..

tu peux me montrer la comment structurer la macro "complement",

dois je laisser :

Set appWrd = CreateObject("Word.Application")" ??

??

Merci pour ton aide

 

[jpmasclet]

Re : Ouvrir modèle WORD par VBA

J'ai beau retourné les code dans tout les sens, je n'y arrive pas, alors la vraiment naze sur ce coup

 

[chris]

Re : Ouvrir modèle WORD par VBA

Bonjour

Set appWrd = CreateObject("Word.Application")
appWrd.Visible = True
Set DocWord = appWrd.Documents.Add(Template:="H:\******\******\******\CREATION OUTILS - TEST\Gestion des fiches retour\Courrier spécifique\support seuil.dot", NewTemplate:=False, DocumentType:=0)

devrait fonctionner

(sans retour à la ligne ou avec les _ pour les ruptures)