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-21T08:48:14+00:00

Bonjour à tous,

Merci pour toutes vos suggestions

Seul le point 2 me pose difficulté:

Pour le GetOpenFilename cela n'ira pas car je dois Si je dois avoir 10 ou 15 fois la question fichiers je ne souhaites pas

1-boucler mes csv sans ouvrir dans excel pour virer des "=" et des chr(34)

2-les reboucler pour les ouvrir avec un décompactage correct

3-construire un unique tableau excel en virant après décompactage toutes les lignes d'entête de transmission du fichier

la zone tableau commencent plus bas, en assignant à chaque enregistrement la référence du nom de fichier csv dans un champ supplt.

Idem pour la connexion de données j'y ai pensé mais à causes des en-têtes inutiles

ca ne répondra pas directement et ne souhaite pas avoir autant de feuilles à mettre une connexion que de fichiers csv .

J'essaye toutes les autres solutions cette prochaine semaine.

Je vous tiens tous au courant.

Merci

--

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

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

2016-05-21T08:30:37+00:00

Bonjour,

@Cloopy

Hier soir j'ai interverti les 2 dernières images... (Cloppy n'avait pourtant bu que 3 Whiskies...); pardon

C'était donc le 19 ? Donc avant que la question soit posée ? Tu en es à combien de whiskies maintenant ? Et tu n'avais pas encore posté d'images...

Je me demande si tu lis les questions et les réponses déjà faites ? Parce que la solution a été trouvée avant même que tu postes la première de ta rafale de réponses dont aucune ne répond à la question posée.

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

0 commentaires Aucun commentaire
Anonyme

2016-05-20T19:44:52+00:00

Bonjour tous,

Correctif (le 20 Mai) :(

Hier soir j'ai interverti les 2 dernières images... (Cloppy n'avait pourtant bu que 3 Whiskies...); pardon

Je confirme qu'il vaut mieux utiliser l'assistant:

Je n'ai pas trouvé dans le VBA le composant, même en cherchant bien...

Autrement, si tout est vraiment répétitif, enregistrer toutes les étapes donne une macro moche mais potable...

(l'exemple utilisé fonctionne vraiment pour récupérer les données de l'horloge pointeuse et les transformer dans Excel avec une macro aux petits oignons - les information personnelles présentées sont bidon)

Voilà

Bonne journée à tous
Cette réponse a-t-elle été utile ?

0 commentaires Aucun commentaire