Discussion :

[camzo]

Bonjour à toutes et à tous,

Je dispose d'un fichier Excel qui contient en gros le contenu suivant:

Arborescence des répertoires:

reference	indice	hyperlien
1234-X-123-VV-UUU-00001-ZZ-A	23E	link
1234-X-125-ZZ-UUA-00002-ZZ-A	12R	link
1234-X-127-AA-UUT-00003-ZZ-A	12R	link

L'idée est d'activer les links gentillement tapés à la main en colonne 3.

Ces links sont définis en fonction du contenu des références des documents PDF associés:

• Lien du doc 1234-X-123-VV-UUU-00001-ZZ-A sera: ./REP1/123/VV/UUU/1234-X-123-VV-UUU-00001-ZZ-A_23E.pdf
• Lien du doc 1234-X-123-ZZ-UUA-00002-ZZ-A sera: ./REP1/123/ZZ/UUA/1234-X-123-ZZ-UUA-00002-ZZ-A_12R.pdf
• Lien du doc 1234-X-127-AA-UUT-00003-ZZ-A sera: ./REP1/127/AA/UUT/1234-X-127-AA-UUT-00003-ZZ-A_12R.pdf

Bref, cela donne l'arborescence suivante sur mon disque dur qui héberge le tout:
- listing Excel
-- REP1
--- 123
---- VV
----- UUU
------ 1234-X-123-VV-UUU-00001-ZZ-A_23E.pdf
---- ZZ
----- UUA
------ 1234-X-123-ZZ-UUA-00002-ZZ-A_23E.pdf
--- 127
---- AA
----- UUT
------ 1234-X-127-AA-UUT-00003-ZZ-A_23E.pdf


Cela me semble automatisable car les références sont toujours structurées de la même manière et le nombre de digit est toujours identique. Mais je ne vois pas comment expliquer en VBA qu'il faut construire le lien en fonction des parties de la numérotation des documents.

D'avance merci pour votre aide.

Cordialement,
Camzo

[RyuAutodidacte]

Bonjour,
Exemple à adapter :

Code :

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

1
2
3
4
5
6
7
Sub Exemple()
    For i = 2 To 4
        Ref = Range("A" & i).Value: Ind = Range("B" & i).Value
        Lien = "./REP1" & Replace(Mid(Ref, 7, 12), "-", "/") & Ref & "_" & Ind & ".pdf"
        'Ici tu fais ton hyperlien dans la col C
    Next
End Sub

Edit : j'ai juste oublié un slash, c'est corrigé

[kiki29]

Salut, à voir par curiosité : Liste des fichiers d'un dossier + Liens

[RyuAutodidacte]

Avec l'hyperlien :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Sub Exemple()
Dim Ref$, Ind$, lien$
    For i = 2 To 4
        With Sheets("Feuil1")
            Ref = .Range("A" & i).Value: Ind = .Range("B" & i).Value
            lien = "./REP1" & Replace(Mid(Ref, 7, 12), "-", "/") & Ref & "_" & Ind & ".pdf"
            .Hyperlinks.Add Anchor:=.Range("C" & i), Address:=lien, TextToDisplay:="Link"
            '.Range("D" & i) = lien
             Debug.Print lien
        End With
    Next
End Sub

Edit : j'avais oublié un point je l'ai rajouté sur la col C

[camzo]

Merci à vous, le code fonctionne très bien.
Et je comprends désormais comment découper ma référence pour en construire le chemin.

Bonne continuation !

Cordialement,
Camille