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.

 

[CortoXls]

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

Bonjour Phil69970,
Pourquoi précisez vous CreateBackup = false ?
Je débute dans Vba...

 

[Valtrase]

Bonjour à tous,
Vous pouvez bénéficier de la sauvegarde automatique.
A la création du fichier initial sous 365. Office propose de le sauvegarder sous OneDrive, faites-le vous bénéficierez des sauvegardes automatiques. Puis vous faites la sauvegarde locale avec :

Private Sub Workbook_BeforeClose(Cancel As Boolean)
    ThisWorkbook.SaveCopyAs (FullPath)
End Sub

 

[CortoXls]

Bonjour à tous,
Vous pouvez bénéficier de la sauvegarde automatique.
A la création du fichier initial sous 365. Office propose de le sauvegarder sous OneDrive, faites-le vous bénéficierez des sauvegardes automatiques. Puis vous faites la sauvegarde locale avec :

Private Sub Workbook_BeforeClose(Cancel As Boolean)
    ThisWorkbook.SaveCopyAs (FullPath)

[/QUOTE]
Les coupures réseau étant nombreuses ça

Bonjour à tous,
Vous pouvez bénéficier de la sauvegarde automatique.
A la création du fichier initial sous 365. Office propose de le sauvegarder sous OneDrive, faites-le vous bénéficierez des sauvegardes automatiques. Puis vous faites la sauvegarde locale avec :

Private Sub Workbook_BeforeClose(Cancel As Boolean)
    ThisWorkbook.SaveCopyAs (FullPath)
End Sub

Bonjour
Les coupures internet étant fréquentes je préfère travailler en local et faire la sauvegarde sur OneDrive...

 

[wDog66]

Bonjour

Bonjour
Les coupures internet étant fréquentes je préfère travailler en local et faire la sauvegarde sur OneDrive...

Vous ne devez pas savoir comment cela fonctionne alors 🤔

Lorsqu'on utilise OneDrive synchronisé, cela porte bien son nom !
Le fichier est toujours enregistré en local dans C:\Users\NOMUTILI\OneDrive\Documents
et il est synchronisé avec les cloud quand le réseau fonctionne 😉

Bon samedi

 

[CortoXls]

Bonjour

Vous ne devez pas savoir comment cela fonctionne alors 🤔

Lorsqu'on utilise OneDrive synchronisé, cela porte bien son nom !
Le fichier est toujours enregistré en local dans C:\Users\NOMUTILI\OneDrive\Documents
et il est synchronisé avec les cloud quand le réseau fonctionne 😉

Bon samedi

Effectivement j'ignorais le fonctionnement !
Merci pour l'astuce !!!

Est-il possible de changer le répertoire ?

 

[wDog66]

Re,

Effectivement j'ignorais le fonctionnement !
Merci pour l'astuce !!!

Est-il possible de changer le répertoire ?

Non absolument déconseillé !