Créer une alerte sous Excel
bonjour
je me demandais si c'est possible de créer une alerte sous excel
exemple
on met des dates en colonne dans des cellules et quand ces dates arrivent bientôt a échéance (J-2) alors on a une alerte de excel
le probleme c'est que excel doit nous avertir automatiquement et de manière visible
le classeur ne devras pas forcément etre ouverte
j'ai lus qu'on pouvais envoyé un mail en joignant le classeur ou une plage de cellule depuis excel
est-ce que cette opération peut se faire automatiquement ou alors il faut créer un bouton ?
merci
Bonjour
Pour ce qui est de l'alerte visuelle, un exemple
https://www.excel-pratique.com/~files/doc/JO0v4AlerteMFC.xls
Pour le Mail, le sujet viens d'être traité. Fais une petite recherche sur le site.
Cordialement
merci pour ton exemple je vais cherché le sujet pour le mail
salut alors j'ai trouvé le post
voila ce que ca donne chez moi
Sub Tst()
Dim Sourcewb As Workbook
Dim Destwb As Workbook
Dim Temp As String
Dim CdoMessage As Object
Dim Fichier As String
Set Sourcewb = ActiveWorkbook
ActiveSheet.Copy
Set Destwb = ActiveWorkbook
Temp = ThisWorkbook.Path & Application.PathSeparator & "Classeur1.xls"
With Application
.ScreenUpdating = False
.DisplayAlerts = False
End With
Destwb.SaveAs Temp
Fichier = Destwb.Path & Application.PathSeparator & Destwb.Name
Destwb.Close
Application.DisplayAlerts = True
Set CdoMessage = CreateObject("CDO.Message")
With CdoMessage
.Subject = "Essai"
.From = "xxx@free.fr"
.To = "www@xxx.xxx.com"
.CC = ""
.BCC = ""
.TextBody = "tableau des convocation"
.AddAttachment Fichier
.Send
End With
Application.ScreenUpdating = True
Set CdoMessage = Nothing
Kill Fichier
End Sub
mon fichier joint se nomme Classeur;1xls et le logiciel de messagerie par defaut est lotus alors je suis bien allé dans outils références pour activer Microsoft CDO.... et Lotus notes
mais j'ai une erreur d'exécution qui dit que la valeur de configuration "Sendusing" est non valide
la ligne en question est tout a la fin ".Send"