Word VBA enregistrement d'une copie d'un document

Salut,

Je sais que ce forum est plutôt axé sur Excel et non sur Word, mais sait-on jamais.

Je voudrais que ma macro enregistre une copie du document actif dans un répertoire selectionné.

Avec Excel, j'ai la ligne : ThisWorkbook.SaveCopyAs Filename:=Dossier & Nom & " - " & strDate & ".xls" qui fonctionne parfaitement.

J'ai essayé avec Word : ThisDocument.SaveCopyAs FileName:=Dossier & Nom & " - " & strDate & ".doc", mais il plante sur le .SaveCopyAs

Quelqu'un aurait-il svp la solution ?

Fab

Salut le Forum

Déjà que ThisDocument.SaveCopyAs ne fonctionne pas sous Word.

Fab117 sur un autre forum a écrit :

Merci pour votre aide,

Voici le code complet pour le cas où ça interresserait quelqu'un d'autre.

Fab

Private Sub Document_Close() 
Dim Confirmation As Long 

' Quitte la macro si je ne suis pas l'utilisateur 
If Environ("UserName" ) <> "Toto" Then Exit Sub 

nom = ActiveDocument.Name 

' Demande s'il faut enregistrer les modifications 

Confirmation = MsgBox("Voulez vous enregistrer le fichier " & nom & " ? ", vbYesNo) 
If Confirmation = vbYes Then 
ThisDocument.Save 
' Fait une copie 
Dossier = "H:\DATA\GF\Gestion de projets\Circuit d'eau\Copie des documents qualite" 
Count = Len(ActiveDocument.Name) 
nom = Left(ActiveDocument.Name, Count - 4) 
strDate = Format(Date, "dd-mm-yy" ) & " - " & Format(Time, "h-mm-ss" ) 

ThisDocument.SaveAs FileName:=Dossier & nom & " - " & strDate & ".doc" 
End If 

End Sub

Mytå

Et ça marche.

Bonne journée.

Fab