Forme conditionnelle sur date et alerte sur outlook

[Triflophil]

Bonjour,
Voila le petit problème sur lequel je bute depuis plusieurs semaines sans succès...
Si quelqu'un arrive à m'orienter ce serait tréééés gentil 😛
j'ai un fichier d'intérimaires avec des dates de début et de fin de contrat
J'aimerai faire deux choses:
- faire apparaitre en rouge et en gras la date de fin lorsque celle-ci est à J-15 et ce jusqu'à J+5
- à J-15 envoyer une alerte sur outlook (je suppose que cela doit se faire par VBA mais je ne sais pas m'en servir 🙁 )
Détail important je suis sur Excel 2003!! car sur excel 2013 c'est beaucoup plus simple....
Je joins un fichier factice en guise d'exemple
Par avance merci 😉
Flo

 

[CISCO]

Re : Forme conditionnelle sur date et alerte sur outlook

Bonsoir

Une possibilité en pièce en jointe pour ce qui est de la mise en forme conditionnelle. Pour ce qui est de l'envoi de message avec Outlook, directement à partir d'Excel, je ne sais pas faire.

@ plus

 

[gosselien]

Re : Forme conditionnelle sur date et alerte sur outlook

Bonjour le forum,

ceci semble fonctionner, envoyé par mail Outlook et/ou en demande de réunion dans Outlook aussi

P.

Sub AlerterMail()
Dim contrat As String
Dim Datefin As String
For Each c In Range("E2:E" & [E65000].End(xlUp).Row)
rouge = c.Value - 15 <= Now And Now <= c.Value + 5
contrat = c.Offset(0, -4) & " " & c.Offset(0, -3).Value
Datefin = c.Value
If rouge Then
Call Rappel(contrat, Datefin) ' rappel en réunion
Call Mail2(contrat, Datefin) ' ou envoi par mail
End If
Next
End Sub

Sub Rappel(contrat, fin)
Dim objOL 'As Outlook.Application
Dim objAppt 'As Outlook.AppointmentItem
Const olAppointmentItem = 1
Const olMeeting = 1
Set objOL = CreateObject("Outlook.Application")
Set objAppt = objOL.createitem(olMeeting) 'olAppointmentItem
With objAppt
.Subject = contrat
.Start = Now + 1
.End = DateAdd("h", 0.5, .Start)
'.Location = "lieu de la réunion"
.body = "La personne " & contrat & " " & " a fini le " & fin
.BusyStatus = olFree
.Categories = ""
.ReminderSet = True
.ReminderMinutesBeforeStart = 15 ' rappel 2 heures avant
.ReminderOverrideDefault = True
.ReminderPlaySound = True 'réveil en fanfare
.Importance = olImportanceHigh
' make it a meeting request
.MeetingStatus = olMeeting
'.OptionalAttendees = "titi@adm.co.ma" 'participants optionnel à la réunion
'.RequiredAttendees = "tata@adm.co.ma;toto@adm.co.ma" 'participant obligatoire
.Send
End With

Set objAppt = Nothing
Set objOL = Nothing
End Sub

Sub Mail2(contrat, fin)
Dim MonOutlook, MonMessage As Object
Dim Corps As String
Set MonOutlook = CreateObject("Outlook.Application")
Set MonMessage = MonOutlook.createitem(0)
MonMessage.to = "tamessagerie@hotmail.com"
MonMessage.Subject = "Fin de contrat pour: " & contrat
Corps = "Rappel :" & Chr(13) & Chr(13) & "le contrat de " & contrat & " se termine le " & fin
MonMessage.body = Corps
MonMessage.Send
Set Raccourci = Nothing
Set MonOutlook = Nothing
End Sub

 

[Triflophil]

Re : Forme conditionnelle sur date et alerte sur outlook

Merci beaucoup à vous deux!!!
Si je peux abuser .... pour que je ne fasse plus ce genre d'erreur, comme je n'arrivai pas au résultat ci-dessus j'ai essayé autre chose, sur le même principe 15 jours avant 5 jours après j'ai voulu créer une formule pour noter "Attention" dans la colonne d'à côté
j'avais écris ceci: =SI(OU(G2<=AUJOURDHUI()-15;G2>=AUJOURDHUI()+5);"Attention";" ")
La formule n'est pas juste et je n'arive pas a comprendre pourquoi
merci d'avance

 

[Triflophil]

Re : Forme conditionnelle sur date et alerte sur outlook

coucou CISCO
en fait j'ai quand même un petit souci avec cette formule c'est que si je l'applique à toute la colonne pour les saisies futures les cases vides se mettent en rouge
comment je peux éviter cela?
merci

 

[CISCO]

Re : Forme conditionnelle sur date et alerte sur outlook

Bonjour

Après avoir sélectionné la cellule E2, modifie la MFC comme suit

=ET($E2<>"";$E2-15<=AUJOURDHUI();AUJOURDHUI()<=$E2+5)

@ plus

 

[Triflophil]

Re : Forme conditionnelle sur date et alerte sur outlook

Gosselien merci pour la macro je n'ai pas encore eu le temps de la mettre en place pour l'essayer je viens de rentrer dans cette boite et j'attends toujours mon adrese mail 🙁
Dès que je peux l'essayer je te tiens au courant
merciiiiiiiiii🙂