Bonjour,
Tout est dans le titre. Sur mon interface Access j'ai un champ, lorsque je clique dessus le sélecteur de fichier s'ouvre, cependant il s'ouvre par défaut dans Bibliothèque\Images. Comment définir à l'ouverture du sélecteur un chemin par défaut ?
Voici mon code :
Merci pour votre aide,
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
25
26
27
28
29
30
31
32 If Me.AllowEdits = True Then Dim var As String Dim fd As Office.FileDialog ' Créer un objet FileDialog Set fd = Application.FileDialog(msoFileDialogOpen) ' Titre de la boîte de dialogue fd.Title = "Sélectionnez un fichier..." ' Ne pas autoriser la sélection multiple ' (donc 1 seul fichier est sélectionnable à la fois) fd.AllowMultiSelect = False ' Afficher la boîte de dialogue If fd.Show() Then MsgBox "Vous avez sélectionné le fichier : " _ & vbCrLf & fd.SelectedItems(1), vbInformation Me!lien_fib = fd.SelectedItems(1) & "#" & fd.SelectedItems(1) End If Set fd = Nothing Else: Exit Sub End If Exit_lien_fib_DblClick: Exit Sub Err_lien_fib_DblClick: MsgBox Err.Description Resume Exit_lien_fib_DblClick End Sub
Jordan.
EDIT :
En cherchant de plus près sur la FAQ, j'ai trouvé ma réponse :
Code : Sélectionner tout - Visualiser dans une fenêtre à part .InitialFileName = "c:\faqaccess.zip"
Partager