XL 2016 Envoyer un mail deux semaines avant la date indiquée dans la colonne

Hasco à dit:

RE,

Alors voici votre macro telle que vous l'avez demandée. Vous verrez plus tard, le cas échéant et avec la pratique, ce que vous voudrez faire.

J'y ai mis une petite gestion d'erreur, que vous devrez activer après vos essais en décommentant une ligne de code : ' On Error goto Fin

Faites le quand vous serez certain que la macro ne pose pas de problème. Cette ligne d'instruction pourrait masquer des erreurs qui pourraient être gérées.

P.S. j'ai changé la date de D23 pour test.

Cordialement

Cliquez pour agrandir...

Hasco à dit:

Re,

Voici la même avec la liste des machines à la date de maintenance.

Code:

Sub Envoyer_mail()

    Dim oOutlook As Object  ' Objet application Outlook
    Dim Limite As Date
    Dim c As Range, Plage As Range
    Dim Machines As String
   
    Set Plage = Range("D5:D56")
   
    ' date limite (aujourd'hui + 14 jours)
    Limite = Date + 14


    'Lorsque vous aurez fait vos tests, décochez la ligne suivante
    'pour que les erreurs soient gérées.
    'On Error GoTo FIN

    ' Compter combien de date = limite dans la plage
    ' pour envoyer l'email ou alerter l'utilisateur
    If Application.CountIf(Plage, Limite) > 0 Then
        '
        ' Parcourir les cellules de la plage
        ' à la recherche des machines qui corresponde à la date de maintenance prévue
        ' en construire une liste textuelle pour le corps du message
        For Each c In Plage
            ' le nom de la machine se trouve à 2 colonnes à gauche de la colonne de date
            ' lf = saut de ligne
            If c.Value2 = Limite Then Machines = Machines & lf & c.Offset(, -2)
        Next
       
        ' Création de l'application Outlook
        Set oOutlook = CreateObject("Outlook.Application")    'création d'un objet outlook

        ' Travailler sur un objet email créée
        With oOutlook.CreateItem(olMailItem)
            .Subject = "Alerte maintenance préventive"
            .To = Range("E3")    ' Destinataire
            .Body = "Liste des machines dont la maintenance est prévue le " & _
                    Format(Limite, "dd/mm/yyyy") & " : " & lf & Machines
            .Send        'Display 'afficher le mail avant de l'envoyer ou send pour envoyer
        End With
    Else

        MsgBox "Opération annulée : Aucune tâche n'a été trouvée!", vbInformation, "Envoi mail de rappel"

    End If

FIN:
    '
    ' Si une erreur a été rencontrée, prévenir l'utilisateur
    If Err.Number <> 0 Then
        MsgBox "Opération échouée en raison de l'erreur suivante :" & vbCrLf & vbCrLf & _
               "Numéro de l'erreur: " & Err.Number & vbCrLf & vbCrLf & "Description: " & Err.Description, _
               vbExclamation, "Envoi mail de rappel de tache"
    End If
    '
    On Error GoTo 0
    '
    '   Toujours détruire correctement les variables objets pour éviter les fuites de mémoire
    Set oOutlook = Nothing
End Sub

Cordialement

Cliquez pour agrandir...

Hasco à dit:

Re,

Voici une macro faisant la liste des machines de la semaine correspondant à Aujourd'hui + 14:
Si vous ouvrez la fenêtre exécution (CTRL+G) vous y verrez en fin d'exécution de la macro, s'afficher la liste des machines concernées.

J'ai volontairement mis beaucoup de variables, pour que vous puissiez en suivre le cheminement et le comprendre.

La semaine part du lundi au dimanche, mais vous pouvez adapter à l'amplitude de votre semaine.

Code:

Sub MaintenancesDeLaSemaine()
    Dim Lundi As Date, Dimanche As Date, limite As Date
    Dim c As Range, Plage As Range
    Dim Machines As String

    Set Plage = Range("D5:D56")
    limite = Date + 14
    '
    ' Trouver le lundi de la semaine du jour limite
    ' Conversion en 'double' pour faciliter les comparaisons
    Lundi = CDbl(limite - Weekday(limite, vbMonday) + 1)
    Dimanche = CDbl(Lundi + 6)
    '
    ' Utilisation de la fonction NB.SI.ENS pour compter le nombre de machines cette semaine là
    If Application.CountIfs(Plage, ">=" & Lundi, Plage, "<=" & Dimanche) Then
        '
        ' Parcourir la plage à la recherche des dates de la semaine future
        For Each c In Plage
            If c.Value2 >= Lundi And c.Value2 <= Dimanche Then Machines = Machines & lf & c.Offset(, -2)
        Next
    End If
    '
    ' Affichage  dans la fenêtre exécution
    Debug.Print Machines
End Sub

Cordialement

Cliquez pour agrandir...

Hasco à dit:

Re,

Voyez la macro que je viens de vous poster (nos réponses se sont télescopées).

Quant à la 'récurrence vba', c'est dans la macro la boucle (les lignes de codes) :
FOR each c in Range("D5: D56")
' Traitement
NEXT

Traduction : Pour Chaque cellule (que je mets dans la variable c) de la plage D5: d56 fait le traitement suivant puis recommence (NEXT) jusqu'à épuisement des cellules de la plage.

cordialement

Cliquez pour agrandir...

Hasco à dit:

Re,

Pour l'instant l'interface homme machine est obligatoire le temps du développement ensuite on pourra à l'ouverture du classeur envoyer le mail.

La macro fait la liste des machines pour la SEMAINE qui contient Aujourd'hui+14
Aujourd'hui +14 = Mardi 8 juin
SEMAINE du mardi 8 juin = Lundi 7 au dimanche 13.

bon je vais être occupé, un moment je repasserai plus tard.

Cordialement

Cliquez pour agrandir...