Macro (mac si possible): couper liste

[Résolu/Fermé]
Signaler
Messages postés
898
Date d'inscription
mercredi 8 avril 2009
Statut
Membre
Dernière intervention
7 août 2018
-
Messages postés
3040
Date d'inscription
samedi 1 janvier 2011
Statut
Contributeur
Dernière intervention
20 octobre 2021
-
Bonjour,
Je cherche un moyen automatique de passer d'un fichier de 15K lignes (des emails en colonne A) à 60 fichiers de 250 lignes (sans doulbons, 1 mail 1 fois, en tout). Je dois faire un envoie d'emails automatiques mais ma liste de 15K est considérée comme spam...
Je voudrais éviter de le faire à la main. Une idée ? merci!


3 réponses

Messages postés
3040
Date d'inscription
samedi 1 janvier 2011
Statut
Contributeur
Dernière intervention
20 octobre 2021
823
Une petite macro en VBA qui devrait permettre de faire ça assez facilement :

Sub Decoupage()

j = 1
For i = 15000 To 0 Step -250

Workbooks("MaListe.xlsx").Worksheets("Feuil1").Range("A1:A5").Cut
Workbooks.Add
ActiveSheet.Paste
ActiveWorkbook.SaveAs FileName:="ListeCourte " & j & ".xlsx"
ActiveWorkbook.Close
Workbooks("MaListe.xlsm").Worksheets("Feuil1").Range("A1:A5").Delete
j = j + 1

Next i
End Sub


Il faudra évidemment vérifier à adapter le nom du classeur initial (ici "MaListe.xlsx") et la feuille sur laquelle se trouvent les données (par défaut "Feuil1")
1
Merci

Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire

CCM 41713 internautes nous ont dit merci ce mois-ci

Messages postés
20452
Date d'inscription
samedi 17 mars 2007
Statut
Contributeur
Dernière intervention
4 octobre 2021
5 816
Bonjour,

Dans le script proposé, il y a un truc qui m'étonne et qui expliquerait bien la liste de 5 noms obtenue, c'est le
Range("A1:A5")
.
J'aurais mis la taille de la liste souhaitée soit 250.

À essayer

Ritchi
Messages postés
898
Date d'inscription
mercredi 8 avril 2009
Statut
Membre
Dernière intervention
7 août 2018
93
ça semble avoir fonctionné. je les enregistre tous et je vous dit
Messages postés
898
Date d'inscription
mercredi 8 avril 2009
Statut
Membre
Dernière intervention
7 août 2018
93
Bon, il a généré 60 fichiers ListeCourte, mais ils sont vides. J'ai macOS Sierra 10.12.6 (16G29), et excel mac 15.33.
Messages postés
898
Date d'inscription
mercredi 8 avril 2009
Statut
Membre
Dernière intervention
7 août 2018
93
Je retente. Jai appliqué la macro sur le workbook et non sur la feuil, or je crois que c'est dans Feuil1 qu'il fallait appliquer
Messages postés
3040
Date d'inscription
samedi 1 janvier 2011
Statut
Contributeur
Dernière intervention
20 octobre 2021
823 >
Messages postés
898
Date d'inscription
mercredi 8 avril 2009
Statut
Membre
Dernière intervention
7 août 2018

Je ne comprends pas bien. Un classeur contient nécessairement une feuille. Si ton classeur "MaListe.xlsx" comporte bien les données sur la feuille "Feuil1", tout devrait (aurait dû) bien se passer.

Pour finir, c'est résolu ou pas ?
Messages postés
898
Date d'inscription
mercredi 8 avril 2009
Statut
Membre
Dernière intervention
7 août 2018
93
code utilisé:

Sub Decoupage()

j = 1
For i = 15000 To 0 Step -250

Workbooks("MaListe.xlsx").Worksheets("Feuil1").Range("A1:A250").Cut
Workbooks.Add
ActiveSheet.Paste
ActiveWorkbook.SaveAs FileName:="ListeCourte " & j & ".xlsx"
ActiveWorkbook.Close
Workbooks("MaListe.xlsx").Worksheets("Feuil1").Range("A1:A250").Delete
j = j + 1

Next i
End Sub
Messages postés
16033
Date d'inscription
dimanche 25 novembre 2007
Statut
Membre
Dernière intervention
20 octobre 2021
1 548
Bonjour,

Faites des envois par paquet de 250 lignes avec une boucle , pas besoin de decouper en 60 fichiers
Messages postés
898
Date d'inscription
mercredi 8 avril 2009
Statut
Membre
Dernière intervention
7 août 2018
93
Je ne peux pas, le site mailchimp incrimine ma liste donc ils veulent des listes courtes
Messages postés
16033
Date d'inscription
dimanche 25 novembre 2007
Statut
Membre
Dernière intervention
20 octobre 2021
1 548 >
Messages postés
898
Date d'inscription
mercredi 8 avril 2009
Statut
Membre
Dernière intervention
7 août 2018

Re,

Fichier EXCEL, TXT ou ????
Messages postés
898
Date d'inscription
mercredi 8 avril 2009
Statut
Membre
Dernière intervention
7 août 2018
93
excel, txt ou csv