Lien Hypertexte en VBA

Résolu/Fermé
Kuartz Messages postés 850 Date d'inscription vendredi 13 février 2015 Statut Membre Dernière intervention 15 février 2019 - 8 juin 2015 à 17:02
Kuartz Messages postés 850 Date d'inscription vendredi 13 février 2015 Statut Membre Dernière intervention 15 février 2019 - 19 juin 2015 à 11:21
Bonjour à tous,

Voilà, je souhaiterais créer un fichier excel avec du code VBA dont les caractéristiques seraient les suivantes :
- Dans la colonne A, des données du type AM2345 (2 lettres + 4 chiffres)
- Dans la colonne B, un lien hypertexte créé automatiquement appelé "Dossier AM2345"
- Il faut que le lien hypertexte m'ouvre le dossier "AM2345" dont le chemin est K:\DOSSIERS\AM2345 (il faut en fait que le lien hypertexte ouvre le dossier dont le nom est strictement celui présent dans la cellule de la même ligne dans la colonne A).

Je sais pas si tout cela est faisable. Mais je vous remercie beaucoup d'avance pour votre réflexion sur mon problème.

Cordialement.

2 réponses

PlacageGranby Messages postés 393 Date d'inscription mercredi 26 mars 2014 Statut Membre Dernière intervention 7 mars 2019 26
8 juin 2015 à 22:36
Bonjour,

Voici en gros quelque ligne de code qui pourront t'inspirer.

Sub hypertexte ()
Dim Dernligne, Debut, I as long

Debut = 2
DernLigne = Range("A65536").End(xlUp).Row

For i = Debut to dernligne
ActiveSheet.Hyperlinks.Add Anchor:=Range("B" & i), Address:="K:\dossiers\" & Range("A" & i).value, TextToDisplay:="Dossier " & Range("A" & i).value
next i
End Sub
0
Kuartz Messages postés 850 Date d'inscription vendredi 13 février 2015 Statut Membre Dernière intervention 15 février 2019 61
19 juin 2015 à 11:21
Merci :)
0