Discussion :

[gegila]

salut à tous et Meilleurs voeux 2006

Petit Pb lors d'un essai de copy de fichier selon Procédure ci dessous
j'ai le Message : Erreur d'exécution '70'
Permission refusée
(Sous Acces 2003)

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Private Sub Sauvegarde_Click()
 
   'Déclarer deux variables string pour les emplacements
   Dim EmpInitial As String, EmpFinal As String
 
   EmpInitial = Application.CurrentProject.Path & "\Analyses.mdb"
   EmpFinal = Application.CurrentProject.Path & "\Sauvegarde\"
 
 'Copie du fichier
     FileCopy EmpInitial, EmpFinal
 
    MsgBox " Sauvegarde du répertoire en entier sous c:\Sauvegarde"
 
End Sub

Merci pour votre Aide

modération : cafeine,

[cafeine]

Hello,

l'initial est un fichier ...
le final est un dossier ...

ça vous surprend que la copie soit un échec ?

faîtes en sorte que EmpFinal désigne un fichier ...

[gegila]

Merci pour votre réponse

J'ai écrit cela et j'ai toujours la même erreur

EmpFinal = Application.CurrentProject.Path & "\Sauvegarde\analyses.mdb"

[cafeine]

n'êtes vous pas précisement en train de travailler sur analyses.mdb ce qui provoquerait un blocage ?

[gegila]

Oui,
il faut peut être fermer le fichier avant de travailler.
Si oui méthode la + simple SVP

Merci d'avance

[cafeine]

Oui il faut libérer l'accès au fichier

[gegila]

OK cela Marche

Merci de votre conseil

Un débutant