Copier un fichier avec VBA

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:

---

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

Bonjour ravidat,
bienvenue sur DVP :salut:
qu'attends-tu de notre part ici ?
l'idée est de créer toi-même un formulaire, avec deux textbox (textboxsource et textboxdestination), et de modifier le code avec ceci :

Code:

---

1 2 3

SourceFile = "" & me.Textboxsource ' Définit le nom du fichier source.   DestinationFile = "" & me.TextboxDestination 'Définit le nom du fichier cible.

---

Salut,

Pourquoi ne pas mettre 2 zone de texte dont tu récupère ce qui a été entré.

JPCheck a été plus vite que moi

A+

Merci à vous, je ne suis pas expert en VBA et votre aide a été pour moi d'un grand secours.
Tout marche et c'est magnifique