Discussion :

[ravidat]

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

[Jean-Philippe André]

Bonjour ravidat,
bienvenue sur DVP
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 :

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

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

[electrosat03]

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+

[ravidat]

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