Lien hypertexte + macro

Bonjour,

Novice en macro et Cie, je viens vous demander secours.

J'ai un tableau Excel, en colonne A, un type d'outil, en colonne B, le nom de l'outil.
Pour chaque outil, j'ai un fichier pdf rangé sur C:\leelya\vérification, dans un dossier "type d'outil" ayant pour nom "nom de l'outil.pdf".

Par exemple :
A2=Perceuse, B2=Perceuse 1
A3=Meule, B3=Meule 3

J'ai un fichier pdf
C:\leelya\vérification\Perceuse\Perceuse 1.pdf
C:\leelya\vérification\Meule\Meule 3.pdf

J'ai bien compris comment créer des liens hypertexte automatique, puisque en colonne C, j'ai pu insérer :
=LIEN_HYPERTEXTE(CONCATENER("C:\leelya\vérification\";A2;"\";B2;".pdf");B2)

Mais ! (faut bien qu'il y en ait un)
Je voudrais :
1) supprimer la colonne C, et mettre mon lien hypertexte directement sur la colonne B
2) pouvoir faire une macro au cas où je rajoute des lignes entre par exemple ligne 2 et ligne 3.

Voilà pourquoi la macro.

Mon soucis, comme dit, étant novice, c'est que dans ma macro, je ne peux mettre la même formule que dans ma colonne C, sans que ça beugue... (erreur de syntaxe).

Vous pouvez m'aiguiller ?

Merci infiniment !

Leelya

Bonjour,

Un truc du genre:

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22

Sub Macro1()   Dim cpt_l As Integer Dim repDefaut As String, outil As String, nomoutil As String, cheminPdfComplet As String   repDefaut = "C:\leelya\vérification\"   For cpt_l = 2 To Sheets("Feuil1").Range("a" & Rows.Count).End(xlUp).Row outil = Sheets("Feuil1").Cells(cpt_l, 1) 'COLONNE A nomoutil = Sheets("Feuil1").Cells(cpt_l, 2) 'COLONNE B   cheminPdfComplet = repDefaut & outil & "\" & nomoutil & ".pdf"   Sheets("Feuil1").Cells(cpt_l, 2).Select ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:=cheminPdfComplet, _ TextToDisplay:=nomoutil   Next cpt_l   End Sub

---

Cordialement

Première réaction : Quoi !? tout ça pour "juste" remplacer "=LIEN_HYPERTEXTE(CONCATENER("C:\leelya\vérification\";A2;"\";B2;".pdf");B2)" ?

Puis vient l'effet KissKool :

Wahou !! Goldstar est vraiment génial, c'est l'ensemble de la macro !!

Je n'en demandais pas tant !! Tout fonctionne nickel ! 1000x MERCI ! :D:D:D:D:D:D

Pour un peu, je mettrais <3 <3 <3