Lien hypertexte automatique
y
Salut a tous,
Je réalise en ce moment un code VBA qui puissent rechercher tout les fichier excel présent dans un répertoire , a partir de ces fichiers il me crée dans la colonne A un lien hypertexte pour chaque fichier présent dans le répertoire , j'ai cree la fonction mais je bloque au niveaux des boucles je n'arrive pas a programmer le code , si quelqu’un pouvez m'aidez merci .
voici mon debut de code :
Sub lien()
Set Fichier = Application.FileSearch
With Fichier
.LookIn = "C:\" 'Dossier dans lequel chercher les fichiers
.Filename = "*.xls" 'Extension des fichiers a trouver
If .Execute > 0 Then 'S'il en trouve
ActiveSheet.Hyperlinks.Add Anchor:=selection, Address:= _
"", TextToDisplay:=""
End Sub
y
Re-bonjour a tous ,
J'ai résolus mon problème je poste le code pour aidez les autres.
Sub lien()
Dim Répertoire As String
Dim A As Integer, Fichier As String
'Variables à définir :
Répertoire = "C:\Documents and Settings\805901\Bureau\"
Fichier = Dir(Répertoire & "*.xls*")
Application.ScreenUpdating = False
Application.EnableEvents = False
Do While Fichier <> ""
A = A + 1
With Worksheets("Feuil1") 'Nom Feuille à adapter
With Range("A" & A)
.Hyperlinks.Add Anchor:=.Item(1, 1).Cells, _
Address:=Répertoire & Fichier, _
TextToDisplay:=Fichier, _
ScreenTip:=Répertoire & Fichier
End With
End With
Fichier = Dir()
Loop
Application.EnableEvents = True
Application.ScreenUpdating = True
End Sub