enregistrer un fichier excel a 2 endroit

[angoul]

bonjour

pour la securité de mes saisies d'un fichier excel
j'aimerai enregistrer se fichiers a 2 endroits differents
une sur mon disque dur et l'autre sur mon disque USB

avez vous une idée pour faire sa?
merci d'avance

 

[coco_lapin]

Re : enregistrer un fichier excel a 2 endroit

Bonjour angoul et le forum.

Pour cela il faut passer par les macros événementielles.
Dans Thisworkbook:
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)

End Sub

 

[lanoe]

Re : enregistrer un fichier excel a 2 endroit

Bonjour,

ci-joint un exemple de macro:

Dim NomFichier As String, Chemin1 As String, Chemin2 As String
Sheets("Feuille1").Select
Chemin1 = CStr(ThisWorkbook.ActiveSheet.Range("c1").Value) 'C1= cellule ou le chemin d'accés n°1 type D:\Dossier 1\Test1\
Chemin2 = CStr(ThisWorkbook.ActiveSheet.Range("c2").Value) 'C2= cellule ou le chemin d'accés n°1 type D:\Dossier 1\Test2\

Application.DisplayAlerts = False
NomFichier = Format(ThisWorkbook.ActiveSheet.Range("C3").Value) 'C3 cellule avec le nom du fichier
ActiveWorkbook.SaveAs (Chemin2 & NomFichier)
ActiveWorkbook.SaveAs (Chemin1 & NomFichier)
Application.DisplayAlerts = True


Cordialement
lanoe

 

[gfortin9]

Re : enregistrer un fichier excel a 2 endroit

Allô!

Ce que j'utilise depuis longtemps :

J'enregistre régulièrement de façon conventionnelle.
Quand je suis satisfait de l'avancement de mon fichier, je clique sur le bouton lié à cette macro

Sub Sauve_Fichiers()
Dim NomFichier As String, Chemin1 As String, Unite1 As String

Unite1 = CurDir() ' mémorise la lettre d'unité
Chemin1 = ActiveWorkbook.Path ' mémorise le path (chemin)
NomFichier = ActiveWorkbook.Name ' mémorise le nom du fichier
ChDrive "H" ' change la lettre d'unité pour celle de sauvegarde
ChDir "H:\--excel\Secur\" ' mon chemin de sauvegarde
Application.DisplayAlerts = False
ActiveWorkbook.SaveAs Filename:=NomFichier, CreateBackup:=False
ChDrive Unite1 ' retourne sur l'unité d'origine
ChDir Chemin1 ' reprend le chemin d'orignine
Application.DisplayAlerts = False
ActiveWorkbook.SaveAs Filename:=NomFichier, CreateBackup:=False
End Sub

 

[angoul]

Re : enregistrer un fichier excel a 2 endroit

merci de vos information, si c'est pas trop demander
quelqu'un pourrait me faire un petit modele que j'adapterer a mes besoin
merci d'avance

 

[lanoe]

Re : enregistrer un fichier excel a 2 endroit

Re,

A tester...

lanoe