IdentifiantMot de passe
Loading...
Mot de passe oublié ?Je m'inscris ! (gratuit)
Navigation

Inscrivez-vous gratuitement
pour pouvoir participer, suivre les réponses en temps réel, voter pour les messages, poser vos propres questions et recevoir la newsletter

Macros et VBA Excel Discussion :

Importer csv et non l'ouvrir


Sujet :

Macros et VBA Excel

Vue hybride

Message précédent Message précédent   Message suivant Message suivant
  1. #1
    Membre éclairé Avatar de bastou93
    Homme Profil pro
    Étudiant
    Inscrit en
    Août 2010
    Messages
    217
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Seine Saint Denis (Île de France)

    Informations professionnelles :
    Activité : Étudiant
    Secteur : Aéronautique - Marine - Espace - Armement

    Informations forums :
    Inscription : Août 2010
    Messages : 217
    Par défaut Importer csv et non l'ouvrir
    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

  2. #2
    Membre averti
    Homme Profil pro
    Étudiant
    Inscrit en
    Mai 2011
    Messages
    14
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France

    Informations professionnelles :
    Activité : Étudiant

    Informations forums :
    Inscription : Mai 2011
    Messages : 14
    Par défaut
    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

  3. #3
    Membre éclairé Avatar de bastou93
    Homme Profil pro
    Étudiant
    Inscrit en
    Août 2010
    Messages
    217
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Seine Saint Denis (Île de France)

    Informations professionnelles :
    Activité : Étudiant
    Secteur : Aéronautique - Marine - Espace - Armement

    Informations forums :
    Inscription : Août 2010
    Messages : 217
    Par défaut
    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

Discussions similaires

  1. Import CSV sous Excel, garder les 0 inutile
    Par ePoX dans le forum Excel
    Réponses: 4
    Dernier message: 26/01/2009, 16h25
  2. Importer CSV dans MySQL
    Par The_freeman dans le forum Administration
    Réponses: 6
    Dernier message: 14/02/2006, 22h18
  3. [VBA-E] Problème pour enregistrer en csv (; et non ,) par macro
    Par bounette dans le forum Macros et VBA Excel
    Réponses: 5
    Dernier message: 23/12/2005, 09h34
  4. import csv décimale
    Par gIch dans le forum MS SQL Server
    Réponses: 5
    Dernier message: 13/12/2005, 12h46
  5. Importation CSV vers base de données
    Par Brice Yao dans le forum Bases de données
    Réponses: 1
    Dernier message: 29/06/2005, 13h42

Partager

Partager
  • Envoyer la discussion sur Viadeo
  • Envoyer la discussion sur Twitter
  • Envoyer la discussion sur Google
  • Envoyer la discussion sur Facebook
  • Envoyer la discussion sur Digg
  • Envoyer la discussion sur Delicious
  • Envoyer la discussion sur MySpace
  • Envoyer la discussion sur Yahoo