Discussion :

[Leelya]

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

[goldstar]

Bonjour,

Un truc du genre:

Code :

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

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

[Leelya]

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 !

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