Renommer un Doc Word avec Excel

Bonjour,

Le code suivant créé un Doc Word, le nomme et le renomme à partir d'Excel.

Sub CreationDocWord()
Set WordApp = CreateObject("word.application")
WordApp.Visible = False 'ou True pour voir Word se lancer
WordApp.Documents.Add
WordApp.ActiveDocument.SaveAs Filename:="c:toto.doc"
WordApp.Quit
Set WordApp = Nothing
OldName = "c:toto.doc": NewName = "c:tutu.doc"
Name OldName As NewName
End Sub

Si je peux me permettre, Pourquoi ne pas utiliser une variable
pour accueillir le fichier que l'on ouvre. L'utilisation d'une
telle variable permet de faire référence au fichier tout au long
de la procédure (sans y perdre la main !)

Si on doit faire référence à ce document dans plusieurs procédures,
on doit définir les variables dans le haut du module en utilisant le
mot Public
Public WordAp as object
Public Dc as Object


Sub CreationDocWord()
Dim WordAp as object, Dc as Object
Set WordApp = CreateObject("word.application")
WordApp.Visible = False 'ou True pour voir Word se lancer
Set Dc = WordApp.Documents.Add
Dc.SaveAs Filename:="c:toto.doc"
Dc.Close
WordApp.Quit
Set Dc = Nothing
Set WordApp = Nothing
OldName = "c:toto.doc": NewName = "c:tutu.doc"
Name OldName As NewName
End Sub

"Garette" <nospam.Garette@hotmail.com> a écrit dans le message de news:
OP$YXHrSHHA.4956@TK2MSFTNGP04.phx.gbl...
Bonjour,

Le code suivant créé un Doc Word, le nomme et le renomme à partir d'Excel.

Sub CreationDocWord()
Set WordApp = CreateObject("word.application")
WordApp.Visible = False 'ou True pour voir Word se lancer
WordApp.Documents.Add
WordApp.ActiveDocument.SaveAs Filename:="c:toto.doc"
WordApp.Quit
Set WordApp = Nothing
OldName = "c:toto.doc": NewName = "c:tutu.doc"
Name OldName As NewName
End Sub

Bonsoir
Merci. Je vais tester de ce pas (ou plutôt de ce doigt).
Cordialement
M41



"M41" <boomerang.pro00@wanadoo.fr> a écrit dans le message de news:
45c96ece$0$25923$ba4acef3@news.orange.fr...

Bonjour


Un Sub Excel crée ouvre Word et crée un nouveau document MonDoc
Comment donner un nom à ce document après les instructions

MonDoc.Visible=True
MonDoc.Documebts.Add

sans quitter le Sub Excel qui "garde la main" et sans faire une sauvegarde
(as...)
du nouveau document Word ?

Même question quand on a ouvert un .Dot que l'on veut renommer en
MonDoc.Doc
sans quitter le Sub VBA Excel ?

Merci. Cordialement

M41