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

DanielCo 107.1K Points de réputation

2016-05-22T09:44:27+00:00

Bonjour,

Il ne faut pas mettre des variables entre guillemets; mets :

With ActiveSheet.QueryTables.Add(Connection:="TEXT;" & Dossier_CSV & Fichier_csv, _

Destination:=Range("$A$1"))

au lieu de :

With ActiveSheet.QueryTables.Add(Connection:="TEXT; & Dossier_CSV & Fichier_csv", _

Destination:=Range("$A$1"))

Note que, ce n'est apparemment pas le cas de lSteph dans ce fil, mais il y a une différence entre ouvrir un fichier, ce qui te permet de le modifier et un import, qui ne te le permets pas. D'autre part, je crois avoir lu que lSteph ne voulait pas une feuille par fichier.

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

0 commentaires Aucun commentaire
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