user_mobilelogo

Word 365: Vous saurez tout !

Pour tout connaître sur Word
Version actuelle soldée

4,90 € (au lieu de 8,90€)

Voir le sommaire 

Nouvelle version en cours
À paraître l'été prochain

Voir les 50 derniers articles

Recherche

Qui suis-je ?


 

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'hui153
Hier2265
Cette semaine12916
Ce mois7540
Total depuis 200411660267

4
visiteurs actuellement en ligne

4 juillet 2020