Discussion :

[doodoms]

Salut,
je vous explique mon problème, je dois ouvrir tout les fichiers qui se trouvent dans un dossier(ça c'est bon) et récupérer des données pour les coller dans un autre classeur.
Le hic c'est que mes fichiers ont un nom qui change tout les mois ex: "mineur02simu_histo.txt" le 02 représentant février et de plus certains fichiers n'ont pas d'extension du tout ex: "majeur02simu".

Il me faudrait une commande de ce style: mineur??simu_histo.txt

existe-t-elle?
Merci d'avance

[ouskel'n'or]

Déjà, tu as la liste de tes fichiers qui semblent être tous des fichiers texte. Qu'ils aient ou non une extension, tu peux les ouvrir en tant que tels (OpenText)
Pour les fichiers comportant le N° du mois, une question se pose : Souhaites-tu identifier le mois ?
Pour les traiter et les identifier, tu peux créer une liste de leurs noms et lancer la macro de traitement correspondant à chacun d'eux sur sélection dans cette liste (???) Tu peux également utiliser un "Select case..."
Plus de précision, nous permettrait de t'en dire plus...

[doodoms]

Je n'ai pas besoin d'identifier le mois, ce sera une application qui sera lancée une fois par mois.
C'est pour ça qu'une commande me permettant de laisser 2 caractère non fixe serai parfaite pour moi.

[ucfoutu]

Bonsour,

Je rappelle que la fonction Dir permet :
- de passer en revue tous les fichiers d'un répertoire
- l'utilisation de jokers... pour le nom des fichiers à recenser (en ignorant les autres)...

[doodoms]

Merci pour vos réponses.

Comment utiliser cette fonction Dir avec ce type de code:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
Dim wb As Workbook
 
wb = Dir(real??simu_histo.txt) 'cette commande ne marche pas
 
ThisWorkbook.Worksheets("Feuil2").Range("A1").Value = wb.Worksheets("Feuil2").Range("A1").Value

[ouskel'n'or]

Tu n'as pas l'aide en ligne ? A Dir, il y a une page d'explications qu'il serait inutile de transcrire ici...
Tu as même des exemples et des explications sur l'utilisation des jokers.
Tu regardes et si tu as encore des difficutés... on bouge pas