Discussion :

[kent1kent1]

Bonjour tout le monde,

Je me permets de solliciter vos compétences sur excel et en particulier sur l'activation d'un lien hypertexte, à partir d'un formulaire userform.

Pour les besoins du boulot, j'ai créé une sorte de main courante dont les données se
remplissent dans un tableau Excel via un formulaire userform.

Grace à ce formulaire, on doit pouvoir insérer un lien hypertexte en pièces jointes (tout type de fichiers, jpg, pdf, xls, xlsm etc.).
Pour cela, on clic sur un bouton de commande du formulaire qui ouvre une fenêtre "Choisir un fichier...".
Dans cette fenêtre, on va chercher le fichier que l'on souhaite créer en lien hypertexte dans le tableau de données, puis on clic sur ok.
Une fois le fichier sélectionné, le chemin apparaît bien dans une zone de texte du formulaire de saisie.
Enfin, lorsqu'on valide les saisies du formulaire, l'ensemble des données s'inscrivent bien
dans les différentes lignes et colonnes du tableau prévu à cet effet.

Néanmoins, même si le lien hypertexte apparaît bien dans la cellule souhaitée avec un format similaire à un lien hypertexte
(couleur bleue, souligné, \ etc.), ce dernier n'est pas activé.
En effet, lorsqu'on clic sur le texte en bleu et souligné (clic simple, double clic, avec Ctrl, Alt ou autre), le lien ne s'ouvre pas.
Le lien est bien inscrit format hypertexte et correspond au bon cheminement du fichier souhaité, mais il n'est pas activé.

Lorsqu'on fait un clic droit dans la cellule souhaitée et que l'on créer un lien hypertexte, le lien fonctionne.
Par contre quand on le fait via le formulaire, le texte s’insère au bon format mais le lien n'est pas activé.

Dés lors, y a t il un moyen (en VBA ou autre) d’insérer le lien hypertexte et de le rendre actif ?
- Directement via le userform ?
ou peut être
- Avec une manip qui sélectionnerait les cellules de la colonne souhaitée et transformerait
ce que l'on y met en lien hypertexte ?

Je suis débutant en VBA et j'ai tenté d'adapter ce code à mon formulaire pour que lorsqu'on clic dessus,
il ouvre une fenêtre qui aille chercher le fichier souhaité:

Code :

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

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

Grace à cela, le texte s’insère bien dans la cellule, mais le lien n'est pas actif.
Y a t il la possibilité d'activer ce lien ?

D'avance merci pour vos réponses car ça fait un moment que je galère là...

[romainorleans]

Bonjour,

Pour créer un lien tu peux utiliser cela:

Code :

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

1
2
3
 
ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:=Addressgetbyopenfilename, _
        TextToDisplay:=ifyouwanttocustomyourfilename

Addressgetbyopenfilename tu l'as déjà, redéfinis le comme tu veux
ifyouwanttocustomyourfilename Si tu veux ne garder que le nom de ton fichier, sans le chemin si complexe, pareil redéfinis le.

Normalement cela va te demander une confirmation avant ouverture, tu cliques oui et tu as ton lien.
Dis moi si cela fonctionne

[kent1kent1]

Bonjour romainorleans,

Avant tout merci beaucoup de prendre du temps pour essayer de trouver une solution à mon problème.

Ensuite, je suis totalement débutant en VBA.
Les codes que j'ai trouvé, je les ai "bidouillé" pour les adapter à mon userform.
Je ne comprends pas le langage VBA et ne sait pas l'adapter à mon userform.

Donc que veux tu dire par
"Addressgetbyopenfilename tu l'as déjà, redéfinis le comme tu veux"
et "ifyouwanttocustomyourfilename Si tu veux ne garder que le nom de ton fichier, sans le chemin si complexe, pareil redéfinis le".

De plus, je le mets où ? juste à la suite ou je créer une autre "commande" ?

Merci d'avance pour ta réponse et ta patience.

Cordialement,

Je te joints une tentative infructueuse de ma part pour adapter ton code au miens.