Discussion :

[csophie49]

Bonjour,

J'ai créé un fichier Excel pour une base de données pour mon travail. J'ai ajouté un bouton qui ouvre un formulaire de saisie de nouvelles données. Sur ce userform, j'ai besoin que les utilisateurs puissent sélectionner des liens hypertexte pour les insérer dans une zone de texte via un bouton parcourir.
J'ai programmé le bouton parcourir et il ouvre bien la fenêtre "insérer lien hypertexte" mais je ne sais pas comment récupérer le lien pour qu'il apparaisse dans ma zone de texte ("LIEN") du userform.
J'ai vu à plusieurs reprises cette question sur le net mais jamais personne ne répond. Je suis désespérée car même mon service informatique ne sais pas...

Voici le code de mon bouton "PARCOURIR"

Code :

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

1
2
3
Private Sub parcourir_Click()
Application.Dialogs(xlDialogInsertHyperlink).Show
End Sub

Vous êtes mon dernier espoir! Merci d'avance pour votre aide.

[ouskel'n'or]

Ne désespère pas, la solution existe, je l'ai rencontrée
Il y a effectivement un problème de syntaxe. Je jète un oeil car je ne l'ai plus en tête mais la solution a déjà été donnée sur ce forum. Déjà une chose, le lien qui se trouve dans la zone de texte ne peut être utilisé tel quel. Bref, je reviens

Je suppose ta zone de texte dans une feuille de calculs et le lien hypertexte associé à cette zone de texte.
C'est Follow qu'il faut employer.
Tu as un exemple dans l'aide en ligne

Code :

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

Worksheets(1).Shapes(1).Hyperlink.Follow NewWindow:=True

Si j'ai bien compris ta demande...

[csophie49]

Heu non, ma zone de texte n'est pas dans une feuille de calcul mais dans un formulaire (userform) et c'est là toute la difficulté (pour moi). Il faut que le lien hypertexte (l'adresse du fichier) vienne se mettre dans ma zone de texte du formulaire. Le bout de code que j'ai mis dans mon 1er message c'est juste pour ouvrir la boite de dialogue d'insertion de lien hypertexte maintenant faut que je trouve la suite qui permet de récupérer l'info (l'adresse du fichier) et la mettre là ou je veux (ma zone de texte).

Je joins en pièce jointe une capture d'écran pour aider les personnes à comprendre mon prob.


Merci de votre aide.

[ouskel'n'or]

Je ne sais pas si j'ai bien compris mais voilà :
Je suppose que tu récupères le chemin et le nom de ton lien quelque part pour le placer dans un textbox...
Tu as donc l'adresse du lien dans ce textbox et tu veux créer le lien.
Ce lien tu dois le placer quelque part
Tu ne peux le placer que dans un objet d'une feuille de calculs Shape ou range
Pour le placer tu dois utiliser Hyperlinks.add. F1 sur Hyperlinks puis Add -> Hyperlinks te donne la syntaxe.
Pour t'aider, place une textbox et un bouton tout bêtes dans un userform et place ce code dans la feuille de code de l'userform
Change simplement l'adresse du fichier et exécute. Le lien ira se placer en A1.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Private Sub CommandButton1_Click()
Dim NomFich as string
    NomFich = TextBox1
    With Worksheets(1)
        .Hyperlinks.Add .Range("A1"), NomFich
    End With
 
End Sub
 
Private Sub UserForm_Initialize()
'TextBox1 = "C:\Documents and setting\Le user\tes docs\Le nom du Classeur, de l'image ou du doc"
TextBox1 = "D:\xls\Classeur1.xls"
End Sub

Est-ce que tu souhaites ?
Tu dis
A+

[csophie49]

Je crois que je vais pleurer

Je suppose que tu récupères le chemin et le nom de ton lien quelque part pour le placer dans un textbox...

Non mais j'aimerais bien car justement c'est exactement cela que je veux...

Ce lien tu dois le placer quelque part
Tu ne peux le placer que dans un objet d'une feuille de calculs Shape ou range

C'est bien dommage car moi je veux que cela se mette dans la textbox de mon userform.

