Discussion :

[iloyer]

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 :

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

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.

[SfJ5Rpw8]

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 :

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

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