changer le r�pertoire de sauvegarde en fonction du mod�le utilis� [WD-365]

Bonjour,
j'ai cr�� plusieurs mod�les de documents (certificat, rapport, etc..) et des sous-dossiers aux noms correspondant aux mod�les. J'aimerai que lors de la sauvegarde, le dossier par d�faut corresponde au mod�le du document : par exemple les documents cr��s depuis Certificat.dot soient sauv�s dans le sous dossier correspondant (ex. mesdocuments/certificat), ..), rapport.dot -> sous dossier mesdocuments/rapport/, etc... sans avoir � chercher dans l'arborescence des fichiers...

Merci pour votre aide.

AJ

Hello,

une macro � mettre dans le Normal.dotm

Code :

S�lectionner tout - Visualiser dans une fen�tre � part

1
2
3
4
5
6
7
8
9
10
11
12
Sub Enregistrer_dans_Dossier()
 
    Dim Nom_Modele As String
    Dim Nom_Dossier As String
 
    Nom_Modele = ActiveDocument.AttachedTemplate.Name
    Nom_Dossier = "C:\mesdocuments\" & Left(Nom_Modele, InStr(1, Nom_Modele, ".") - 1) & "\"
 
    Options.DefaultFilePath(wdUserTemplatesPath) = Nom_Dossier
    ActiveDocument.Save
 
End Sub

Merci beaucoup pour cette solution simple et �legante.. C'est parfait et me donne des id�es pour aller un peu plus loin...
A bient�t un de ces jours sur ce forum.

Annie J.