Discussion :

[JimmyB]

Comment récupérer le nom et le chemin du fichier sélectionné pour ensuite le placer dans une zone de texte qui contient un lien hypertexte.

J'ai essayé avec le tuto de http://access.developpez.com/faq/?pa...#AffBoitDialog et tout ce que je veux c'est que ce ne soit pas un MsgBox.

Code :

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

1
2
3
Private Sub Commande1_Click()
MsgBox OuvrirUnFichier(Me.hwnd, "Parcourir", 1, "Fichier Word", "doc")
End Sub

Merci

[JimmyB]

Personne sait comment ????

[cafeine]

Personne sait comment ????

Hello,

en enlevant MsgBox sans doute ...

Code :

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

1
2
3
4
Dim StrFile As String
StrFile = OuvrirUnFichier(Me.hwnd, "Parcourir", 1, "Fichier Word", "doc") 
 
Me.txtMonTextBox = StrFile

[JimmyB]

Merci Cafeine,

Ça marche pour que le texte s'affiche dans ma zone de texte sauf que pour mon lien ça ne marche pas, ça vient juste prendre le texte à afficher et non l'adresse.

Si tu as une solution...

Merci

[cafeine]

As-tu essayé le code proposé dans la FAQ ?

http://access.developpez.com/faq/?pa...enHyperTxtCode

[JimmyB]

Non je n'avais pas vu, merci, j'insère ou se code dans mon évenement du bouton...

Application.FollowHyperlink

Code :

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

1
2
3
4
Dim StrFile As String 
StrFile = OuvrirUnFichier(Me.hwnd, "Parcourir", 1, "Fichier Word", "doc") 
 
Me.txtMonTextBox = StrFile

Merci de m'aider.

[Arkham46]

le lien hypertexte a un format particulier qu'il faut respecter, sinon autant utiliser un champ texte classique

y a tout ce qu'il faut dans le forum