VBA - Recherche de fichier csv

  • Initiateur de la discussion Initiateur de la discussion cissou69
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

cissou69

XLDnaute Junior
Bonjour,

J'aimerai à partir d'une macro VBA parcourir un dossier pour rechercher des fichiers csv.
Mon problème est que je connais le code pour ouvrir un fichier csv avec une adresse fixe
Par exemple:
Code:
'Demande le fichier à ouvrir
Fichier_csv = Application.GetOpenFilename("Text files (*.csv), *.csv")
'Si Cancel de la BDi
If InStr(Fichier_csv, "False") > 0 Then Exit Sub

'Ouverture du fichier de type csv avec séparateur ","
Workbooks.OpenText Filename:=Fichier_csv, Origin:= _
        xlWindows, DataType:=xlDelimited, TextQualifier:=xlNone, _
        ConsecutiveDelimiter:=False, Tab:=False, Semicolon:=False, Comma:=True _
        , Space:=False, Other:=False

Mais à la place de lancer un GetOpenFilename, j'aimerais lui indiquer de rechercher dans un dossier contenant des sous-dossiers tous les fichiers *.csv qui existent.

Edit: les premiers sous-dossier respectent une incrémentation mais le second niveau des sous-dossiers non. De plus, tous les fichiers se nomment simdis.csv.
La fonction de la macro sera par la suite de les renommer avec une valeur de cellule et de les copier dans un autre répertoire.

Est-ce possible ?

Merci d'avance,

Cissou
 
Dernière édition:
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Réponses
37
Affichages
718
Réponses
5
Affichages
567
Réponses
40
Affichages
2 K
  • Question Question
Réponses
36
Affichages
2 K
Retour