Envoi mail à date d'échance

Bonjour,

J'ai besoin d'aide afin de créer un code VBA, je suis novice en cette méthode...
Je suis actuellement stagiaire en entreprise et ma tutrice me demande de créer un tableau excel regroupant toutes les factures (je l'ai déjà crée) et elle souhaiterait recevoir directement un mail lorsqu'une date arrive à échéance. Je sais que cela est possible mais je ne sais pas par où commencer, ni comment m'y prendre malgré toutes les recherches que j'ai déjà effectué.

En colonne I se trouvent les dates des factures et en J les dates d’échéances.

Merci de bien vouloir m'aider.

Bonjour,

Tu auras besoin de faire une macro evenmentielle, un tuto:http://silkyroad.developpez.com/VBA/EvenementsClasseur/

Pour les mails, il existe de nombreux exemples sur le forum, commence par un truc simple, essaye de t'envoyer un mail test, et on verra pour l'adapter ensuite.

Bonsoir florine, la forum
Envoi via Outlouk , Lotus note?? yahoo?? ou autre ??? et ou se trouve la pièce jointe si existante ou un simple texte standard???

'ou se trouve l'adresse email du destinataire
' ce sont des données à compléter et avec des efforts pers tu arrivera

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14

Sub Envoimail() Dim Derligne As Long With Sheets("Feuil1") ' à adapter Derligne = .Range("J" & Rows.Count).End(xlUp).Row For I = 1 To Derligne ' commence par ligne 1 (à adapter si nécessaire If .Range("J" & I).Value = Now Then   ' Envoi via outlouk ou autre ??? et ou se trouve la pièce jointe si existante ou un simple texte??? 'ou se trouve l'adresse email du destinataire ' ce sont des données à compléter et avec des efforts pers tu arrivera End If Next I End With End Sub

---

Merci pour ta réponse.

Oui je n'ai pas précisé désolé, l'envoi se fait via Outlook, il n'y a pas de pièce joint c'est juste un texte simple à envoyer à ma tutrice. Je peux créer une colonne contenant les adresses mail clients en colonne K

Bonsoir à toutes et à tous
j'ai trouvé ce code sur le net et je l'ai adapté pour ton cas
bonne continuation
attention : ajouter l'adresse en colonne K

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23

Sub Envoyer_Mail_Outlook() Dim ObjOutlook As New Outlook.Application Dim oBjMail Dim Nom_Fichier As String   Set ObjOutlook = New Outlook.Application Set oBjMail = ObjOutlook.CreateItem(olMailItem) For i = 1 To Range("J" & Rows.Count).End(xlUp).Row If Date = Range("J" & i) Then With oBjMail .To = Range("K" & i) 'le destinataire .Subject = "Rappelle date d'échéance" ' l'objet du mail .Body = "La date d'échéance de la facture " & Range("I" & i) & " est arrivée à terme. Merci de faire le nécessaire." 'le corps du mail ..son contenu .Display .Send End With End If Next i ObjOutlook.Quit Set oBjMail = Nothing Set ObjOutlook = Nothing   End Sub

---

Bonjour,

Je m'excuse de la réponse tardive j'ai testé le code mais je ne reçois aucun mail... pourtant aucune erreur apparaît lorsque je vérifie le code "pas à pas".
J'ai vraiment du mal à comprendre, peut-être que c'est tout bête mais voila...

Je tiens à préciser que je n'ai pas l'application outlook sur mon ordinateur, elle se trouve seulement sur l'ordinateur de ma tutrice, peut-être que l'erreur vient de là...

Citation:

---

Envoyé par Florine26

Je tiens à préciser que je n'ai pas l'application outlook sur mon ordinateur, elle se trouve seulement sur l'ordinateur de ma tutrice, peut-être que l'erreur vient de là...

---

Bonjour,
Oui c'est surement à cause du fait que tu n'as pas outlook, comment veux-tu qu'excel envoi un mail à ta tutrice...il est obligé de passer par une application et par ton compte.
Pour vérifier que ton code est bon essaye le sur le poste d'un collegue qui a outlook, où joint ton fichier à ton article je pourrais tester.

Cordialement.

Bonjour,

Je te remercie de ta réponse.
En fait, le fichier (une fois terminé et programmé) sera mis sur l'intranet et plus principalement sur le bureau de ma tutrice, donc je pense qu'il n'y aura pas de soucis.

Voici mon fichier joint, et merci pour ton aide, malheureusement je ne peux pas le tester aujourd'hui car mon entreprise est fermée et du coup je travail mon fichier chez moi.

Avec la macro intégrée ce sera peut être mieux