Discussion :

[bastou93]

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

[DJ_972]

Bonjour bastou93,


Si tu veux copier toute la feuille de ton fichier csv dans le document que tu veux, essaie ceci :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
Workbooks("fichier_csv.csv").Sheets(NomDeLaFeuilleQuiContientLeTableau).Copy Before:=Workbooks(NomDufichierSurLequelTuVeuxCopierTonTableau).Sheets(1)

Cordialement,
DJ_972

[bastou93]

Merci pour ta réponse, mon copié collé marche même si la syntaxe n'est pas la même.

Le seul problème c'est que je ne veux pas perdre le temps du copié collé des 60000 lignes et donc savoir si on peut importer le csv directe dans mon workbook actif

Bastien