Bonjour à Tous,
Voilà, j'ai une macro qui va chercher un certain nombre d'information dans différents fichiers (tous sous le même dossier) pour les récapituler sous le forme d'un tableau.
Est il possible de créer dans ce tableau récap un lien hypertexte qui me dirigerait vers le fichier correspondant.
Voilà le code de ma maccro:
Merci pour vos retours....
Voilà, j'ai une macro qui va chercher un certain nombre d'information dans différents fichiers (tous sous le même dossier) pour les récapituler sous le forme d'un tableau.
Est il possible de créer dans ce tableau récap un lien hypertexte qui me dirigerait vers le fichier correspondant.
Voilà le code de ma maccro:
Code:
Dim X As Integer, nbFichiers As Integer, Y As Integer
Dim Tableau() As String
Dim Direction As String
Application.ScreenUpdating = False
Direction = Dir("C:\Dossier\*.xls")
Do While Len(Direction) > 0
nbFichiers = nbFichiers + 1
ReDim Preserve Tableau(1 To nbFichiers)
Tableau(nbFichiers) = Direction
Direction = Dir()
Loop
If nbFichiers > 0 Then
Y = 7
For X = 1 To nbFichiers
If Tableau(X) <> ThisWorkbook.Name Then
With ActiveSheet
.Cells(Y, 1).Formula = "='C:\Dossier\[" & Tableau(X) & "]Nom de la feuille" & "'!" & "C21"
End With
Y = Y + 1
End If
Next X
End If
Merci pour vos retours....