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.

 

[kiki29]

Salut, commence par lire Support de cours complet pour le VBA d'Excel
de plus commence par formater ton code !

 

[fanch55]

Bonjour,

Do While Fichier <> ""
i = i + 1

i n'ayant pas été initialisé, il a la valeur 0 au début, donc i=i+1 --> 1 .
Si vous voulez débuter à la ligne 3 il faut donc dire que i=2 au début :

    i=2
    Do While Fichier <> ""
        i = i + 1

Ceci est le b-a-ba de la programmation .
Persévérez mais faites appel à votre logique ...

 

[telemarrk]

Merci kiki29 pour le lien.

fanch55, j'avais mis i=2 après do while fichier.

Merci à vous deux

 

[sylvanu]

Bonjour Telemarrk, Kiki, Fanch,
Comme Workbook_Open est une macro événementielle ( qui se déclenche sur un événement ) et qu'elle concerne le fichier complet, elle doit être mise dans ThisWorkbook.
( si la macro ne concernait qu'une feuille il faudrait la mettre dans la feuille )
Un ex en PJ avec :

Private Sub Workbook_Open()
    Dim Dossier As String, Fichier As String, i As Integer
    Range("A:A").ClearContents  ' Efface la colonne A
    Dossier = ThisWorkbook.Path & "\" ' Utilise le dossier en cours, à mettre à jour avec le dossier désiré : "D:\chemin..."
    i = 2
    Fichier = Dir(Dossier)
    Do While Fichier <> ""                          ' Tant qu'il existe un fichier
        i = i + 1
        Sheets("Feuil1").Range("A" & i) = Fichier   ' Inscrire fichier en colonne A, commence en A3
        Fichier = Dir                               ' Prochain fichier
    Loop
    Columns.AutoFit                                 ' Ajuste la largeur des colonnes
End Sub

 

[telemarrk]

Merci Sylvanu pour le code que je vais certainement utiliser car il utilise le dossier en cours.

Par contre peut-on inclure dans la colonne B par exemple la date de dépôt du fichier dans le dossier.

 

[sylvanu]

Re,
Il suffit de rajouter :

Sheets("Feuil1").Range("B" & i) = FileDateTime(Fichier)

 

[telemarrk]

Sylvanu, cela ne fonctionne pas, j'ai mis ton fichier dans un dossier avec des fichiers PDF et il me lance la fenêtre de débogage

 

[sylvanu]

il me lance la fenêtre de débogage

Mais encore ?
Quelle erreur ? Sur quelle ligne ?
Chez moi cela fonctionne, XL2007 Windows10 :

Vous êtes sur PC, pas sur MAC ?

 

[telemarrk]

Je suis sur Windows 11 et excel 2019
je te joins une capture

 

[sylvanu]

Peut être avez une version VBA plus récente que la mienne et moins permissive. Je suis en 6.3.
Un autre essai en PJ avec :

On Error Resume Next
Sheets("Feuil1").Range("B" & i) = FileDateTime(Dossier & Fichier) ' Date de dernier enregistrement

Je précise le dossier concerné.
Le On error permet de dérouler la macro même s'il y a erreur. Si la colonne B est vierge, c'est que ça a raté.

Fonction FileDateTime (Visual Basic pour Applications)

Rubrique de référence sur Office VBA

learn.microsoft.com

 

[telemarrk]

Cela fonctionne, je vois également que tu as rajouté dossier avec fichier entre parenthèse

Je suis en version 7.1

 

[sylvanu]

je vois également que tu as rajouté dossier avec fichier entre parenthèse

C'est ce que je dis :

Je précise le dossier concerné.

Donc c'est bien un souci de version VBA. il faut que je note ça quelque part.

 

[telemarrk]

Ok, je peux t'embêter encore.

Je viens de tester ton fichier dans plusieurs de mes dossiers et dans l'un d'eux il ne me tri par dans l'ordre croissant mes fichiers alors que je les ai numérotés comme tu peux voir dans la capture ci-jointe.

Il commence par le N° 2

 

[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