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 :

Ouverture d'un fichier CSV


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 Djohn
    Profil pro
    Inscrit en
    Février 2007
    Messages
    309
    Détails du profil
    Informations personnelles :
    Âge : 44
    Localisation : France

    Informations forums :
    Inscription : Février 2007
    Messages : 309
    Par défaut Ouverture d'un fichier CSV
    Bonjour

    Alors voila j'ai un petit souci depuis 3heures (me restent plus beaoucoup de cheveux )

    Jetravail sous Excel 2010, et je cherche à ouvrir un fichier csv, avec comme séparateur de décimal la virgule et séparateur de donnée le point virgule.

    Et mon souci, est que lorsque la macro ouvre ce classeur csv, en colonne A j'ai une partie des données, puis en colonne B une autre partie des données, jusqu'a la colonne D je crois.
    Alors que normalement lorsque ce classeur s'ouvre, je devrais tout avoir en colonne A.

    De plus si j'ouvre manuellement, le classeur s'ouvre correctement , avec les données déja convertis.

    si quelqu'un réussi à une idée, je continues de chercher de mon coté

    merci
    Fichiers attachés Fichiers attachés

  2. #2
    Membre Expert Avatar de ZebreLoup
    Homme Profil pro
    Ingénieur Financier
    Inscrit en
    Mars 2010
    Messages
    994
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 46
    Localisation : France, Val de Marne (Île de France)

    Informations professionnelles :
    Activité : Ingénieur Financier
    Secteur : Finance

    Informations forums :
    Inscription : Mars 2010
    Messages : 994
    Par défaut
    Je n'ai pas ouvert ton zip, mais je pense qu'il faut remettre tous les paramètres de conversion à 0 avant d'ouvrir le fichier.

  3. #3
    Membre éclairé Avatar de Djohn
    Profil pro
    Inscrit en
    Février 2007
    Messages
    309
    Détails du profil
    Informations personnelles :
    Âge : 44
    Localisation : France

    Informations forums :
    Inscription : Février 2007
    Messages : 309
    Par défaut
    Salut ZebreLoup,
    comment fait on ça ?
    merci

  4. #4
    Membre éprouvé Avatar de defluc
    Homme Profil pro
    Architecte
    Inscrit en
    Mai 2002
    Messages
    1 383
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 76
    Localisation : Belgique

    Informations professionnelles :
    Activité : Architecte

    Informations forums :
    Inscription : Mai 2002
    Messages : 1 383
    Par défaut
    Voici une source éprouvée
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    9
        Set C1Wbk = ThisWorkbook 
        Set C1Sheet = C1Wbk.Sheets(1)
          C1Sheet.Columns(1).TextToColumns Destination:=C1Sheet.Cells(1, 1), DataType:=xlDelimited, _
          TextQualifier:=xlNone, ConsecutiveDelimiter:=False, Tab:=False, Semicolon:=False, Comma:=False, _
          Space:=False, Other:=True, OtherChar:=";", FieldInfo:=Array(Array(1, 1), Array(2, 1), _
          Array(3, 1), Array(4, 1), Array(5, 1), Array(6, 1), Array(7, 1), Array(8, 1), Array(9, 1), _
          Array(10, 1), Array(11, 1), Array(12, 1), Array(13, 1), Array(14, 1), Array(15, 1), _
          Array(16, 1), Array(17, 1), Array(18, 1), Array(19, 1), Array(20, 1), Array(21, 1), Array(22, 1)), _
          TrailingMinusNumbers:=True

  5. #5
    Membre Expert Avatar de ZebreLoup
    Homme Profil pro
    Ingénieur Financier
    Inscrit en
    Mars 2010
    Messages
    994
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 46
    Localisation : France, Val de Marne (Île de France)

    Informations professionnelles :
    Activité : Ingénieur Financier
    Secteur : Finance

    Informations forums :
    Inscription : Mars 2010
    Messages : 994
    Par défaut
    La solution de defluc est très bien une fois que tu as tes données seulement dans la première colonne. Tu peux le faire en faisant du
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    Open "ton fichier" As #1 ...
    et en recopiant ligne à ligne les données

    Mais sinon, je pensais que c'était simple et j'ai le même problème que toi. Même en utilisant la méthode OpenText et en mettant les bons paramètres, il ne les prend pas du tout en compte. Je ne comprends pas.

    J'ai trouvé un truc, si tu fais :
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    Workbooks.Open Filename:="C:\Fichiers.csv", Format:=5
    ça te l'ouvre sans formatage.

    Tu peux ensuite faire une mise en forme comme tu veux. (Regarde la fonction TextToColumns)

  6. #6
    Membre éclairé Avatar de Djohn
    Profil pro
    Inscrit en
    Février 2007
    Messages
    309
    Détails du profil
    Informations personnelles :
    Âge : 44
    Localisation : France

    Informations forums :
    Inscription : Février 2007
    Messages : 309
    Par défaut
    Nikel, ca fonctionne ZebreLoup,
    un grand merci,
    y'a plus qu'a creuser le sujet sur les different numéro de format possible pour l'avenir.

+ Répondre à la discussion
Cette discussion est résolue.

Discussions similaires

  1. Problème d'ouverture d'un fichier csv
    Par juzii dans le forum Langage
    Réponses: 4
    Dernier message: 22/07/2009, 17h32
  2. Réponses: 11
    Dernier message: 27/10/2008, 09h15
  3. macro à l'ouverture d'un fichier ".csv"
    Par Tibaldus dans le forum Macros et VBA Excel
    Réponses: 4
    Dernier message: 20/09/2007, 11h36
  4. Ouverture d'un fichiers csv
    Par coolest dans le forum Macros et VBA Excel
    Réponses: 1
    Dernier message: 16/05/2007, 12h32
  5. [Macro] ouverture d'un fichier csv par macro différent du double-clic
    Par Caro-Line dans le forum Macros et VBA Excel
    Réponses: 1
    Dernier message: 19/04/2007, 16h36

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