Discussion :

[L.Lemarchand]

Bonjour,

En VB access et en cliquant sur un bouton de formulaire, j'aimerais pouvoir afficher une boîte de dialogue permettant de sélectionner un fichier présent sur le disque dur par exemple. Le but n'est pas d'ouvrir le fichier mais de mémoriser le chemin d'accès dans un champ ou une variable pour le réutiliser en envoi de mail.

Comment faire ?

Merci d'avance

[Jean-Philippe André]

hello,
regarde les possibilités que t'offre GetOpenFileName() via Excel

[Kalion]

Je pense que ça répond à ta question

'à déclarer en début de ton formulaire

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Dim Filepath As String
 
Private Sub cmd_fonction_Click()
'L'utilisateur renseigne le chemin du fichier à importer
Filepath = OpenFile("C:\", Mono_Sélection, , MSOffice)
If Filepath = "" Then
    MsgBox ("Veuillez sélectionner un fichier à importer")
Else
'appel de fonction
    Fonction_à_faire
End If
 
End Sub

[L.Lemarchand]

Ok pour GetOpen mais je suis sous access !?
Et j'avoue que je ne sais comment appliquer ta solution.

Merci de m'aider

[Heureux-oli]

Salut,

Tu dois ajouter à ton projet la bibliothèque Office qui n'est pas automatiquement associée à Access.

Microsoft Office XX.X Object Library

Code :

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

1
2
3
4
5
6
7
8
Sub test()
Dim dlg As FileDialog
 
Set dlg = Application.FileDialog(msoFileDialogFilePicker)
dlg.Show
MsgBox dlg.SelectedItems(1)
 
End Sub

[L.Lemarchand]

Merci Heureux Holi,

Super ! Ca marche impec

Merci encore

Super forum, chapeau

Laurent LEMARCHAND