Separer en plusieurs une colonne

Re

Sub ListeFichiers()
Application.ScreenUpdating = False
Range("A2:A500").ClearContents
Repertoire = ThisWorkbook.Path & Application.PathSeparator
Ligne = 2
NomFichier = Dir(Repertoire & "*.*")
Do While NomFichier <> ""
Cells(Ligne, 1) = NomFichier
Ligne = Ligne + 1
NomFichier = Dir
Loop
End Sub

Amicalement

Nad

Merci beaucoup, je viens d'essayer, mais ca ne marche pas...

Il me genere l'erreur 68 à cette ligne de code: NomFichier = Dir(Repertoire & "*.*")

Tu as une idée de pourquoi..?

Essaye

Sub ListeFichiers()
Application.ScreenUpdating = False
Range("A2:A500").ClearContents
Repertoire = ThisWorkbook.Path & Application.PathSeparator
Ligne = 2
NomFichier = Dir(Repertoire)
Do While NomFichier <> ""
Cells(Ligne, 1) = NomFichier
Ligne = Ligne + 1
NomFichier = Dir
Loop
End Sub

génial!!!!! ca marche!!!!

merci beaucoup nad!!!!

Bonjour,

J’ai un souci de compatibilité Window vs Mac sur une macro Excel.

Sous windows tout fonctionne parfaitement, mais sous Mac j’ai systématiquement une erreur 68 « périphérique non disponible et cette ligne passe en jaune :

NomFichier = Dir(Chemin & "*xls*")

J’ai essayé de nombreuses variantes sans succès en prenant un des exemples sur ce post.

Si depuis, quelqu’un avait un solution.

Cordialement,