Importer des données csv avec Workbooks.OpenText

Bonjour

je cherche à importer des données de plusieurs fichiers csv dans un seul fichier excel de manière automatisé

j'utilise la procédure Workbooks.OpenText

cependant, à chaque ouverture du csv, il reste ouvert et je doit les fermer manuellement ...

voici mon code actuel

Sub Import()
    'importer les infos depuis un csv

    chemin = ActiveWorkbook.Path
    csv_name = "exemple.csv"

    If Len(Dir(chemin & "\" & csv_name)) = 0 Then
        Exit Sub
    End If

    Workbooks.OpenText Filename:=chemin & "\" & csv_name, _
                        Origin:=xlWindows, _
                        StartRow:=1, _
                        DataType:=xlDelimited, _
                        Local:=True, _
                        semicolon:=True

    Worksheets(1).Range("A1:AZ99999").Copy

    ThisWorkbook.Activate
    Worksheets(1).Cells(1, 1).Select
    Selection.PasteSpecial

End Sub

j'ai essayé ceci mais cela ne marche pas, faute de syntaxe ou autre ...

(...)
    dim wbk as workbook

   set wbk =  Workbooks.OpenText Filename:=chemin & "\" & csv_name, _
                        Origin:=xlWindows, _
                        StartRow:=1, _
                        DataType:=xlDelimited, _
                        Local:=True, _
                        semicolon:=True

    Worksheets(1).Range("A1:AZ99999").Copy

    ThisWorkbook.Activate
    Worksheets(1).Cells(1, 1).Select
    Selection.PasteSpecial

    wbk.close

End Sub

et je n'arrive pas non plus à manipuler la méthode

Workbooks.Open

car je n'arrive pas gérer les points-virgules, les délimiteurs, ...

si quelqu'un à une idée, je suis preneur

merci d'avance

Bonsoir à tous !

Si VBA n'est pas un horizon indépassable, je vous propose d'étudier la piste Power Query. Cet outil, nativement intégré dans votre Excel, réalise la combinaison de fichiers CSV aisément.

Solution :

workbooks(2).close

Bonsoir à tous !

J'aime beaucoup les histoires qui finissent bien.....