Pouvez-vous me donner des pistes d'améliorations pour les fonctions macro ?

Question

Bonjour,

Je cherche à être alerté par mail lorsque dans le tableau une échéance arrive à terme. Je ne sais pas comment paramétrer une fonction macro pour pouvoir recevoir un mail lorsque dans la colonne F le mot "Alerte" apparait

Answer 1

Absolument.

Daniel

Answer 2

Oui, clairement, tu ne l'as pas. Donc, contrairement à ce que tu m'as dit, il ne fonctionnait pas sur ton ordi ?

Daniel

Answer 3

Je n'aime pas ça du tout. Hier la même instruction fonctionnait sans problème. Redémarre Windows et teste.

Daniel

Answer 4

Bonjour,

Voici la macro :

Private Sub Worksheet_Calculate()
Dim C As Range
Set olApp = CreateObject("Outlook.application")
For Each C In Range("F2", Cells(Rows.Count, 6).End(xlUp))
If C = "alerte" Then
Set m = olApp.CreateItem(olMailItem)
With m
.Subject = "Subject"
.Body = "Body"
.Recipients.Add "******@test.com"
.Send
End With
End If
Next C
End Sub

Tu dois remplacer "******@test.com" par l'adresse du destinataire. Dans la ligne :

.Subject = "Subject"

Indique l'objet du message et dans la ligne :

.Body = "Body"

indique le texte du message.

Pour installer la macro, fais un clic droit sur l'onglet de la feuille et clique sur "Visualiser le code". Colle le code dans la partie droite de la fenêtre qui s'ouvre. Ferme cette fenêtre et enregistre le classeur au format .xlsm.

La macro s'exécute automatiquement sans intervention de ta part.

Daniel

Answer 5

Bonjour,

Le problème, c'est que tu vas recevoir des mails tant qu'il y aura "alerte" en colonne F. Il faut ajouter une colonne indiquant que le mail a été envoyé. Indique quelle colonne utiliser.

Daniel