XL 2010 Sauvegarde sur un support USB

Philo

XLDnaute Occasionnel
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

XLDnaute Impliqué
Hello
une piste, pour une sauvegarde j'utilise ce code

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
 

Philo

XLDnaute Occasionnel
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
 

Philo

XLDnaute Occasionnel
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
 

Discussions similaires

Réponses
2
Affichages
372

Statistiques des forums

Discussions
312 885
Messages
2 093 259
Membres
105 660
dernier inscrit
moi46