VBA : Compiler dans un tableau tous les fichiers CSV d'un même dossier
Bonjour,
Je sollicite l'aide du forum pour un projet en VBA au-delà de mes capacités.
Je possède un dossier contenant des centaines de fichiers .CSV. Ce sont des tableaux qui comprennent à chaque fois la même structure, mais un nombre aléatoire de lignes. J'aimerais créer un bouton qui me permet de selectionner le dit dossier dans une boite de dialogue. La macro ira alors chercher tous les fichiers CSV et compilera leurs contenu dans un unique tableau.
Merci d'avance à ceux qui m'aideront, je pense que c'est une demande assez classique, mais impossible de trouver une solution pour l'instant..
Bonjour,
Je pense qu'il faudrait plus de détail et des exemples concret.
Mais voici un essai (fais une copie de tes fichiers avant)
' Auteur : https://www.linkedin.com/in/spilerstheo/
Sub CompilerCSV()
Dim fd As FileDialog
Dim cheminDossier As String
Dim fichier As String
Dim ws As Worksheet
Dim lastRow As Long
Set ws = ThisWorkbook.Sheets("Feuille1") ' Modifiez avec le nom de votre feuille
Set fd = Application.FileDialog(msoFileDialogFolderPicker)
If fd.Show = -1 Then
cheminDossier = fd.SelectedItems(1)
fichier = Dir(cheminDossier & "\*.csv")
Do While fichier <> ""
With ws.QueryTables.Add(Connection:="TEXT;" & cheminDossier & "\" & fichier, Destination:=ws.Range("A" & Rows.Count).End(xlUp).Offset(1, 0))
.TextFileParseType = xlDelimited
.TextFileCommaDelimiter = True
.Refresh
End With
fichier = Dir
Loop
End If
End SubN'oublie pas de changer le nom de feuille dans la macro :)
Cordialement,
PARRISH
Hello
5 minutes à développer en PowerQuery, envoie deux fichiers txt stp :)
@+