Importer un CSV en convertissant la ligne en colonne

[Mikayel]

Bonjour à tous,

J'ai effectué de nombreuses recherches mais je n'ai rien trouvé à ce propos. Je souhaite importer un fichier qui en fait contient des milliers d'adresses email mais sur une seule ligne.

aaa@aaa.fr; bbb@bbb.fr; ccc@ccc.fr; ddd@ddd.fr; eee@eee.fr

Je souhaite en fait, importer ce CSV en disant à Excel de l'importer sur une seule colonne (avec comme séparateur le ";")

aaa@aaa.fr
bbb@bbb.fr
ccc@ccc.fr
ddd@ddd.fr
eee@eee.fr

Tout ceci, pour ne pas avoir le problème de la limite des colonnes. J'ai essayé de le faire en plusieurs fois, en transposant les données, mais c'est vraiment lourd à faire.

Comme ça, je pourrais avoir le script d'importation à l'ouverture du classeur qui se mettrait automatiquement à jour en transposant tout ça et je gagnerai des heures et des cheveux )

Si quelqu'un a déjà fait ça et pourrait me glisser le script, ce serait bien gentil!

Merci beaucoup

 

[Excel-lent]

Re : Importer un CSV en convertissant la ligne en colonne

Bonsoir Mikayel,

je pourrais avoir le script

Private Sub Workbook_Open() 
[COLOR="Green"]' Adresses mail sur la 1ère ligne à partir de A1
' La macro transpose les adresses! Elles passent de la ligne 1 à la colonne A[/COLOR]
    
    Sheets("Nom de ton onglet").select
    Range([A1], [A1].End(xlToRight)).Copy
    [A2].PasteSpecial Transpose:=True
    Rows(1).Delete

End Sub

Voici pour la partie "TRANSPOSE", je te laisse rajouter au début de ma macro, ton bout de code qui fonctionne permettant d'importer les donner en CSV dans Excel en ligne.

Et le tour est joué.

Bonne fin de soirée

PS. : attention, bien penser à mettre la macro dans la feuille "ThisWorkbook".

 

[Excel-lent]

Re : Importer un CSV en convertissant la ligne en colonne

Bonsoir,

Mon code, c'était pour le cas où après importation de tes adresses mails, tu n'as aucun trous entre A1 et ...1

(bref qu'en version CSV tu n'es pas : aaa@aaa.fr;; bbb@bbb.fr; ccc@ccc.fr;...)

Sinon remplacer :

Range([A1], [A1].End(xlToRight)).Copy

Par :

Range([A1], [IV1].End(xlToLeft)).Copy

Bonne apétit

 

[jp14]

Re : Importer un CSV en convertissant la ligne en colonne

Bonsoir

Ci joint un fichier avec une procédure qui lit un fichier texte et qui réalise l'opération demandée.

A tester

JP

 

[JCGL]

Re : Importer un CSV en convertissant la ligne en colonne

Bonjour à tous,

Un essai avec CONVERTIR et TRANSPOSE :

Option Explicit

Sub Convertir()
Range("A1").TextToColumns Destination:=Range("A2"), DataType:=xlDelimited, TextQualifier:=xlDoubleQuote, Semicolon:=True
    Rows("2:2").Copy
    Range("A3").PasteSpecial Paste:=xlPasteAll, Transpose:=True
    Range("A1").Select
    Application.CutCopyMode = False
    Selection.EntireRow.Delete
    Selection.EntireRow.Delete
End Sub

A+ à tous

 

[Mikayel]

Re : Importer un CSV en convertissant la ligne en colonne

Merci à tous, vos solutions sont excellentes. J'ai fait un petit mix de tous vos bouts de code et adapté celui de JP14 à mon cas... magnifique!

Merci encore!