Aide Fichier CVS avec plus que 700 adresse e-mail

[carthagian]

Bonjour,

J'ai plus que 700 adresses e-mails a ajouter a mes contacts sur Gmail.

Je n'ai pas pu faire un fichier comme l'indique le lien dessus :

Créer ou modifier des fichiers CSV - Centre d'aide Gmail

Sa serait vraiment gentil que vous m'aidez .

Voilà a quoi ressemble mon fichier dans les pièces jointes .

Merci D'avance .

 

[Misange]

Re : Aide Fichier CVS avec plus que 700 adresse e-mail

Bonjour
Gmail demande un fichier csv et pas xls...
et gmail a besoin de pouvoir associer un nom avec une adresse mail (toi aussi à priori d'ailleurs).
Va dans gmail, entre quelques contacts puis exporte les. Ca te permettra de voir comment structurer ton fichier.
Si tes contacts initiaux sont dans outlook, tu les exportes en csv depuis outlook et ils s'importent sans difficulté dans gmail

 

[carthagian]

Re : Aide Fichier CVS avec plus que 700 adresse e-mail

Salut,

Merci pour votre réponse, mais je sais bien que Gmail demande un fichier cvs mais le problème c'est que le format cvs ne peut pas être uploaded sur le site, de plus on parle de 700 contacts, donc est ce possible avec une fonction ou truc de faire structurer son fichier cvs pour qu'il soit passible de l'uploader sur Gmail ?

Merci .

 

[Efgé]

Re : Aide Fichier CVS avec plus que 700 adresse e-mail

Bonjour carthagian, Bonjour Misange,
Si j"ai bien compris....

Sub Gmail_1B()
Dim i&, Num&, Mes$, Fic$, Chem$, Separ$
Dim Plg As Variant
' Nom du fichier
Fic = "_" & Format(Date, "dd-mm-yyyy") & "_" & Format(Time, "h""H""mm") & ".csv"
'Chemin du dossier où seront crées les fichiers
Chem = "C:\Tempo"
'Séparateur utilisé pour la création des .CSV
Separ = ";"
Plg = Range(Cells(1, 1), Cells(Rows.Count, 1).End(xlUp)).Value
Num = FreeFile
Open Chem & "\" & Fic For Output As #Num
Print #Num, "Nom;Mail;"
For i = LBound(Plg, 1) To UBound(Plg, 1)
    Mes = Split(Plg(i, 1), "@")(0) & Separ
    Mes = Mes & Plg(i, 1) & Separ
    Print #Num, Mes
    Mes = ""
Next i
Close #Num
Erase Plg
MsgBox "Exportation effectuée"
End Sub

Cordialement

 

[carthagian]

Re : Aide Fichier CVS avec plus que 700 adresse e-mail

Bonjour carthagian, Bonjour Misange,
Si j"ai bien compris....

Sub Gmail_1B()
Dim i&, Num&, Mes$, Fic$, Chem$, Separ$
Dim Plg As Variant
' Nom du fichier
Fic = "_" & Format(Date, "dd-mm-yyyy") & "_" & Format(Time, "h""H""mm") & ".csv"
'Chemin du dossier où seront crées les fichiers
Chem = "C:\Tempo"
'Séparateur utilisé pour la création des .CSV
Separ = ";"
Plg = Range(Cells(1, 1), Cells(Rows.Count, 1).End(xlUp)).Value
Num = FreeFile
Open Chem & "\" & Fic For Output As #Num
Print #Num, "Nom;Mail;"
For i = LBound(Plg, 1) To UBound(Plg, 1)
    Mes = Split(Plg(i, 1), "@")(0) & Separ
    Mes = Mes & Plg(i, 1) & Separ
    Print #Num, Mes
    Mes = ""
Next i
Close #Num
Erase Plg
MsgBox "Exportation effectuée"
End Sub

Cordialement

Salut,

Merci beaucoup pour ta réponse, mais s'il te plait est ce que tu peut vraiment m'aider ! car je n'ai pas bien compris quoi faire avec votre code !

Merci

 

[Misange]

Re : Aide Fichier CVS avec plus que 700 adresse e-mail

Bonjour,
Tu ne nous dis pas : d'où viennent tes adresses mail ? C'est une simple liste ? ou bien tu les as exportés depuis outlook ?
Si c'est une simple liste, il faut que tu structures ton fichier excel comme si il était exporté depuis outlook.
Je t'ai fait un exemple. Remplace les données par les tiennes mais en touchant pas à l'ordre des colonnes.
Tu peux tout à fait mettre des CSV (pas CVS ;-) ) sur ce site il suffit de zipper le fichier.
Ensuite il te suffit dans gmail d'importer. Le nombre de contacts n'est pas un problème, j'en ai beaucoup plus que ça dans gmail et dans outlook.

 

[carthagian]

Re : Aide Fichier CVS avec plus que 700 adresse e-mail

Salut,

Merci beaucoup sa a totalement marché, c'est vraiment très gentil de votre part,

Merci beaucoup encore et encore ... 🙂