Discussion :

[hocine]

Salut,
je souhaiterai créer une copie de ma base de donnée active vers un répertoire \archive j'ai un code mais il bloque puisque ma base de données est ouverte comment dois-je procéder?

Code :

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

1
2
3
4
 
x = CurrentProject.Path & "\matable.mdb"
Y = CurrentProject.Path & "\archive" & Year(date) - 1 & "\matable.mdb"
FileCopy x, Y

erreur d'exécution '70'
Permission refusée
si c'est impossible, je souhaiterai créer une table sur ma BDD active avec le même nom de la table commandes en lui ajoutant l'année commandes2009 par exemple.
MERCI

[chernirachid]

Bonjour et voila un exemple de code:

Code :

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

1
2
3
4
5
6
7
8
9
10
Private Sub lblSave_Click()
 
 Dim fso As Object
 Dim strCurrent, strDest As String
  Set fso = CreateObject("Scripting.FileSystemObject")
    strCurrent = "\\ton chemin\matable.mdb"
   strDest = "\\ton chemin d'archive\archivematable.mdb"
  fso.CopyFile strCurrent, strDest
 set fso = Nothing
End Sub

[hocine]

salut,
merci pour votre réponse, mais j'ai déja essayé cette astuce, et acces m'inque que la bibliothèque n'est pa senregistrée, alors que je l'ai activer et qu'elle se trouve sur mo pc
MERCI.

[argyronet]

Bonjour,

chernirachid, le FSO risque de renvoyer lui aussi une erreur 70.

Seule l'api SHFileOperation pourra effectuer la copie à condition de prendre la précaution de vérifier que la base n'a pas été ouverte en mode exclusif par un tiers...

Argy

[chernirachid]

Meci Argyronet pour le conseil, mais par contre ça fonctionne bien a mon job sur un reseau. J'ai enlevé (\\) chez moi et ça fonctionne

Code :

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

1
2
3
4
5
6
7
8
9
10
Private Sub lblSave_Click()
 
 Dim fso As Object
 Dim strCurrent, strDest As String
  Set fso = CreateObject("Scripting.FileSystemObject")
    strCurrent = "ton chemin\matable.mdb"
   strDest = "ton chemin d'archive\archivematable.mdb"
  fso.CopyFile strCurrent, strDest
 set fso = Nothing
End Sub

Merci

[argyronet]

J'évoquais le cas où la base est encore ouverte...
Quand elle est fermée, évidement, on peut même user d'un simple FileCopy().

Argy

[hocine]

merci,
j'ai réussi sur un autre pc donc je ne sais pas où est le problème.
sa ne fait rien.
MERCI