Lien Hypertext

[drfreud]

Bnjour,

Je souhaite creer des lien hypertext a partir d' une cellule, et je souhaite que se lien renvoye vers une page html ayant dans l'adresse le contenu de la cellule:

exemple

CELLULE A1 AA787878 doit renvoyer vers http://mon_fichier_AA787878.html

CELLULE A2 AA999999 doit renvoyer vers http://mon_fichier_AA999999.html

etc... et ce de facon automatique si possible (j'ai bcp de cellule)

QQ peux m'aider???


Merci

 

[michel]

bonsoir Drfreud

j'espere que la macro ci dessous pourra t'aider
un lien est inséré dans les cellules de la colonne A

Sub InsertLien()
Dim Cell As Range
For Each Cell In Range("A1:A" & Range("A65536").End(xlUp).Row)
Hyperlinks.Add Anchor:=Cell, Address:="http://mon_fichier_" & Cell & ".html"
Next Cell
End Sub

bonne soirée
michel

 

[michel]

bonsoir

ci joint la procedure modifiée . suite au message que j'ai reçu de Julien ( message d'erreur 424 lors de l'utilisation de la macro )
il reste à adapter le nom de la feuille en fonction de ton projet

Sub InsertLien()
Dim Cell As Range
For Each Cell In Range("A1:A" & Range("A65536").End(xlUp).Row)
Worksheets("Feuil1").Hyperlinks.Add Anchor:=Cell, Address:="http://mon_fichier_" & Cell & ".html"
Next Cell
End Sub

bonne soirée
michel