XL 2016 Récap des onglets envoyé

[abdernino1985]

Bonjour le forum;
J'ai à ma disposition une macro envoie email, est ce que ça serait possible de rajouter une récap à la fin de l'envoi pour voir onglets envoyés
une récap sur un onglet avec obseravtion envoyé

 

[sylvanu]

Bonjour Abdernino,
Un essai en PJ à tester. ( Je ne peux pas le tester sur mon PC, j'utilise Thunderbird et le code n'est pas tout à fait le même )
J'ai créé une feuille Recap. A chaque émission de mail je l'enregistre.
Dans le code j'ai mis en exergue ce que j'ai rajouté.

 

[abdernino1985]

Bonjour merci pour ton retour ,
j'ai un débogage qui m'envoie sur cette ligne [Envoi].ClearContents

 

[sylvanu]

Bonsoir,
Chez moi ça marche impeccable.
L'erreur est détectée dans mon fichier où dans le votre que vous avez modifié ?
Car j'ai rajouté l'onglet Recap et j'ai nommé Envoir la plage "A:C".
Pouvez vous vérifier si cette plage existe dans le fichier testé ?

 

[abdernino1985]

Bonjour ,
Merci non elle n'existe pas , je l'ai rajouter
et j'ai toujours la meme erreur [Envoi].ClearContents pourtant elle vide

 

[sylvanu]

Donc c'est votre fichier pas le mien.
Dans la feuille Recap, sélectionnez les colonnes A,B et C et nommez les Envoi.
En fait c'est la matrice où je range les infos :

'----------------------------
' Code Ajouté : Enregistrement de l'email envoyé
        [Envoi].Cells(IndexRecap, 1) = Destinataire
        [Envoi].Cells(IndexRecap, 2) = ws.Name
        [Envoi].Cells(IndexRecap, 3) = "Envoyé"
        IndexRecap = IndexRecap + 1
'----------------------------

 

[abdernino1985]

J'ai comme tu me la dit j'ai renommer ABC mais le debogeur s'arrette toujours sur [Envoi].ClearContents

 

[sylvanu]

Avez vous essayer mon fichier ?
Sinon envoyez moi le votre. ( anonymisé évidemment )

 

[abdernino1985]

ci joint le fichier

 

[sylvanu]

Je ne comprend pas.
Dans votre fichier il n'y a pas de feuille Recap et encore moins de colonnes nommées Envoi.
Ci joint votre fichier avec la bonne feuille et la bonne matrice.

 

[abdernino1985]

Bonjour;
Merci beaucoup , mais pourquoi quand je remplace dans l'onglet mail avec mes vrais adresse la macro bug..
le débogeur s'arrete sur Kill Fichier
et sinon meme avec ta version il envoie aprés j'ai un message il y a rien a imprimer mais pourquoi ???moi je veux rien imprimer

 

[sylvanu]

Bonsoir,
Dans votre fichier je n'ai rajouté que ces 4 lignes. Je n'ai touché à rien d'autre.

'----------------------------
' Code Ajouté : Enregistrement de l'email envoyé
        [Envoi].Cells(IndexRecap, 1) = Destinataire
        [Envoi].Cells(IndexRecap, 2) = ws.Name
        [Envoi].Cells(IndexRecap, 3) = "Envoyé"
        IndexRecap = IndexRecap + 1
'----------------------------

Elle n'impacte que la feuille Recap.
Si vous mettez ces 4 lignes en commentaires, est ce que votre fichier remarche ?

 

[abdernino1985]

Ci joint le fichier moi je voulais seulement alimenter les adress mail
y a t'il des élement a renommer dans l'onglet Mail

 

[sylvanu]

En PJ votre fichier où j'ai mis mes lignes de code de Recap en commentaires.
Marche t-il ?

 

[abdernino1985]

le déboguer s'arrete sur Kill Fichier
bon si je télecharge ton fichier intial ca marche , mais dés que j'essaye d'alimenter les adress mail , ca bug