user_mobilelogo

 

Word possède une fonction de copie de sauvegarde (dans les options d'Enregistrement : "Toujours enregistrer une copie de sauvegarde"). Malheureusement cette option enregistre au même endroit. 

La macro ci-dessous (de Graham Mayor, MVP Word américain) permet de choisir un autre emplacement. Remplacez simplement le chemin indiqué dans la macro en violet par votre propre chemin.

Sub sauvegarde_2_endroits()
'macro écrite par Graham Mayor
Dim strFichierA, strFichierB, strFichierC
ActiveDocument.Save
strFichierA = ActiveDocument.Name
'Mettre son emplacement à la place du texte en violet
strFichierB = "C:\Mes Documents\Mes sauvegardes\Backup\" & strFichierA
strFichierC = ActiveDocument.FullName
ActiveDocument.SaveAs FileName:=strFichierB
ActiveDocument.SaveAs FileName:=strFichierC
End Sub

 

Si l'on souhaite sauvegarder non seulement dans deux endroits, mais aussi sous un autre format (ici, sous le format RTF), voici la macro. La difficulté supplémentaire réside dans le fait d'extraire le nom sans l'extension.

Sub sauvegarde_2_endroits()
'macro écrite par Graham Mayor et m@rina
Dim strFichierA, strFichierB, strFichierC, strFichierD
ActiveDocument.Save
strFichierA = ActiveDocument.Name
'trouve la position de l'extension
intPos = InStrRev(strFichierA, ".")
'remplace l'extension doc par rtf
strFichierA = Left(strFichierA, intPos - 1)
strFichierA = strFichierA & ".rtf"
'Mettre son emplacement à la place du texte en violet
strFichierB = "C:\Mes documents\Mes sauvegardes\Backup\" & strFichierA
strFichierC = ActiveDocument.FullName
ActiveDocument.SaveAs FileName:=strFichierB, FileFormat:=wdFormatRTF
ActiveDocument.SaveAs FileName:=strFichierC
End Sub

 

Le mieux est d'affecter un bouton à ces macros sur la barre d'outils, afin de permettre le choisir si l'on souhaite enregistrer ou non avec un backup.

 

 

 

 

Statistiques

Aujourd'hui2994
Hier3313
Total depuis 200411501328

15
visiteurs actuellement en ligne

20 février 2020