VBA ouverture CSV

Anonyme

Bonjour,

Par enregistrement d'une macro

j'ouvre un fichier CSV

Fichier Ouvrir Type de Fichiers

je choisis mon fichier il s'ouvre tout se décompacte bien en colonnes selon le ; séparateur.

Par suite j'exécute ma macro

Workbooks.Open Filename:="C:\MonRep\MonFichier.csv"

Le fichier s'ouvre mais reste compacté.

Merci

LSteph

Question verrouillée. Cette question a été migrée à partir de la Communauté Support Microsoft. Vous pouvez voter pour indiquer si elle est utile, mais vous ne pouvez pas ajouter de commentaires ou de réponses ni suivre la question.

0 commentaires

Réponse acceptée par l’auteur de la question

DanielCo 107.1K

Bonjour LSteph

Utilise le paramètre Local:=True de la méthode Workbooks.Open

Cordialement.

Daniel

0 commentaires

Réponse acceptée par l’auteur de la question

Anonyme

Bonjour lSteph,

Le fichier s'ouvre mais reste compacté.

J'ai déjà eu ce problème je l'avais résolu avec

'-----------
With Feuil1
.Columns("A:A").TextToColumns Destination:=.Range("A1"), DataType:=xlDelimited, Semicolon:=True
end with
'-----------

--
Salutations
JJ

0 commentaires

29 réponses supplémentaires

Anonyme

2016-05-22T08:14:31+00:00

Bonjour LSteph, bonjour tous,

J'ai poursuivi la piste avec utilisation du convertisseur de CSV; je cale sur l'intégration de la chaîne de connexion :{ !

Pourtant, je suis persuadé qu'elle représente une bonne solution.

Comme je ne vais pas avoir le temps d'approfondir, je livre à ceux que ça intéresse l'exemple complet avec les données CSV: http://www.cjoint.com/c/FEwifwkf74P

Commentaire dans le module 2 (Sub Charge_CSV(Dossier_CSV, Fichier_csv, Mois_Traité)):

    '

    '   Il y a un problème avec la chaîne de connexion:

    '       selon l'aide, elle doit contenir le mot-clé "TEXT;" (le point-virgule est nécessaire)

    '       mais l'enregistreur ne le met pas...

    '       -le code fonctionne au coup par coup (les données sont correctement transposées)

    '       -il ne fonctionne pas dans la séquence...

    '

Je confie ça à votre sagacité...*

Si je peux bénéficier de vos travaux, ma reconnaissance éternelle vous est assurée pour au moins 12 minutes

Cordialement

PS à la suite de divers essais, il y a à la fin de la procédure appelante des instructions erronées qui ne sont pas en cause:

    Sheets("Feuil1").Select

    Sheets("Feuil1").Name = Mois_Traité

'    ActiveSheet.Name = Fichier_csv

Le problème n'est pas là

* Sagacité, Arnaud, pas salacité...
Cette réponse a-t-elle été utile ?

0 commentaires Aucun commentaire
Anonyme

2016-05-21T17:08:46+00:00

Bonsoir LSteph,

Merci de ton appréciation; effectivement, l'un des objectifs est de le réutiliser.

Il faut juste que l'occasion fasse le larron, mais là, je ne t'apprends rien ;-)

En tout cas merci de m'avoir offert cette occasion

Cordialement
Cette réponse a-t-elle été utile ?

0 commentaires Aucun commentaire
DanielCo 107.1K Points de réputation

2016-05-21T12:24:04+00:00
Bonjour Lsteph, Bonjour Arnaud,

Arnaud a raison sur tous les principes qu'il vient d'énumérer.

J'ajoute juste un point intéressant (au cas où...):

En ouvrant le CSV à partir de la fenêtre Excel, la conversion n'est pas nécessaire

Il est donc possible de considérer le CSV actuellement ouvert comme un classeur à une feuille de calcul, et de copier / coller les données directement dans le classeur principal

(j'étais à jeun quand je l'ai fait)

Cordialement
Le problème vient de VBA. Si Excel utilise automatiquement le séparateur de liste défini dans les options locales de Windows, VBA utilise par défaut la virgule. La résolution du problème consiste donc à lui imposer le ";" comme séparateur de liste.

Daniel
Cette réponse a-t-elle été utile ?

0 commentaires Aucun commentaire