XL 2019 Débute en vba, exécuter mon code dans une cellule précise

[telemarrk]

Bonjour,

Je me lance au VBA d'Excel, pour m'exercer j'utilise un code VBA trouvait sur le net qui me permet de lister le contenu d'un dossier.
Mais je n'arrive pas à l'appliquer en A3 il l'éxécute en A1.
J'ai essayé de mettre i = i + 3, il me place bien en A3 met il décale tous les 3 lignes

Code :

Dim Rep As String, Fichier As String
Dim i As Integer

Rep = "D:\chemin..."
Fichier = Dir(Rep)
Do While Fichier <> ""
i = i + 1
Sheets("Feuil1").Range("A" & i) = Fichier
Fichier = Dir
Loop

Je ne sais pas si je dois le mettre en WorkBook - Open ou dans un module. Le but étant que la macro s'éxécute au démarrage.

Merci pour votre aide.

 

[sylvanu]

???
Il ne range pas par ordre croissant, mais dans l'ordre où il les trouve dans le dossier.
A aucun moment vous avez demandé un rangement par ordre alpha !
Testez cette PJ, j'ai rajouté :

DL = Range("A65500").End(xlUp).Row
Range("A3:B" & DL).Resize(DL).Sort key1:=Range("A3"), order1:=xlAscending, Header:=xlYes

 

[telemarrk]

Effectivement, je n'avais pas demandé le tri au départ c'est en testant dans un dossier.
Il met le fichier 2 avant le 1

 

[telemarrk]

Cela fonctionne

Merci Sylvanu.

 

[telemarrk]

Désolé, j'ai encore un souci, si je décide par exemple d'afficher que les fichiers pdf de mon dossier en modifiant le code comme ceci :

Dossier = ThisWorkbook.Path & "\*.pdf

Il ne m'affiche plus les dates dans la colonne B

 

[sylvanu]

Dossier = ThisWorkbook.Path & "\*.pdf

Dossier est le nom du chemin, donc ce n'est pas le nom du fichier, sauf si vous avez un dossier nommé pdf.
Pour filtrer les pdf, le plus simple me semble t-il est :

If Fichier Like "*.pdf" Then

 

[telemarrk]

OK, je pensais qu'il suffisait d'ajouter *.pdf pour n'afficher que les PDF.

Cela fonctionne.

Merci

 

[sylvanu]

Si vous faites :

Dossier = ThisWorkbook.Path & "\*.pdf"

Cela donnerait avec votre dossier par exemple "D:\MesDocuments\" le dossier suivant :

Dossier = "D:\MesDocuments\*.pdf"

Ce qui ne voudrait rien dire pour le VBA. Il s'attend à trouver un chemin de dossier existant.

 

[telemarrk]

OK, je comprends.