Discussion :

[JordanITDev]

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 :

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

Merci pour votre aide,
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"

[loufab]

Comme quoi quand on dit "la faq doit être le premier reflexe avant de poster..." y a du vrai.