Microsoft 365 Peut-on faire un double enregistrement : sur OneDrive et en local (sur une clé USB par exemple) ?

[anthoYS]

Bonjour


double sauvegarde..



Merci par avance

 

[sylvanu]

Bonjour AnthoYS,
Vous ne pouviez pas faire plus court comme demande ?
Alos en supposant que vous soyez sur PC et que vous acceptez les macros, il vous suffit d'utiliser l'enregistreur de macros, qui vous donne :

Sub Macro()
' Enregistrement sur clé USB
    ChDir "N:\"
    ActiveWorkbook.SaveAs Filename:="N:\Classeur4.xlsm", FileFormat:= _
        xlOpenXMLWorkbookMacroEnabled, CreateBackup:=False
' Enregistrement sur OneDrive
    ChDir "C:\Users\PC_PAPA\OneDrive"
    ActiveWorkbook.SaveAs Filename:="C:\Users\PC_PAPA\OneDrive\Classeur4.xlsm", _
        FileFormat:=xlOpenXMLWorkbookMacroEnabled, CreateBackup:=False
End Sub

Evidemment les deux ChDir sont à modifier en conséquence.

 

[anthoYS]

Je ne parviens pas à créer de marcro sur mon classeur "Sous Excel (Office 365)".

Ni voir le code de la feuille.

Merci de me dire

 

[anthoYS]

Merci de l'aide apportée

 

[sylvanu]

Sur la PJ vous faites ALT+F11 pour avoir l'éditeur VBA. Ou encore dans les menus Développeur/Visual Basic.
Pour l'enregistreur Affichage/Macros/Enregistrer une macro

Sous 365 les menus sont différent mais vous devez trouver quelque part ces chemins.

Si c'est votre 1ere macro :

Automatisez vos tâches avec les macros VBA

Créez un tableau de bord sur Excel : réalisez un tableau de données, maîtrisez les fonctions avancées et automatisez le traitement des données grâce aux macros VBA.

openclassrooms.com

 

[anthoYS]

Merci beaucoup, impeccable.

Sur Word, c'est pareil ?

 

[Phil69970]

Bonjour à tous les 2

Je te propose plus simplement

Sub Macro()
' Enregistrement sur clé USB
Lettre_Cle_USB = "D:\" ' A adapter à la lettre de ta clé uSB!!!!

ActiveWorkbook.SaveAs Filename:=Lettre_Cle_USB & "Classeur4.xlsm", FileFormat:= _
    xlOpenXMLWorkbookMacroEnabled, CreateBackup:=False

' Enregistrement sur OneDrive
ActiveWorkbook.SaveAs Filename:=Environ("OneDrive") & "\Classeur4.xlsm", _
    FileFormat:=xlOpenXMLWorkbookMacroEnabled, CreateBackup:=False
     
End Sub

Merci de ton retour

 

[anthoYS]

Merci beaucoup à tous les deux

 

[sylvanu]

Sous Word, c'est la même chose pour la procédure mais le résultat après l'enregistreur est différent.