[Résolu] Envoi listing facture mail

[butagaz38]

Bonjour à toutes et à tous,

Actuellement, j'extrais le listing des factures non payées et j'envoie un listing à mes clients par mail en mode manuel c'est à dire :
- Création d'un filtre
- Sélection du client
- Copie du tableau (avec l'entête)
- Collé sur la messagerie (Outlook)
- Copie du texte automatique (en fonction de la langue, français ou étranger)
- Envoie du mail
- Suppression des données facture (conservation de l'entête) et client suivant
C'est tâche est longue et pénible (une journée pour la dernière cession)...

J'aimerais savoir s'il était possible d'automatiser tout ceci.
En pièce jointe vous trouverez le fichier de données à savoir :
- 1er onglet le listing des factures / clients (Evidemment le nombre de ligne est diffèrent pour chaque client, pouvant aller de 1 ligne à une centaine)
- 2ème onglet la base mail
- 3ème et 4ème onglet le texte du mail

Merci d'avance à toute âme charitable qui voudrait bien m'aider.

J'ai cherché sur le forum, mais je n'ai pas trouvé de réponse à ma problématique.

Bonne journée.

Butagaz38

 

[Compte Supprimé 979]

Bonjour Butagaz38

Voici ton fichier avec le code qui va bien

A+

 

[butagaz38]

Bonjour,
En regardant le code, cela me semble parfait.
Merci infiniment !

En regardant de plus prêt j'aurais une demande que je n'avais pas développé dans ma demande initiale.
Serait-il possible de récupérer le "Customer_Nb" et le " Customer" pour les intégrer au sujet ?
Je suis désolé, je n'avais pas développé ça dans ma demande initiale.
Merci d'avance si cela est possible.

Bonne journée.

Butagaz38

 

[butagaz38]

Bonjour à tous,
Après une absence forcée, je me suis penché sur le fichier.
En modifiant un peu le fichier :
- Rajout d'un onglet avec la base client (correspondance N° avec le nom)
- Rajout d'une formule dans la colonne D pour indiquer un objet FR ou anglais (en fonction de la langue en C) : =SI(C2="FR";RECHERCHEV(A2;'Base Client'!$A$2:$B$639;2;FAUX)&" - "&A2&" - Etat de compte";RECHERCHEV(A2;'Base Client'!$A$2:$B$639;2;FAUX)&" - "&A2&" - Customer Statement")
- Rajout dans la macro, dans la partie "Sub CréerMail" : Dim ObjMail As String et ObjMail = VFindR(Sheets("Mail"), "A", NumClt, "D")
- Modification : With OutMail.Subject = ObjMail
La macro fait tout comme je voulais !

Merci au forum et surtout à Ce lien n'existe plus !

Bonne journée à tous.

Butagaz38