Sauvegarde d'une base de données en VBA

**nounous54** · 16/12/2013, 13h24

Bonjour à tous,

J'aimerais intégrer dans mon projet la possibilité d'effectuer une sauvegarde de ma base de données.

J'ai trouvé un code qui fonctionne mais j'aimerais y ajouter une amélioration pour me permettre d'identifier plus facilement ma sauvegarde...

Voici le code:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
 
Private Sub Bt_Save_Bd_Click()
Dim fso As Object, strDest As String
strDest = CurrentProject.Path & "\" & _
          Left(CurrentProject.Name, Len(CurrentProject.Name) - 4) & ".bak." & Right(CurrentProject.Name, 3)
Set fso = CreateObject("Scripting.FileSystemObject")
fso.CopyFile CurrentProject.FullName, strDest
Set fso = Nothing
MsgBox "La sauvegarde à été effectué", vbInformation, "sauvegarde du challenge"
End Sub

En faite ce que je souhaiterais c'est de pouvoir améliorer 2 choses:

La 1ère c'est de pouvoir mettre à la place de & ".back." & choisir le texte que je veux.
Où à défaut mettre la date du jour...
Où encore de mettre le contenu de mon champ [dates_chall] qui se trouve dans ma table [TblInfoChallange]

La 2ème serait d'indiquer dans la Msgbox le chemin où à été sauvegardé la base de donnée...

Merci d'avance pour votre participation..