Créer une copie de sauvegarde dans un dossier différent

Bonjour, je vous sollicite car je n'arrive pas à créer une copie de mon fichier de données dans un dossier différent.

J'aimerais pouvoir à chaque fermeture du fichier base de données sauvegarder en parallèle une copie de ce fichier dans un dossier "BackUp".

Merci par avance pour votre aide, je m'arrache un peu les cheveux et ne trouve pas de ressource sur ce sujet!

PS: le MDP est 0109

Bonjour Sirol,

Même si vous le donnez, merci de déposer le fichier sans mot de passe SVP.

Vous voulez sauvegarder le classeur entier ou juste la feuille "Suivi" !?

A+

Bonjour j'aimerais sauvegarder la totalité du classeur

Merci pour votre aide.

Re,

Dans ce cas, voici le code

Private Sub Workbook_BeforeClose(Cancel As Boolean)
  Dim sNomFic As String
  Application.StatusBar = "Veuillez patienter, backup en cours de sauvegarde"
  sNomFic = "Backup " & Format(Now(), "yyyy.mm.dd_hhmm") & ".xlsm"
  ThisWorkbook.SaveCopyAs "C:\Temp\" & sNomFic
End Sub

A+

Re, la macro à l'air de bien fonctionner mais la sauvegarde s'effectue dans le même dossier comme vous pouvez le voir sur la capture ci-dessous.

J'ai pourtant spécifier ce chemin d'accès : ThisWorkbook.SaveCopyAs "Z:\Atelier.Usinage\Base de données\BakUp" & sNomFic

Bonjour, avez-vous des solutions concernant ce petit bug ?

Merci d'avance.

Cordialement, Sirol.

Bonjour Sirol,

Quel bug !? C'est impossible, car cette ligne

ThisWorkbook.SaveCopyAs "C:\Temp\" & sNomFic

Fait ce qu'il faut pour le sauvegarder à l'endroit indiqué

Donc à vous de l'adapter comme il faut, c'est compliqué

Si vous regardez bien le nom de votre fichier, vous aurez la réponse

Je pense qu'entre BackUp et Backup, il manque un "\"

A+

Salut,

Je vois que tu as 365, donc un espace OneDrive. Si tu sauvegardes ton fichier sur OneDrive Excel s'occupe lui-même de gérer les sauvegardes.

Pour cela, il faut activer l'enregistrement automatique.

Sinon pour ton problème si problème il y a

sNomFic = "Backup " & Format(Now(), "yyyy.mm.dd_hhmm") & ".xlsm"
  ThisWorkbook.SaveCopyAs "C:\Temp\" & sNomFic

Tu as remarqué que l'exemple pointe sur C:\Temp\" Pour le chemin d'accès. Tu dois avant tout le changer avec le chemin de ton répertoire de BackUp.

Bonjour je n'en doutais pas du tout mais vous aviez bien raison.

Une erreur de frappe de ma part et un petit C qui manquais dans BackUp.

Merci beaucoup de votre aide et bonne continuation !