Macro - Date envoi

[ssassam]

Bonjour

Svp j'ai besoin de votre aide ;


J’utilise un TCD avec un filtre sur "A1" puis une macro d'envoi par mail Outlook , je souhaite avoir un date d'envoi pour chaque mail envoyé , j'ai testé plusieurs méthode mais je me trouve seulement avec la date d'envoi du dernier mail.

Est quelqu'un peux m'aider avec un macro complémentaire

Merci d'avance

 

[DoubleZero]

Re : Macro - Date envoi

Bonjour, ssassam, le Forum,

Peut-être en ajoutant cette ligne de code avant le "End Sub" de la macro réservée au mail, en supposant l’existence d'un onglet nommé, par exemple, "Dates" :

'Sub Date_d_envoi()
Sheets("Dates").Range("a65536").End(xlUp)(2) = Now
'End Sub

A bientôt

 

[ssassam]

Re : Macro - Date envoi

Merci bien pour votre réponse je te répondrais vendredi après l'avoir testé au boulot