Copier un fichier CSV dans un fichier Excel sans l'ouvrir

Bonjour à tous,

Voilà j'ai créé une macro qui permet d'ouvrir un fichier CSV, sélectionner les données de ce fichier, les copier, les coller dans un autre fichier excel (celui qui contient la macro) puis de fermer le fichier CSV.

Cette procédure est assez lourde, je souhaiterais optimiser mon code.

J'aurais voulu savoir s'il était possible d'effectuer la même démarche sans ouvrir le fichier csv, un genre de connexion au fichier qui éviterait d'avoir à l'ouvrir puis à le fermer.

Merci!

Voici mon code:

Sub Copie_Fichier()

' Copie du fichier CSV dans le fichier

    Workbooks.Open Filename:="P:\Bureau\Order_Events_MGA_GVA.csv", Local:=True
    Cells.Select
    Selection.Copy
    Windows("KPI - Passage d'Ordres.xlsm").Activate
    Sheets("Order_Events_MGA_GVA").Select
    Range("A1").Select
    ActiveSheet.Paste
    Application.CutCopyMode = False
    Range("A1").Select
    Sheets("Feuil1").Select
    Windows("Order_Events_MGA_GVA.csv").Activate
    ActiveWindow.Close

End Sub

Bonjour,

as-tu essayé via le menu données, importer des données à partir d'un fichier texte ? ceci va te définir une connexion, une fois cette connexion définie, tu peux faire un refresh all chaque fois que tu souhaites importer tes données à partir de ce fichier, tu peux aussi aller dans les propriétés de cette connexion (menu données->connexions-> selectionner ta connexion) et adapter les paramètres (par exemple, faire l'import automatiquement à chaque ouverture du classeur).

Rechercher des sujets similaires à "copier fichier csv ouvrir"