Ouvrir un fichier TXT dont on ne connait pas le nom...

Ouvrir un fichier TXT dont on ne connait pas le nom... - VB/VBA/VBS - Programmation

Marsh Posté le 05-07-2011 à 12:01:57    

:hello:  
 
Salut à tous !
 
J'ai besoin d'un peu d'aide pour un bout de code.
Voici le décor :
  - j'ai un fichier qui s'appelle TRAITEMENT.XLS
  - ce fichier contient des macros pour exécuter des traitements sur un fichier TXT qui se trouve dans le même répertoire
 
Le nom du fichier TXT n'est jamais le même.
 
Le code que je cherche doit permettre d'ouvrir ce fichier TXT sans intervention de l'utilisateur...
Il clique sur un bouton, la macro trouve ce fameux TXT, l'ouvre... et ensuite un traitement de conversion s'exécute...
 
Il n'y a qu'un seul TXT dans le répertoire de TRAITEMENT.XLS.
 
Et je ne vois pas comment faire.
 
 :sleep:  
 
Merci de votre aide.
 
scaryfan


---------------
iMac 4Ghz (fin 2015) RAM 16Go SSD 256Go SSD 2To
Reply

Marsh Posté le 05-07-2011 à 12:01:57   

Reply

Marsh Posté le 05-07-2011 à 13:35:43    

J'ai finalement trouvé la réponse...  :pt1cable:  
 
Il suffit de créer une variable de type STRING.
Et d'utiliser la fonction Dir.
 
Exemple :
 
  Dim NOMFICHIER As String
  NOMFICHIER = Dir ("C:/*.txt" )
 
La valeur contenue dans NOMFICHIER est bien celle du nom de mon fichier TXT.
 
 :sol:  
 


---------------
iMac 4Ghz (fin 2015) RAM 16Go SSD 256Go SSD 2To
Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed