Forum d'assistance informatique - LM2I • Afficher le sujet - [VBA][Excel] - récupérer liste fichiers "xls" un répertoire

1 message • Page 1 sur 1

de Baborge77 » Mer 27 Aoû 2008 14:57

récupérer la liste des fichiers "xls" d'un répertoire:

Code: Tout sélectionner: ChDir CHEMIN FICHIER = Dir(CHEMIN & "*.xls") Do While FICHIER <> "" If FICHIER <> "." And FICHIER <> ".." And FICHIER <> COMPIL And FICHIER <> "Modele.xls" Then ActiveCell.Value = Left(FICHIER, Len(FICHIER) - 4) Range("I" & ActiveCell.Row + 1).Select compteur = compteur + 1 End If FICHIER = Dir Loop

@+
Laurent