Sauvegarde vers autre fichier
ludosnip
Messages postés
52
Statut
Membre
-
neogenesis Messages postés 5303 Statut Contributeur -
neogenesis Messages postés 5303 Statut Contributeur -
Bonjour,
j'aimerais faire une sauvegarde de mon fichier nommé CDI qui se trouve sur C:\ vers un autre fichier Access qui lui se nomme sauvegarde qui se trouve sur C:\, j'ai testé cela mais ca ne marche pas
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
Quelqu'un pourrait m'aider ?
merci d'avance
j'aimerais faire une sauvegarde de mon fichier nommé CDI qui se trouve sur C:\ vers un autre fichier Access qui lui se nomme sauvegarde qui se trouve sur C:\, j'ai testé cela mais ca ne marche pas
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
Quelqu'un pourrait m'aider ?
merci d'avance
A voir également:
- Sauvegarde vers autre fichier
- Fichier bin - Guide
- Fichier epub - Guide
- Logiciel de sauvegarde gratuit - Guide
- Fichier rar - Guide
- Comment réduire la taille d'un fichier - Guide
3 réponses
CurrentProject.Path te renvoie le dossier ou se trouve ton programme compilé !!
Enlève juste CurrentProject.path
Ca devient donc :
strCurrent = "C:\CDI.mdb"
strDest = "C:\sauvegarde.mdb"
Easy ;-)
Enlève juste CurrentProject.path
Ca devient donc :
strCurrent = "C:\CDI.mdb"
strDest = "C:\sauvegarde.mdb"
Easy ;-)
merci pour m'avoir répondu, j'ai essayé mais cela me met un message d'erreur "Erreur d'exécution 70 permission refusée"
voici mon code :
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
voici mon code :
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
