ma liste en ligne 2 ?

[Geraldine]

Bonjour

Sur le code suivant, je voudrais que ma liste commence en ligne 2 colonne A,c'est simple mais je n'arrive pas à l'obtenir. Quelle modif je doit apporter ?

Merci à vous, bonne journée geraldine


Sub TheFileLister()
Dim TheFileSearcher As FileSearch
Dim i%, ThePath$, Z$
ThePath = "D:\dossier\"
On Error Resume Next
Set TheFileSearcher = Application.FileSearch
With TheFileSearcher
.NewSearch
.Filename = "*.xls*"
.LookIn = ThePath
.SearchSubFolders = False
.Execute msoSortByFileName, msoSortOrderAscending
If .Execute > 0 Then
With .FoundFiles
For i = 1 To .Count
Z = Dir(.Item(i))
ActiveSheet.Hyperlinks.Add Anchor:=Cells(i, 1), Address:=ThePath & "\\" & Z, _
TextToDisplay:=Z
Next i
End With
Else
End If
End With
Set TheFileSearcher = Nothing
End Sub

 

[Pierrot93]

Re : ma liste en ligne 2 ?

Bonjour Geraldinie

remlace la ligne ci dessous :

ActiveSheet.Hyperlinks.Add Anchor:=Cells(i, 1), Address:=ThePath & "\\" & Z, _
TextToDisplay:=Z

par celle ci :

ActiveSheet.Hyperlinks.Add Anchor:=Cells(i + 1, 1), Address:=ThePath & "\\" & Z, _
TextToDisplay:=Z

bonne journée
@+

 

[Cousinhub]

Re : ma liste en ligne 2 ?

bonjour,
remplace :
For i = 1 To .Count
par :
For i = 2 To .Count +1

 

[Pierrot93]

Re : ma liste en ligne 2 ?

Re, bonjour bhbh

attention bhbh, avec ton code le 1er fichier n'est pas pris en compte...

 

[Pierrot93]

Re : ma liste en ligne 2 ?

Re

bhbh, avec ta modif, tu bogues a la fin et le 1er fichier toujours pas pris en compte, tu ne peux rajouter 1 au nombre de fichier trouvés (.count)...

 

[Geraldine]

Re : ma liste en ligne 2 ?

merci a vous pierrot93 et bhbh,

 

[Cousinhub]

Re : ma liste en ligne 2 ?

Oui, vu, désolé du post
Pas vu la ligne ( Z = Dir(.Item(i)))
Oupsssss