Ce navigateur n’est plus pris en charge.
Effectuez une mise à niveau vers Microsoft Edge pour tirer parti des dernières fonctionnalités, des mises à jour de sécurité et du support technique.
![](data:image/svg+xml, %3Csvg xmlns='http://www.w3.org/2000/svg' height='64' class='font-weight-bold' style='font: 600 30.11764705882353px "SegoeUI", Arial' width='64'%3E%3Ccircle fill='hsl(128, 8%, 22%)' cx='32' cy='32' r='32' /%3E%3Ctext x='50%25' y='55%25' dominant-baseline='middle' text-anchor='middle' fill='%23FFF' %3EA%3C/text%3E%3C/svg%3E)
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
Famille de feuilles de calcul Microsoft avec des outils pour l’analyse, le graphique et la communication des données.
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.
![](data:image/svg+xml, %3Csvg xmlns='http://www.w3.org/2000/svg' height='64' class='font-weight-bold' style='font: 600 30.11764705882353px "SegoeUI", Arial' width='64'%3E%3Ccircle fill='hsl(108.80000000000001, 78%, 20%)' cx='32' cy='32' r='32' /%3E%3Ctext x='50%25' y='55%25' dominant-baseline='middle' text-anchor='middle' fill='%23FFF' %3ED%3C/text%3E%3C/svg%3E)
Bonjour LSteph
Utilise le paramètre Local:=True de la méthode Workbooks.Open
Cordialement.
Daniel
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
Bonjour,
Cela fait partie des possibilités que j'essayerai lundi.
Merci
--
LSteph
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
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