Macro pour sauvegarder le classeur, Excel VBA

Une fonction de sauvegarde supplémentaire consisterait à enregistrer le fichier sur deux lecteurs différents. Vous pouvez voir la macro .

Sub FichierDoubleEnregistrer ()

Dim s As String

Const Lw = "c: \"

Const Lw2 = "q: \"

Const path = "c: \ own files"

Const path2 = "q: \ backups"

     s = ActiveWorkbook.Name

     ChDrive Lw

     ChDir path

ActiveWorkbook.SaveAs FileName:=s, FileFormat:= _

        xlNormal, Password:="", WriteResPassword:="", _

        ReadOnlyRecommended:=False, CreateBackup:=True

    ChDrive Lw2

    ChDir Pfad2

    ActiveWorkbook.SaveAs FileName:=s, FileFormat:= _

        xlNormal, Password:="", WriteResPassword:="", _

        ReadOnlyRecommended:=False, CreateBackup:=True

End Sub

 

S’abonner
Notifier de
0 Commentaires
Inline Feedbacks
Voir tous les commentaires

Initiation à Excel

Fonctions Excel

Excel VBA

Macros VBA Utiles

Plus d'outils

Sur Facebook

Sur YouTube

0
Nous aimerions avoir votre avis, veuillez laisser un commentaire.x
()
x