Je n'arrive pas à créer un fichier .csv avec 1200 valeurs ...

[guillaume7684]

Bonjour,

J'ai besoin de créer un fichier .csv avec ce format sur chaque ligne: "1";"3";"";"0";"test@hotmail.com";"1";

J'ai un fichier excel avec 1200 lignes (colonne A uniquement) comportant différentes adresses email.

Je veux donc créer un fichier .csv avec le résultat suivant:
"1";"3";"";"0";"vbvb@hotmail.com";"1";
"2";"3";"";"0";"bsvumk@hotmail.com";"1";
"3";"3";"";"0";"giubbi@hotmail.com";"1";

Je ne sais pas si c'est réalisable !!!

Merci à ceux qui pourront m'aider.

 

[mutzik]

Re : Je n'arrive pas à créer un fichier .csv avec 1200 valeurs ...

bonjour,

j'ai déja fait mais il faudrait un bout de ton fichier pour comprendre un peu mieux ...

 

[guillaume7684]

Re : Je n'arrive pas à créer un fichier .csv avec 1200 valeurs ...

En pièce jointe un bout de mon fichier.

Merci de vouloir m'aider.

 

[guillaume7684]

Re : Je n'arrive pas à créer un fichier .csv avec 1200 valeurs ...

Et voilà ce que je voudrais dans un fichier .csv, sachant que dans mon fichier excel, j'ai les 1200 adresses mail dans la colonne A.

Merci encore.

 

[mutzik]

Re : Je n'arrive pas à créer un fichier .csv avec 1200 valeurs ...

re,
d'accord avec toi et ton fichier, mais cela ne me dit toujours pas à quoi correspond dans ta ligne : "1";"3";"";"0";"vbvb@hotmail.com";"1";
les "1" "3" et toutes les autres données que tu mets dans cette ligne
... et sans cela ...

 

[phlaurent55]

Re : Je n'arrive pas à créer un fichier .csv avec 1200 valeurs ...

Bonjour à tous,

dans ton fichier de 10h36
mettre ceci en B1 et tirer vers le bas

=LIGNE()&";''3'';'''';''0'';"&A1&";''1'';"

 

[guillaume7684]

Re : Je n'arrive pas à créer un fichier .csv avec 1200 valeurs ...

@mutzik: ce sont des variables pour importer dans une BDD, elles restent les mêmes pour chaque ligne sauf la première qui doit s'incrémenter.
@phlaurent55: je ne peux pas utiliser l'option concaténer, car quand je vais enregistrer en .csv, il va me garder la colonne A1

Merci.

 

[guillaume7684]

Re : Je n'arrive pas à créer un fichier .csv avec 1200 valeurs ...

--------------------

 

[phlaurent55]

Re : Je n'arrive pas à créer un fichier .csv avec 1200 valeurs ...

Re,
Patience !!!!!!!!!!!!!!!!!!!!!!!!
voici par macro

Sub Macro1()
derligne = Range("A65500").End(xlUp).Row
For i = 1 To derligne
Range("B" & i).Value = i & "'';''3'';'''';''0'';" & Range("A" & i).Value & "''1'';"
Next i

' ici tu peux éventuellement mettre le code
' pour supprimer la colonne A

End Sub

 

[guillaume7684]

Re : Je n'arrive pas à créer un fichier .csv avec 1200 valeurs ...

Aïe !!!

Et je fais quoi avec ce code?

Merci.

 

[phlaurent55]

Re : Je n'arrive pas à créer un fichier .csv avec 1200 valeurs ...

Re,
voir fichier joint et cliquer sur le bouton

 

[guillaume7684]

Re : Je n'arrive pas à créer un fichier .csv avec 1200 valeurs ...

Ouahhhh!!!!!!

Génial, c'est exactement ce que je voulais, et en plus servi sur un plateau !!!

Merci beaucoup.

 

[mutzik]

Re : Je n'arrive pas à créer un fichier .csv avec 1200 valeurs ...

re,

d'après ce que j'ai vu, il n'y a pas de fichier généré au format csv dans la macro de phlaurent55

en voici un qui crée un fichier

 

[guillaume7684]

Re : Je n'arrive pas à créer un fichier .csv avec 1200 valeurs ...

Merci mutzik, mais quand je clique sur le bouton rien ne se passe.

 

[phlaurent55]

Re : Je n'arrive pas à créer un fichier .csv avec 1200 valeurs ...

Re, à tous,

d'après ce que j'ai vu, il n'y a pas de fichier généré au format csv dans la macro de phlaurent55

le même classeur légèrement modifié et oubli réparé
lorsque tu cliqueras sur le bouton, automatiquement un fichier CSV sera sauvegardé sur le disque C dans le répertoire "Transit"

Sub Macro1()
derligne = Range("A65500").End(xlUp).Row
For i = 1 To derligne
Range("B" & i).Value = i & """" & ";" & """" & "3" & """" & ";" & """" & """" & ";" & """" & "0" & """" & ";" & Range("A" & i).Value & """" & "1""""" & ";"
Next i
    Columns("A:A").Select
    Selection.Delete Shift:=xlToLeft

    ActiveWorkbook.SaveAs Filename:="[COLOR="Blue"][B]C:\transit\monfichier.csv[/B][/COLOR]", FileFormat:= _
        xlCSVMSDOS, CreateBackup:=False
End Sub

il te reste à modifier ce qui est en bleu dans le code
à+
Philippe