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:
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
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:=FalseMais à 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:
