Comment proposé le path (chemin) pour netrer dans un text box

**multimedia999** · 28/01/2018, 17h18

Bonjour,

Dans un formulaire Access 2016, dans un "text box", je dois entrer du texte représentant le chemin et le nom d' un fichier présent sur le PC (Exemple: C:\dossier1\dossier2\dossier3\fichier.ext).
Je voudrais pouvoir sélectionner ce chemin avec un choix dans l' arborescence existante du PC, un peu comme avec un bouton parcourir en pouvant sélectionner le chemin avec la souris sans entrer le texte au clavier.
Ceci permettrait d' être sur d' entrer un chemin et un fichier existant sur le PC.
Je ne vois pas comment faire.
quelqu'un peut-il m' aider?

Merci
Daniel Paulus

**User** · 28/01/2018, 17h46

Rebonsoir,

Vous avez l'objet FileDialog comme dans la faq.

Cdlt,

**multimedia999** · 28/01/2018, 18h07

Merci,

Je fais faire des tests.
A noter que je veux juste récupérer le nom du chemin et du fichier (pour le placer dans un champs texte d' une table et pas ouvrir ou récupérer le fichier. Le control "FileDialog" est-il utilisable dans ce cas?

Merci
Daniel Paulus

**User** · 28/01/2018, 18h44

Bonjour,

Oui, tout à fait, un exemple sur le clic d'un bouton de commande "CmdChoisir" :

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
17
18
19
20
21
22
23
24
Private Sub CmdChoisir_Click()
Dim fd As Object
Dim cheminFichier as string
 
  ' Créer un objet FileDialog
  Set fd = Application.FileDialog(1)
 
  ' Titre de la boîte de dialogue
  fd.Title = "Sélectionnez un fichier texte..."
 
  ' Ne pas autoriser la sélection multiple
  ' (donc 1 seul fichier est sélectionnable à la fois)
  fd.AllowMultiSelect = False
 
  ' Définir les types de fichiers autorisés
  fd.Filters.Clear
  fd.Filters.Add "Fichiers Texte", "*.txt"
 
  ' Afficher la boîte de dialogue
     If fd.Show() Then
      CheminFichier = fd.SelectedItems(1)  ' Chemin du fichier sélectionné copié dans une variable
     End If
 
End Sub

Cdlt,