user_mobilelogo

Word 365: Vous saurez tout !

Pour tout connaître sur Word
Nouvelle version !

600 pages !

9,80 € 

 

En savoir plus.

 

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'hui1355
Hier2908
Cette semaine17680
Ce mois80477
Total depuis 200412599109

26
visiteurs actuellement en ligne

28 novembre 2020