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

Question

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&#233;?

N'y a t'il pas une fonction un peu plus rapide que celle d'ecrire un a un tous les chemins?



Merci

clementio · Accepted Answer

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...

jrivet · Answer

SAlut,

Ou alors si tu veux ouvrir Notepad pour chaque fichier:
(en se servant du code propos&#233; 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&#233;ponse Accept&#233;e

r9c0x7 · Answer

Encore une fois UN GRAND MERCI A TOUS!