Envoi automatique de mail

Bonjour à tous,

Voilà mon problème :

La gestion d'un stock de produit est partagée entre les différents utilisateurs, qui deviennent responsables à tour de rôle (roulement de 2 personnes par mois). La Feuil2 du fichier joint donne les mails des différents binômes et du responsable de la base. J'essaie d'écrire un code qui permette l'envoi automatique d'un mail aux responsables du mois en cours ainsi qu'au responsable annuel de la base :

* dès qu'un produit indiqué dans la Feuil1 arrive à 1 mois de sa date de péremption.

* et/ou dès qu'un produit indiqué dans la Feuil1 sera périmé, en précisant le produit.

En cherchant sur le net, j'ai trouvé des exemples de code, qui permettent l'envoi automatique de mail. Mon problème est lié au changement tous les mois du binôme... Je ne vois pas trop comment le contourner... Quelqu'un a-t-il une idée ??

Merci beaucoup,

Bonne journée,

Amicalement

Bonjour à tous,

Personne n'a d'idée ?

Bonne journée à vous,

Amicalement

Bonjour,

Premier jet à tester...

A+

Bonjour lermite,

Merci beaucoup de ton aide !!

J'ai suivi tes instructions, j'obtiens une erreur à la ligne 29 : . send. L'erreur est la suivante : "impossible de reconnaitre un ou plusieurs noms". Qu'est-ce que j'ai oublié de faire ?

Merci encore !

Bonne journée,

Amicalement

evidement il faut des adresses mail valide et pas tes simulacres

Si tes adresses sont bonnes essaye en changent la ligne

.To = Wks.Cells(M, 5) & "," & Wks.Cells(M, 6) ' le destinataire

par

.To = Wks.Cells(M, 5).value & "," & Wks.Cells(M, 6).Value ' le destinataire

oui, oui, j'avais bien remplacé !!

EDIT: autant pour moi, je m'étais trompée dans l'une des adresses....

Je poursuis mes tests, mais ça me semble fonctionner parfaitement !!

MERCI !!