Ouvrir un nouveau document avec un modele perso

Bonjour,

Je chercher grâce à un vbs à créer un nouveau document Word.
Sachant que j'ai créé un modéle qui contient un certain nombre de macro, je souhaite que ce nouveau document soit basé sur OEW.dot.

Voici l'un des nombreux tests réalisés:

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13

Dim objWord Set objWord = CreateObject("Word.Application") Dim objWordDoc Set objWord = Documents.Add "C:\OEW.Dot",False,0 objWord.Visible = false ScreenUpdating=True objWordDoc.SaveAs "C:\WordOESave.doc" 'Après sauvegarde, il faut fermer objWordDoc.Close Set objWordDoc = Nothing objWord.Quit Set objWordDoc = nothing

---

Malheureusement, malgré de nombreux essais, une recherche poussée dans les différents messages, je n'arrive pas à mon sortir.

J'espère l'un de vous pourra éclairer ma lanterne.

Merci par avance.

tu mélange un peu des 2 objet (application Word et Document word)

de plus tu ne peu pas utiliser directement les collection de l'application Word par exemple documents... sans les préfixer avec la variable pointant sur cette application ..

Code:

---

1 2 3 4 5 6 7 8 9 10 11

Dim objWord Set objWord = CreateObject("Word.Application") objWord.Visible = true 'pour voir ce qui se passe... Dim objWordDoc Set objWordDoc = objWord.documents.Add ("d:\tmp\OEW.Dot",False,0) objWordDoc.SaveAs "d:\tmp\WordOESave.doc" 'Après sauvegarde, il faut fermer objWordDoc.Close Set objWordDoc = Nothing objWord.Quit Set objWordDoc = nothing

---