Macro listing des fichiers et des urls associées
Bonjour,
J’ai trouver une macro que j’ai adapter à mon fichier. Cette macro est dans un Excel classer dans un dossier. Elle sert à lister les fichiers présents dans le dossier et à copier le lien hypertexte de chaque fichier de dossier. Cependant elle liste bien le premier fichier mais sans copier le lien ce celui ci. J’ai associer la macro à un bouton et je dois appuyer deux fois sur ce bouton sinon elle ne liste que le nom des fichiers et non les liens hypertextes. Si quelqu’un arrive à corriger ce problème sa m’aiderai énormément !
Merci d’avance
Macro :
Sub macro1()
Dim chemin As String
Dim nomFichier As String
chemin = ThisWorkbook.Path & Application.PathSeparator
nomFichier = Dir(chemin)
i = 1
Do While Len(nomFichier) > 1
ActiveSheet.Range("A" & i).Value = nomFichier
nomFichier = Dir
i = i + 1
ActiveSheet.Hyperlinks.Add Anchor:=Range("O" & i), Address:=Range("A" & i).Value
Loop
End Sub
Bonjour,
1- i = i + 1 semble mal placé dans ton code.
2- j'ai ajouté le paramètre "TextToDisplay" à tes liens (texte à afficher)
3- J'ai également déclaré ta variable i...
Ton code modifié :
Sub macro1()
Dim chemin As String
Dim nomFichier As String
Dim i As Long
chemin = ThisWorkbook.Path & Application.PathSeparator
nomFichier = Dir(chemin)
i = 1
Do While Len(nomFichier) > 1
ActiveSheet.Range("A" & i).Value = nomFichier
nomFichier = Dir
ActiveSheet.Hyperlinks.Add Anchor:=Range("O" & i), Address:=chemin & Range("A" & i).Value, TextToDisplay:=Range("A" & i).Value
i = i + 1
Loop
End Sub