Discussion :

[yannick59190]

Bonjour,

Je souhaite envoyer par mail à l'adresse correspondante en D3 (messagerie Outlook version 2003) une alerte pour dépassement de la date en A3. (date comparée à la date du jour (en A1).
Le mail comprendra le texte: ' attention, le délais de réponse a été dépassé." et la copie de la ligne (A3:I3)

Hélas mes connaissances en VB son nulles!

MERCI pour votre aide!!

[Daniel.C]

Bonjour,

Essaie :

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 Alertes()
    Dim OlApp As Object, M As Object, C As Range
    With Sheets("Feuil1")
        If .[A3] > .[A1] Then
            Set OlApp = CreateObject("Outlook.Application")
            Set M = OlApp.CreateItem(olMailItem)
            M.Subject = "attention, le délais de réponse a été dépassé."
            M.Body = .[A1].Text & vbCrLf & vbCrLf & .[A3].Text
            M.Recipients.Add .[D3]
            M.Display
            'M.Send
        End If
    End With
End Sub

Si c'est OK, enlève la ligne :

Code :

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

M.Display

et enlève l'apostrophe devant :

Code :

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

'M.Send

[yannick59190]

Merci Daniel!

Ca fonctionne super!
Cependant, est il possible d'envoyer le message d'alerte sans ouvrir le fichier? ou alors que ca se fasse automatiquement sans devoir lancer la macro?

Merci

[Daniel.C]

Mets ceci dans ton classeur de macros personnelles (tu dois changer le chemin et le nom du classeur). Si tu as une incompréhension avec le classeur de macros personnelles, dis-le. Tu dois donc exécuter cette macro "Alertes" (tu peux supprimer celle de ton classeur) :

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
Sub Alertes()
Set wbk = GetObject("C:\Users\Daniel\Documents\Donnees\Daniel\mpfe\yannick59190 Nouveau Feuille de calcul Microsoft Excel.xls")
Set sh = wbk.Sheets("Feuil1")
Dim OlApp As Object, M As Object, C As Range
With sh
    If .[A3] > .[A1] Then
        Set OlApp = CreateObject("Outlook.Application")
        Set M = OlApp.CreateItem(olMailItem)
        M.Subject = "attention, le délais de réponse a été dépassé."
        M.Body = .[A1].Text & vbCrLf & vbCrLf & .[A3].Text
        M.Recipients.Add .[D3]
        M.Send
    End If
End With
wbk.Close False
End Sub

Une autre option serait d'ouvrir automatiquement le classeur au démarrage d'Excel. Il faudrait le modifier un peu pour éviter une double expédition si tu démarre deux fois Excel. C'est comme tu veux.

[Odaces]

Bonjour,

Je me permet de poster une question que cette conversation, ma demande ressemblant à celle de départ.

Mon idée était qu'une première alerte s'affiche dans outlook 15 jours avant la date de prochaine intervention (colonne F) et une deuxième le jour même sans avoir à ouvrir le fichier excel.
De plus, s'il est possible de pousser encore plus loin le programme, existe-t-il un moyen que cela ne programme pas la date de dernière intervention sur un week-end ou jour férié?

Je ne sais pas si c'est très clair mais merci d'avance à ceux qui m'aideront!