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

telemarrk · 6 Mars 2023

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 · 6 Mars 2023

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 · 6 Mars 2023

telemarrk à dit:
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 · 6 Mars 2023

Cela fonctionne

Merci Sylvanu.

telemarrk · 6 Mars 2023

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 · 6 Mars 2023

telemarrk à dit:
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 :

VB:

If Fichier Like "*.pdf" Then

telemarrk · 6 Mars 2023

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

Cela fonctionne.

Merci

sylvanu · 6 Mars 2023

Si vous faites :

VB:

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

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

VB:

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

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

telemarrk · 6 Mars 2023

OK, je comprends.

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

telemarrk

XLDnaute Occasionnel

telemarrk

XLDnaute Occasionnel

Pièces jointes

sylvanu

XLDnaute Barbatruc

Pièces jointes

telemarrk

XLDnaute Occasionnel

telemarrk

XLDnaute Occasionnel

sylvanu

XLDnaute Barbatruc

Pièces jointes

telemarrk

XLDnaute Occasionnel

sylvanu

XLDnaute Barbatruc

telemarrk

XLDnaute Occasionnel

Discussions similaires