Sauvegarde fichier dans un autre répertoire
Bonjour,
Je souhaiterais créer une copie de sauvegarde dans un dossier différent de celui ou se trouve le fichier.
les 2 dossiers se trouverons sur un serveur.
J'ai essayé plusieurs codes et je n'arrive pas à trouver ce qui ne vas pas,j'ai bien une sauvegarde qui se créer; mais systématiquement dans mes documents et ne vas pas plus loin,j'avais mis comme chemin :
NomDossier = "C:\Users\xxx\Documents\Sauvegarde\"
pouvez vous m'apporter votre aide?
merci d'avance
bonne journée
bonjour,
je ne vois pas de problème avec cette macro. Vérifie que le répertoire mentionné dans dossier existe bien.
Recois-tu un message d'erreur ?
tu peux essayer ceci, une sauvegarde dans le sous répertoire "sauvegarde" présent dans le répertoire contenant le classeur
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Dim strDate As String
Application.AlertBeforeOverwriting = False
ActiveWorkbook.Save
Count = Len(ActiveWorkbook.Name)
Nom = Left(ActiveWorkbook.Name, Count - 4)
strDate = Format(Date, "dd-mm-yy") & " " & Format(Time, "h-mm-ss")
dossier = ThisWorkbook.Path & "\sauvegarde\"
ThisWorkbook.SaveCopyAs Filename:=dossier & Nom & strDate & ".xls"
End Subbonjour h2so4,
Merci, ça fonctionne .
Cordialement