Comment ouvrir un a un TOUS les .txt d'un dossier? [Résolu]

Signaler
Messages postés
10
Date d'inscription
mercredi 21 décembre 2005
Statut
Membre
Dernière intervention
19 avril 2006
-
r9c0x7
Messages postés
10
Date d'inscription
mercredi 21 décembre 2005
Statut
Membre
Dernière intervention
19 avril 2006
-
Veuillez m'excuser, j ai encore besoin de votre aide:

Comment peut on ouvrir un a un tous les fichiers texte d'un dossier donné?

N'y a t'il pas une fonction un peu plus rapide que celle d'ecrire un a un tous les chemins?



Merci

3 réponses

Messages postés
432
Date d'inscription
samedi 18 mai 2002
Statut
Modérateur
Dernière intervention
17 février 2014

Essaie ça:

Dim sFichierTXT As String

sFichierTXT = Dir("C:\Mon Dossier\*.txt")

Do Until sFichierTXT = ""
MsgBox "C:\Mon Dossier" & sFichierTXT
sFichierTXT = Dir
Loop


Remplace "Mon Dossier" par ton dossier en question...
3
Merci

Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire

Codes Sources 251 internautes nous ont dit merci ce mois-ci

Messages postés
7393
Date d'inscription
mercredi 23 avril 2003
Statut
Membre
Dernière intervention
6 avril 2012
46
SAlut,

Ou alors si tu veux ouvrir Notepad pour chaque fichier:
(en se servant du code proposé par clementio)

Dim sFichierTXT As String

sFichierTXT = Dir("C:\Mon Dossier\*.txt")

Do Until sFichierTXT = ""
Call Shell("notepad C:\Mon Dossier" & sFichierTXT, vbMaximizedFocus)
sFichierTXT = Dir
Loop

@+, Julien
Pensez: Moteur de Recherche, Réponse Acceptée
Messages postés
10
Date d'inscription
mercredi 21 décembre 2005
Statut
Membre
Dernière intervention
19 avril 2006

Encore une fois UN GRAND MERCI A TOUS!