re farusz bonjour le fil
une petite boucle avec une simplification de la saisie dans la feuille mail
une deuxième feuille liste les adresses mails des destinataires. faire une saisie dans la colonne a sans sauter de lignes.
cordialement
galougalou
Bonjour,
Merci pour le fichier, cependant moi je veux que le mail s'envoi automatiquement sans cliquer sur des boutons, je veux rédiger un code avec une condition sur la fin de validité de quelques éléments de ma base de données.
Jusqu'à présent j'ai réussi a écrire un code qui me permet d'afficher un msgbox quand la date de validité approche:
'Afficher date fin validit? des formations internes
Sub AlertesDatesFormations()
Dim Sh As Worksheet, Chaine As String, Lig As Integer, Alerte
Lig = 14 ' car les dates de validit? se trouvent en ligne 14
For Each Sh In ActiveWorkbook.Sheets
If Sh.Range("A10") = "Formation interne" Then 'Formation concern?e
Col = 2 ' car la premi?re date de validit? en en colonne B
While Sh.Cells(Lig - 4, Col) <> "" ' on regarde toutes les formations dans la colonne A10 (14-4=10)
If Sh.Cells(Lig, Col) <> "" And Sh.Cells(Lig, Col) < Date + 60 Then ' si formation et date
' on enrichit la chaine avec nom-date-formation
Chaine = Chaine & Sh.Name & vbTab & " Date: " & Sh.Cells(Lig, Col) & " " & Sh.Cells(Lig - 1, Col) & vbCrLf
End If
Col = Col + 1
Wend
If Chaine <> "" Then Chaine = Chaine & vbCrLf
End If
Next Sh
If Chaine <> "" Then Alerte = MsgBox(Chaine, , "Alertes sur les dates de validit? formations.")
End Sub
je veux ajouter l'envoi du mail a l'intérieur de ce code