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.

 

[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

 

[sylvanu]

Il met le fichier 2 avant le 1

Le "~" du fichier Telemark signifie surement que ce fichier n'est pas enregistré mais en Temp.
Essayez de l'enregistrer.
Sinon, c'est le tri alpha d' XL, là je ne peux pas y faire grand chose.

Oups ! petit bug.
J'ai trié en disant à XL que la première ligne sont les entêtes, ce qui est faux, bien évidemment.
testez cette PJ, j'ai mis Header:=xlNo

 

[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.