Macro de création lien HT variable

Bonsoir,
Je souhaiterai créer une macro qui me permettrait d'assigner à une suite de cellules contenant des nombres des liens hypertexte (vers des fichiers images). Ces liens déterminés à partir d'un string donné doivent contenir les nombres entrés sur 4 positions.
ex:
A2______1
A3_____23
A4____125

S1 string= "\dossier 1\sdossier 2\"

_______liens générés_____________________________affichage
A2_____\dossier 1\sdossier 2\IMAG_0001.jpg__________0001
A3_____\dossier 1\sdossier 2\IMAG_0023.jpg__________0023
A4_____\dossier 1\sdossier 2\IMAG_0125.jpg__________0125

Si je change un nombre ou le string, en ré-exécutant la macro, je dois obtenir un lien (effaçant l'ancien) vers une nouvelle image.
Merci par avance de votre aide
Jimmy

Pour compléter, je joins une feuille peut-être plus explicite.
merci

Quelque chose du genre:

Code:

---

ActiveSheet.Hyperlinks.Add Anchor:=cells(2,1), Address:=S1 & "IMAG_" & A2 & ".jpg"

---

Mais il faut t'assurer avant que A2 contienne un truc à 4 caractères avec un boucle du style:

Code:

---

1 2 3

while len(A2)<4 A2="0" & A2 Wend

---

Voilà pour la logique après il faut que tu bidouille pour adapter au mieux a ta situation.

Fred, après essai, le lien généré ne prends pas en compte ni S1 ni A2. Il génére : "IMAG_.jpg". Je souhaiterai plutôt : "dossier 1\sdossier 2\IMAG_0001.jpg"
Si j'ose abuser, autre question, comment générer une boucle itérative depuis A2 jusqu'a A30 par exemple?
Encore merci

J'ai enfin trouvé pour l'obtention du lien, Il faut utiliser Range() pour le contenu d'une cellule ex:
ActiveSheet.Hyperlinks.Add Anchor:=Cells(2, 1), Address:= "dossier\IMAG_" & Range("A2") & ".jpg"
Je vais chercher dans le FAQ pout l'Itération de ma macro.
Merci Beaucoup Je poste en résolu.
Jimmy

Si S1 contient bien "dossier 1\sdossier 2\" et A1 "0001" y'a pas de raison que le lien ne pointe pas vers "dossier 1\sdossier 2\IMAG_0001.jpg".

En fait je crois que je vient de comprendre A1 c'est la cellule et pas une variable ? Quid de S1 ?

Si c'est ça il faut que tu fasse:

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13

dim i as integer dim S1 as string dim numero(2 to 30) as string   S1="\dossier 1\sdossier 2\"   for i=2 to 30 numero(i)=cells(i,1) while len(numero(i))<4 numero(i)="0" & numero(i) wend ActiveSheet.Hyperlinks.Add Anchor:=cells(i,1), Address:=S1 & "IMAG_" & numero(i) & ".jpg" next i

---

Edit: oui ta solution est bien aussi.

Fred, et à tous
La solution définitive qui pour moi fonctionne et me ravit!

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16

Sub LienHT() Range("A2").Select Dim DernLigne As Long DernLigne = Range("A65536").End(xlUp).Row Dim i As Integer Dim Numero As String For i = 2 To DernLigne Numero = ActiveCell While Len(Numero) < 4 Numero = "0" & Numero Wend ActiveSheet.Hyperlinks.Add Anchor:=Cells(i, 1), Address:= "Dossier\Sdossier 2\IMAG_" & Numero & ".jpg", TextToDisplay:=Numero Selection.NumberFormat = "0000" ActiveCell.Offset(1, 0).Select Next i End Sub

---

Merci encore