Discussion :

[benoit13]

(RE RE) Bonjour,

Je souhaite créer un bouton "Parcourir" pour remplir une zone de mon formulaire.
J'ai trouvé une solution qui nécessite l'emploie de la référence Microfoft Common Dialog Control. Or je n'y ai pas accès. Savez vous comment puis je la trouver ou bien connaissez vous une solution qui permette de s'en passer (j'ai trouvé un code qui s'affranchit de cette ref mais il est très compliqué à mon sens...)

Merci bcp d'avance

Cordialement

Benoit

[Invité]

Bonjour

Tu as tout le code dans la

Starec

[benoit13]

Oui, j'ai regardé la FAQ avant de poster mais je n'ai ni la référence "Microfoft Common Dialog Control" ni la propriété GetOpenFileName de l'objet Application.

Quand je commence à taper "Application." il me propose une liste de choix dans laquelle GetOpenFileName n'est pas présent ce qui, il me semble, signifie qu'Access ne reconnait pas cette propriété...

Si quelqu'un a eu le même problème ou sait comment m'orienter je suis preneur!

Merci d'avance!

[benoit13]

Alors j'ai trouvé une solution en appelant la référence Microsoft Excel puis avec le code

Code :

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

1
2
3
4
5
6
Private Sub btn_chercher_Click()
 
CheminEtNom = Excel.Application.GetOpenFileName("Fichiers pdf (*.pdf),*.*", Null, "selection")
MsgBox ("Fichier choisi = " & CheminEtNom)
 
End Sub