Problème à DIR

[MJ13]

Bonjour à tous

J'ai un problème avec Dir que j'utilise souvent en VBA.

Lancer cette macro et observer le nombre de fichiers trouvés et les noms inscrits sur la feille. Existe-t'il une parade?

Merci d'avance 🙂.

Sub Problème_A_Dir()
'Creer un dossier C:\Temp. Copier 4 fichier xls dans C:\Temp
'Sur une feuille excel, en A1, taper C:\Temp
'puis lancer la macro (Alt+F8) en étant en A1.
    N = 0
    Nf = Dir(ActiveCell.Value & "\*.xls")
    Do While Nf <> ""
        N = N + 1
        Nf = Dir    ' suivant
        Cells(N, 3) = Nf
    Loop
    ActiveCell.Offset(0, 1) = N
End Sub

 

[Guest]

Re : Problème à DIR

Bonjour MJ🙂

Il faut inverser deux lignes

Do While NF <> ""
        N = N + 1
        Cells(N, 3) = NF 'Insrire dans la cellule avant de passer au Dir pour le suivant
       NF = Dir    ' suivant
    Loop

Au Lieu de

 Do While NF <> ""
        N = N + 1
        NF = Dir    ' suivant
        Cells(N, 3) = NF
    Loop

A+

 

[kjin]

Re : Problème à DIR

Salut,

Sub Problème_A_Dir()
'Creer un dossier C:\Temp. Copier 4 fichier xls dans C:\Temp
'Sur une feuille excel, en A1, taper C:\Temp
'puis lancer la macro (Alt+F8) en étant en A1.
    N = 0
    Nf = Dir(ActiveCell.Value & "\*.xls")
    Do While Nf <> ""
        N = N + 1
        Cells(N, 3) = Nf
        Nf = Dir    ' suivant
    Loop
    ActiveCell.Offset(0, 1) = N
End Sub

A+
kjin

 

[Modeste]

Re : Problème à DIR

Bonjour Michel 🙂, Hasco 🙂, kjin 😱,

... n'apporte rien à la discussion: je voulais juste saluer le re-re-viendage de kjin 😉

 

[MJ13]

Re : Problème à DIR

Bonjour Ges, kjin, Modeste

Merci beaucoup pour vos solutions (non, pas toi Luc 😉), qui fonctionnent à merveille.

Mais pourquoi, j'suis aussi nul 😱.

Et, oui, Kjin 🙂, cela fait toujours plaisir de te revoir, comme Ges 🙂 qui revient de temps en temps ces temps-ci 🙂.