XL 2010 Sauvegarde sur un support USB

[Philo]

Bonjour le forum,
je voudrais savoir si il existe une macro qui permettrait de sauvegarder un fichier sur un PC sur un support USB par exemple
c'est a dire l'avoir en double sur un autre support car j'ai vider un fichier que j'avais sens pouvoir le recuperer

merci de me tenir au courant

 

[robertjamin]

Bonjour le forum,
je voudrais savoir si il existe une macro qui permettrait de sauvegarder un fichier sur un PC sur un support USB par exemple
c'est a dire l'avoir en double sur un autre support car j'ai vider un fichier que j'avais sens pouvoir le recuperer

merci de me tenir au courant

 

[GADENSEB]

Hello
une piste, pour une sauvegarde j'utilise ce code

Public NomFichierPublic As String
Dim sRep As String          'Répertoire de sauvegarde
Dim sFilename As String     'Nom du fichier



Sub Sauvegarde_Journaliere()
  Dim Répertoire As String, NomFichier As String
  Répertoire = ActiveWorkbook.Path & "\BACKUP"
  'Si le dossier BACKUP n'éxiste pas alors je le créer
  If Dir(Répertoire, vbDirectory) = "" Then MkDir (Répertoire)

  ' Créer un nom de fichier unique par jour
  NomFichier = ThisWorkbook.Name
  NomFichier = Left(NomFichier, Len(NomFichier) - 5)
' NomFichier = NomFichier & "-" & Format(Date, "dd.mm.yyyy") & ".xlsm"
NomFichier = NomFichier & "-" & Format(Date, "yyyy.mm.dd") & ".xlsm"
  ' Vérifier si le fichier du jour n'existe pas
  If Dir(Répertoire & "\" & NomFichier) = "" Then
    'Sauvegarde une copie du fichier et ne touche donc pas au fichier en cours
    ActiveWorkbook.SaveCopyAs Filename:=Répertoire & "\" & NomFichier
  End If
End Sub

a modifier sur le chemin de fichier

 

[robertjamin]

Dans W10 il y a moyen de faire une sauvegarde automatique et journalière de tous vos fichiers de données sur un support externe (disque ou clé usb si taille suffisante)

 

[Philo]

Bonsoir GADENSEB et robertjamin
le code de GADENSEB fonctionne bien est ce que l'on peut le modifier pour sauvegarder eventuellement deux ou trois fichier par jour

 

[Philo]

Bonjour le forum
personne pour me donner un coup de main par rapport a mon message #5 et voir avec un msgbox pour demander de sauvegarder un nouveau fichier ou d’écraser un fichier existant

 

[GADENSEB]

Hello.
Je regarde dans le WE.
À+ seb

 

[Philo]

Bonjour GADENSEB
c'est pour ne pas supprimer les données du fichier et avoir une copie de celui ci si par malheur on supprime les données accidentellement

Merci

 

[GADENSEB]

Tu as un début de code ?

 

[Philo]

Bonsoir,
comme debut de code j'ai repris le votre



Sub Sauvegarde_Journaliere(Optional strBidon As String)
Dim Répertoire As String, NomFichier As String
'Répertoire = ActiveWorkbook.Path & "\BACKUP"
Répertoire = "J:\Sauvegarde_excel_Vélo"
'Si le dossier BACKUP n'éxiste pas alors je le créer
If Dir(Répertoire, vbDirectory) = "" Then MkDir (Répertoire)
' Créer un nom de fichier unique par jour
NomFichier = ThisWorkbook.Name
NomFichier = Left(NomFichier, Len(NomFichier) - 5)
NomFichier = NomFichier & "-" & Format(Date, "dd.mm.yyyy") & ".xlsm"
'NomFichier = NomFichier & "-" & Format(Date, "yyyy.mm.dd") & ".xlsm"
' Vérifier si le fichier du jour n'existe pas
If Dir(Répertoire & "\" & NomFichier) = "" Then
'Sauvegarde une copie du fichier et ne touche donc pas au fichier en cours
ActiveWorkbook.SaveCopyAs Filename:=Répertoire & "\" & NomFichier
End If
End Sub

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
Sauvegarde_Journaliere
End Sub

 

[GADENSEB]

ben du coup ma macro colle.
Ellefait un backup du fichier en entier dans le dossier spécifique "BACKUP", une fois par jour

 

[Philo]

Bonjour le forum
Oui vôtre macro colle bien mais je voudrais la modifier pour faire une sauvegarde multiples
Qu'est-ce que vous pouvez proposé c'est à dire je n'arrive pas à avoir le dossier BACKUP et une sauvegarde sur USB en même temps
Merci de votre réponse

 

[DoubleZero]

Bonjour à toutes et à tous,

...macro qui permettrait de sauvegarder un fichier sur un PC sur un support USB par exemple
c'est a dire l'avoir en double sur un autre support...

Quelques précieux outils ici.

Reste, par la suite, à ne pas omettre la sauvegarde d'une copie sur le support choisi.

A bientôt

 

[Philo]

Bonjour le forum,
merci GADESEB pour le debut de mon souci
merci DoubleZero pour la fin avec (quelques précieux outils ici)

 

[GADENSEB]

De rien,
J'ai était pris par le temps... pas eu le temps de te répondre désolé
Merci @ DoubleZero