Je mets en pièce jointe carrement mon fichier comme cela tu auras une meilleure visibilité de mon casse tête.

Merci de ta patience et de ton interêt.

[ouskel'n'or]

Fallait le dire tout de suite :

Je souhaite sélectionner un fichier dans une liste afin que son nom s'affiche dans une textbox.
Et une fois connus le chemin et le nom du fichier, je veux que le lien soit établi par un clic sur la textbox.

Confirme-nous tout ça
A+

C'est bien dommage car moi je veux que cela se mette dans la textbox de mon userform.

Ça, tu oublies ça. Définitivement !

[csophie49]

Si je dois oublier définitivement le fait d'inserer les liens hypertexte dans la textbox de mon userform mon problême n'a pas de solution.

Ta reformulation n'est pas tout à fait correct.

Et une fois connus le chemin et le nom du fichier, je veux que le lien soit établi par un clic sur la textbox.

Je ne veux pas que le lien soit établi par un clic sur la textbox, je veux que lorsque je valide mon formulaire toutes mes données saisies dedans bascule dans la feuille de calcul exactement à leur place prévue (définies par un code déjà en place).

S'il n'y a vraiement pas de solution,
Je demanderais donc aux utilisateurs de rentrer eux même et directement les liens voulus dans la colonne prévue à cet effet en faisant: insertion>lien hypertexte ou CTRL+K

[ouskel'n'or]

Je ne veux pas que le lien soit établi par un clic sur la textbox, je veux que lorsque je valide mon formulaire toutes mes données saisies dedans bascule dans la feuille de calcul exactement à leur place prévue (définies par un code déjà en place)

Ça revient au même. Qu'un clic valide ton textbox ou que la validation se fasse à la fermeture de ton userform ou par un clic sur une image ou un clic sur la croix ou sur n'importe quel événement intercepté par un contrôle quelconque de l'userform, c'est tout pareil.
Au lieu de mettre le code dans le clic d'un bouton, place-le dans UserForm_QueryClose ou dans tout autre événement de l'userform de ton choix.
Qu'est-ce qui te manque ?

[Pierre Fauconnier]

Salut.

Est-ce vraiment un lien hypertexte que tu veux insérer, ou bien veux-tu chercher un fichier pour en faire un lien hypertexte lorsque tu copieras les données du userform dans la feuille?

[csophie49]

Bonjour,

Dans mon userform ce n'est pas forcément le lien hypertexte que je veux insérer mais au moins le chemin(adresse) du fichier choisi. Car quand je valide le userform, la donnée de cette case remplie vient se mettre dans une cellule bien précise qui, elle, est au format lien hypertexte. Donc s'il existe une technique pour avoir au moins le chemin du fichier (en texte)dans ma textbox cela me convient.
Et là ce qui me manque c'est le fait de récupérer le chemin que j'ai choisi dans ma boite dialogue "insérer lien hypertexte". Ma boite de dialogue s'ouvre bien lorsque je clique sur le bouton "parcourir" mais si je sélectionne le fichier voulu, il ne se passe rien (normal car il manque des lignes de programme que justement je cherche). Il faut que lorsque je sélectionne mon fichier dans cette boite de dialogue, le chemin vienne se mettre dans ma textbox.

merci d'avance

[csophie49]

Bon ça y est j'ai trouvé!!!

Donc je met la solution pour les autres personnes dans le même cas car j'ai dejà lu des posts où les gens ont trouvé d'eux même mais n'ont jamais mis la solution (trés malin)...

Attention la voilà.

Code :

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

1
2
3
4
5
6
Private Sub parcourir_Click()
 
Textbox1.Text = Application.GetOpenFilename("Tous,*.*", , "Choisir un fichier ...")
DoEvents
 
End Sub

Et c'est tout!

Merci quand même à ceux qui ont essayé de m'aider

[laitram69]

Voici !!!

Code :

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

1
2
3
4
5
6
Private Sub CommandButton1_Click()
 
TextBox_.Text = "file:///" & Application.GetOpenFilename
DoEvents
 
End Sub