Bonjour à tous,
Je sollicite si possible votre aide pour un néophyte catastrophique…
J’ai trouvé un code sur le site qui correspondrait presque à ma quête,
Sauf qu’évidement je n’arrive pas me l adapté.
A l’ouverture du classeur, le code doit charger dans une feuille les titres
Des fichiers en lien Hypertexte situés dans une clé USB
G :\BASE DE DONNEES.
Ça marche seulement si le classeur se trouve dans le même fichier, surement
du répertoire = ThisWorkbook.Path & "\"
Tout aide me sera bien précieuse, merci
Private Sub Workbook_Open()
Application.ScreenUpdating = False
Range("A2:A65000").ClearContents
repertoire = ThisWorkbook.Path & "G\BASE DE DONNEES"
[H4] = repertoire
ligne = 4
nf = Dir(repertoire & "*.*") 'on peut faire aussi premier fichier xls, pdf CA C EST COOL
Do While nf <> ""
ActiveSheet.Hyperlinks.Add Anchor:=Cells(ligne, 1), Address:=repertoire & "\" & nf, TextToDisplay:=nf
ligne = ligne + 1
nf = Dir ' fichier suivant
Loop
Range("a2:A" & [A65000].End(xlUp).Row).Sort key1:=[A2]
End Sub
Je sollicite si possible votre aide pour un néophyte catastrophique…
J’ai trouvé un code sur le site qui correspondrait presque à ma quête,
Sauf qu’évidement je n’arrive pas me l adapté.
A l’ouverture du classeur, le code doit charger dans une feuille les titres
Des fichiers en lien Hypertexte situés dans une clé USB
G :\BASE DE DONNEES.
Ça marche seulement si le classeur se trouve dans le même fichier, surement
du répertoire = ThisWorkbook.Path & "\"
Tout aide me sera bien précieuse, merci
Private Sub Workbook_Open()
Application.ScreenUpdating = False
Range("A2:A65000").ClearContents
repertoire = ThisWorkbook.Path & "G\BASE DE DONNEES"
[H4] = repertoire
ligne = 4
nf = Dir(repertoire & "*.*") 'on peut faire aussi premier fichier xls, pdf CA C EST COOL
Do While nf <> ""
ActiveSheet.Hyperlinks.Add Anchor:=Cells(ligne, 1), Address:=repertoire & "\" & nf, TextToDisplay:=nf
ligne = ligne + 1
nf = Dir ' fichier suivant
Loop
Range("a2:A" & [A65000].End(xlUp).Row).Sort key1:=[A2]
End Sub