Bonjour

Mon problème est le suivant :
J’ai créé une base de données qui permet de sauvegarder des bases de données sans passer par le poste de travail
J’utilise le code suivant proposé par Flo88 sur ce forum

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Private Sub Valider_Click()
 
Dim SourceFile, DestinationFile, chemin
 
chemin = CurrentProject.Path
 
SourceFile = "" & chemin & "\vet_base_vide.mdb"    ' Définit le nom du fichier source.
 
DestinationFile = "" & chemin & "\vet_base_" & txtSite & "" & ".mdb" & "" ' Définit le nom du fichier cible.
 
' Copie le fichier source dans le fichier cible.
FileCopy SourceFile, DestinationFile
 
MsgBox ("La base " & DestinationFile & " a bien été ajoutée")
 
End Sub
Il fonctionne parfaitement mais j’aimerai pouvoir saisir les noms des fichiers SourceFile et DestinationFile dans un champ de formulaire et ainsi donner le choix du fichier à copier et le nom de la copie.

Merci de votre aide