Bonjour a tous,

J'ai de nouveau besoin de vous

Alors je m'explique, je dois intégrer un fichier csv avec comme séparation des ";"

J'y arrive, le seul problème c'est que je dois:
1)Ouvrir le csv dans excel mais sur un nouveau Workbooks
2)Copié le tableau que sa me donne (le tableau me convient)
3)Coller sur mon classeur initiale
4)Fermer sans sauvegarder mon csv

Cependant le copier coller est très lourd, peut on importer directement dans une nouvelle feuille?

Voici mon code:
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
 
'''''''''''''''''''''''''
'Importation csv
'''''''''''''''''''''''''
 
'ouverture du fichier csv
'
Set csv = Workbooks.Open(dossier & "\fichier_csv.csv")
    csv.Sheets(1).Columns(1).TextToColumns Range("A1"), Semicolon:=True
 
'copie des donnée du fichier csv
'
Range("A1").CurrentRegion.Cut
 
'Colle ces données dans le classeur données
'
Workbooks(nom_fichier).Sheets("Données").Activate
Range("A1").Select
ActiveSheet.Paste
 
'Ferme fenetre fichier_csv.csv
'
Application.DisplayAlerts = False
Workbooks("fichier_csv.csv").Windows("fichier_csv.csv").Close
Application.DisplayAlerts = True
Merci d'avance

Bastien