Ouvrir plusieurs fichiers

cs_TomTom27 Messages postés 48 Date d'inscription mercredi 21 janvier 2004 Statut Membre Dernière intervention 2 juin 2005 - 31 mai 2005 à 10:40
econs Messages postés 4030 Date d'inscription mardi 13 mai 2003 Statut Membre Dernière intervention 23 décembre 2008 - 31 mai 2005 à 10:54
Bonjour,

Je souhaite ouvrie et lire tous les fichiers dans un dossier quelque soit leur nom.

Ce sont des fichiers .csv, je veux m'assurer de les ouvrir une seule fois.

Merci

2 réponses

cs_bultez Messages postés 13615 Date d'inscription jeudi 13 février 2003 Statut Membre Dernière intervention 15 octobre 2013 30
31 mai 2005 à 10:54
Bonjour,

Dim fic As String
fic = Dir("*.csv")
While Len(fic) > 0

...traiter le fichier...

fic = Dir
Wend

par exemple ? [ sous-répertoires non traités ]
Cordialement. Bul. ~Site~~[mailto:marcelBultez@tiscali.fr Mail]~
0
econs Messages postés 4030 Date d'inscription mardi 13 mai 2003 Statut Membre Dernière intervention 23 décembre 2008 24
31 mai 2005 à 10:54
Places un objet FileListBox sur ta feuille, puis tapes ceci :





Dim l As Long

Dim s As String



File1.Pattern = "*.csv"

File1.Path = "C:\Program Files"



For l = 0 To File1.ListCount - 1

s = File1.Path & "" & File1.List(l)

MsgBox s

Next l



s contient alors le nom de chacun de tes fichiers. Y'a plus qu'à les ouvrir !


Manu
-------------------------------------------
Une question bien posée, c'est une chance de réponse bien adaptée.
0
Rejoignez-nous