Discussion :

[demouzz]

Bonjour,

je ne suis pas tres experimenté en access toutefois pour le bureau j ai crée une base de donnés (pas tres compliquée) mais qui pour nous est d une importance primordiale..

Cette base de donnée est maintenant accessible à tous via notre reseau.

Toutefois, afin d eviter de futurs desagrement, il faut imperativement que des sauvegardes de securité automatiques soient effectuées et misent dans un autre dossier (avec la date et l heure de la sauvegarde si possible).

Comment dois je faire?

Merci.

PS: je travail sous access 2003

[Invité]

Bonjour

Si tu es en réseau, as-tu une sauvegarde automatique de celui-ci toutes les nuits (se serait mieux), ou veux-tu faire la sauvegarde à un moment précis ?

Philippe

[demouzz]

j aimerai qu en fait une sauvegarde soit effectuée a chaque fois qu un utilisateur ouvre la base.

[loufab]

Bonjour,

Tu peux toujours effectuer une copie fichier à l'ouverture de la base. Il existe toutes les fonctions VBA pour cela et si ça ne suffit pas un shell vers un bon vieux batch paramétré apportera la solution.

Le problème avec ce genre de comportement c'est la durée de la copie suivant l'environnement extérieur : poid du fichier, vitesse des disques ou/et du réseau, nombre d'utilisateur et leur gestion (+sieurs copie simultanée possible)... Tout cela doit être analyser avec la plus grande rigueur.

Cordialement,

[ludosnip]

Bonjour

"Tu peux toujours effectuer une copie fichier à l'ouverture de la base. Il existe toutes les fonctions VBA"

je suis aussi intéressé par une sauvegarde automatique mais dès lors de la fermeture dans un autre fichier

Comment puis je faire sous VBA ?

merci d'avance

[francishop]

Bonsoir,

Une piste :
http://www.developpez.net/forums/d50...tomatiquement/
Cordialement.

[ludosnip]

Bonsoir

je suis allé sur le forum j'ai fait ce code comme c'est dit mais ca ne marche pas, quelqu'un pourrait m'aider

Code :

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

1
2
3
4
5
6
7
8
9
Private Sub Commande11_Click()
 
Dim strCurrent, strDest As String
    strCurrent = CurrentProject.Path & "C:\CDI.mdb"
    strDest = CurrentProject.Path & "C:\sauvegarde.mdb"
 
FileCopy strCurrent, strDest
 
End Sub

merci d'avance

[francishop]

Bonsoir,

Code :

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

1
2
3
Dim strCurrent, strDest As String
    strCurrent = CurrentProject.Path & "C:\CDI.mdb"
    strDest = CurrentProject.Path & "C:\sauvegarde.mdb"

CurrentProject.Path veut dire :Là ou je suis... Là ou est la base donneuse d'ordre.

Si la base est dans :
C\Access\MesEssais\TravailEnCours-->CurrentProject.Path désigne ce chemin

Donc, pour ce qui te concernes, "C" est de trop.
Ou alors pas de CurrentProject.Path.
Cordialement.

Ps : Commande11 <-->Cmd_Sauve, voir Btn_Sauvegarde où... Mais un nom explicite.

[ludosnip]

merci pour ta réponse, en faite ce que voudrait c'est de copier mon fichier "CDI.mdb" vers un autre fichier qui se nomme "sauvegarde.mdb", selon tes conseils je ne suis pas sur la bonne voie puisque CurrentProject.Path, je le met 2 fois, après le code

Code :

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

FileCopy strCurrent, strDest

doit il être retirer ?


merci d'avance

[ludosnip]

merci pour m'avoir répondu, j'ai essayé sans CurrentProject.Path & mais cela me met un message d'erreur "Erreur d'exécution 70 permission refusée"

voici mon code :

Code :

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

1
2
3
4
5
6
7
8
9
Private Sub cmd_sauv_Click()
 
 Dim strCurrent, strDest As String
    strCurrent = "c:\CDI.mdb"
    strDest = "c:\sauvegarde.mdb"
 
FileCopy strCurrent, strDest
 
End Sub

cmd_sauv étant le nom de mon bouton commande

merci d'avance

[loufab]

Comme je te le suggèrais précédemment pourquoi ne pas utiliser tout simplement une commande système ?

Code :

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

shell "cmd /c ""Copy """ & currentdb.Name & """ c:\destination"""

Attention à doubler les double-cotes quand cela est nécessaire.

[francishop]

Bonsoir,

Ton souci provient du fait que tu es dans CDI.mdb.

Code :

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

1
2
3
4
5
6
7
8
9
Private Sub cmd_sauv_Click()
 Dim fso As Object
 Dim strCurrent, strDest As String
  Set fso = CreateObject("Scripting.FileSystemObject")
    strCurrent = "c:\CDI.mdb"
    strDest = "c:\sauvegarde.mdb"
  fso.CopyFile strCurrent, strDest
 Set fso = Nothing
End Sub

Cordialement.

[ludosnip]

merci infiniment ca marche