Discussion :

[gaett]

Bonjour à tous,

je viens chercher un peu d'aide pour me guider, je vous explique mon contexte.
J'ai cette macro qui permet de creer un lien Hyperlink (en colonne B), en fonction d'une valeur en cellule A. Si le fichier existe dans le dossier pointé
(ici dossier Test > C:\Test\), l'hyperlink est créé.

L'inconvénient de mon code, est que cette fonction ne tourne qu'avec un seul type d'extension (exemple .jpg). Et l'hyperlink créé, correspond
de manière exacte à la valeur présente en cellule A + ajout de l'extension.

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
 
Sub CreationLiens()
Dim Lien
'Selection.End(xlDown).Select
'fin = Selection.Row
Dim Fichier As String
Const Dossier As String = "C:\Test\"
r = Range("A500").End(xlUp).Row
Columns("B:B").Clear
For i = 3 To r
        Fichier = Dossier & Range("A" & i) & ".jpg"
        If Len(Dir(Fichier, vbNormal)) > 0 Then
            ActiveSheet.Hyperlinks.Add Anchor:=Range("B" & i), Address:=Dossier & Range("A" & i) & ".jpg", TextToDisplay:=CStr(Range("A" & i))
        Else
            Range("B" & i) = ""
        End If
        Dir ("")
    Next
 
End Sub

Je voudrais savoir si ce code peut être adaptable pour tourner avec tout type d'extension (comme un .*), car j'ai des fichiers .jpg, .png, .doc, .pdf etc...
Et dans mon excel en cellule A, j'ai par exemple ABC2315802 mais mon fichier dans mon dossier se nomme en fait ABC2315802_00, est-il possible de faire une recherche "commençant par la valeur de la cellule A" et créér l'hyperlink avec le vrai nom du fichier ?

Et enfin, je peux avoir dans mon dossier 'test', deux fichiers portant le même nom mais ayant une extension différente, je voudrais savoir s'il y
avait la possibilité de creer ces deux hyperlinks (dans la colonne suivante par exemple ou dans la même à la suite)?

Je ne demande pas de réponse toute faite, je voudrais dans un premier temps savoir si c'est réalisable sans entreprendre de "grands travaux",
ci joint mon dossier test, ainsi que le fichier de ma macro.

Avec mes remerciements avancés,
Gaetan

[Zekraoui_Jakani]

Si ça a fonctionné avec

Code :

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

Fichier = Dossier & Range("A" & i) & ".jpg"

ça devrait fonctionner avec

Code :

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

Fichier = Dossier & Range("A" & i) & ".*"

As-tu essayé les autres extensions une par une pour voir celle qui bloque ?

[kiki29]

Salut, pour info si curieux voir : Liste des fichiers d'un dossier + Liens

Liste des fichiers d'un dossier avec recherche récursive ou non via les APIs
Possibilité de créer des liens hypertextes vers les fichiers listés