Discussion :

[Florine26]

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.

[halaster08]

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.

[BENNASR]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[Florine26]

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

[BENNASR]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[Florine26]

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à...