Discussion :

[DavidGagnaire]

Bonjour
Je souhaiterai qu'a la fermeture de ma base de donnée, elle soit enregistrée automatiquement dans un nouveau fichier avec la date du jour.
J'ai converti ma base en MDE
J'utilise un formulaire d'interface avec un bouton fermer application qui comme son nom l'indique ferme access
Merci d'avance
David

[reedy]

Bonjour
Il suffit de programmer une copie du mde avant la fermeture de la base
Voici un exemple de code

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
Sub sauvegarde()
 
Dim objScript As Scripting.FileSystemObject
Dim objf As Object
Dim cheminfichiersource As String
Dim cheminfichiercible As String
 
cheminfichiersource = "C:\...\basesource.mdb"
cheminfichiercible = "C:\...\basecible.mdb"
 
Set objScript = CreateObject("Scripting.FileSystemObject")
Set objf = objScript.GetFile(cheminfichiersource)
'sauvegarde
objScript.CopyFile cheminfichiersource, cheminfichiercible, True
' On vide les objets
Set objScript = Nothing
 
End Sub

Pour la date de la sauvegarde tu peux par exemple composer le nom du fichier cible à partir du nom du fichier source et la date du jour

Cordialement

[loufab]

Bonjour,

Il y a également la fonction native FileCopy.

Cordialement,