Discussion :

[le_sonic]

Bonjour desolé de vous derangez pour une question toute bete mais ca fait assez longtemp que je me suis pas replongé sous access

Voila, je voudrais creer tout simplement un bouton avec du code vba qui enregistre mon fichier access sous un serveur \\192.168.0.1\save\

Merci d'avance

[Tofalu]

Il s'agit de copier le fichier actuellement ouvert ?

[ActionAccess]

Bonjour,

Je me sers de cette méthode qui utilise la référence "Microsoft Scripting Runtime" (à ajouter dans Visual Basic)

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Dim fs As New Scripting.FileSystemObject
Set fs = CreateObject("Scripting.FileSystemObject")
Dim Destination As String 'répertoire de sauvegarde
Dim source As String 'Répertoire où se trouve la base de donnée courante
Dim NomBase As String 'nom de la base de donnée courante
Dim NomSauv As String 'nom de sauvegarde de la base de donnée
 
source = Left(CurrentDb.Name, InStr(CurrentDb.Name, Dir(CurrentDb.Name)) - 1)
NomBase = Left(Dir(CurrentDb.Name), Len(Dir(CurrentDb.Name)) - 4)
Destination = "//192.0. etc"
NomSauv  = "NomDeSauvegardeDeMaBase" 'sans le mdb
 
'Copie du fichier source vers le répertoire de destination
fs.CopyFile CStr(source) + CStr(NomBase) + ".mdb", CStr(Destination) + CStr(NomSauv) + ".mdb", True

Pour ma part, je n'ai pas pu tester avec une destination de type "\\192.168.0.1\save\", mais cela fonctionne avec n'importe quel répertoire d'un réseau, à partir du moment où j'ai accès en écriture à ce répertoire.

Selon la taille de la base de données et la vitesse du réseau, cette opération peut prendre du temps.

Bon courage

[le_sonic]

Ok merci ca marche impec'

Mais tu n'aurais pas un bout de prog pour me dire quand a eu lieu la derniere sauvegarde??

Merci c' super pour ton prog !!

[ActionAccess]

Rebonjour,

Ma solution pour connaître la dernière date de sauvegarde est d'ajouter la date dans une table par DAO.Recordset.

Bon courage