Mail d'alerte automatique contenant tableau si conditions remplies

Le 01/03/2023 à 17:41

Bonjour à tous,

j'ai le même projet que Mariusoust. Je souhaiterais regrouper les lignes du tableau répondant aux conditions suivantes :

pour chaque ligne, si la valeur de la colonne F "Cours actuel" est supérieure ou égale à la valeur de la colonne I "Cours de sortie prévu" et que la valeur de la colonne K renvoi "Activé". L'envoi du mail se fera à l'ouverture du fichier. Le mail se présente sous ce format :

Objet : Désinvestissement

Corps du message :

Bonjour,

L'objectif de sortie pour les investissements suivants est atteint :

image

Cordialement !

j'ai essayé un morceau de code dans Thisworkbook du fichier, mais je ne sais pas comment renvoyer le tableau des lignes qui respectant les deux conditions dans le corps du mail.

Le fichier

5test-1.xlsm (23.18 Ko)
Le 01/03/2023 à 19:01

Bonjour bidexcel

Meeci d'éditer votre précédent poste pour mettre un bonjour SVP

A+

Le 02/03/2023 à 10:04

Bonjour BrunoM45,

Je n'arrive pas pour le moment à éditer le message. J'ai pas acces au menu d'édition. Si tu peux m'y autorisé

Je sollicite en meme temps ton aide pour mon sujet stp

Cdt !

Le 16/03/2023 à 18:52

Bonjour

svp quelqu'un pourrait m'aider ?

J'ai reussi à ecrire ces lignes de codes mais je reste bloqué sur une erreur 424 que voici

aaaa bbbb

Voici le code

Sub Filtrer_colonne_L_et_envoyer_email()

    'Activer la feuille contenant le tableau
    Sheets("Resumé").Activate

    'Définir le tableau
    Dim Tableau As ListObject
    Set Tableau = ActiveSheet.ListObjects("Tableau_resume")

    'Appliquer le filtre sur la colonne L avec le critère spécifié
    Tableau.Range.AutoFilter Field:=11, Criteria1:="Vrai"

    'Copier le tableau filtré en tant qu'image
    Dim img As Picture
    Set img = Tableau.Range.CopyPicture(xlScreen, xlPicture)

    'Coller l'image dans le corps d'un nouvel e-mail
    Dim OutApp As Object
    Dim OutMail As Object
    Set OutApp = CreateObject("Outlook.Application")
    Set OutMail = OutApp.CreateItem(0)

    With OutMail
        .To = "aa@gmail.com"
        .Subject = "Tableau filtré"
        .HTMLBody = "<html><body><p>Le tableau filtré est ci-dessous:</p>" & _
                    "<p><img src='cid:tableau'></p></body></html>"
        .Display
    End With

    'Ajouter l'image en tant que pièce jointe et définir son nom en tant que "tableau_filtre.png"
    Dim chemin_image As String
    chemin_image = Environ("temp") & "\" & "tableau_filtre.png"
    img.Copy
    With OutMail
        .Attachments.Add chemin_image, olByValue, 0
        .Attachments.Item(1).DisplayName = "tableau_filtre.png"
        .HTMLBody = Replace(.HTMLBody, "cid:tableau", .Attachments.Item(1).PropertyAccessor.BinaryToString(.Attachments.Item(1).PropertyAccessor.GetProperty("http://schemas.microsoft.com/mapi/proptag/0x3712001F")))
        .Display
    End With

    'Effacer le filtre
    Tableau.Range.AutoFilter

End Sub

Merci d'avance

Le 17/03/2023 à 17:52

Bonsoir,

Je vous invite à lire la charte du forum [A LIRE AVANT DE POSTER] concernant le CROSS POSTING

  • Ne postez pas la même question sur un autre forum pour éviter de faire perdre bêtement du temps aux membres sur un problème qui peut être déjà résolu sur l'autre forum. L'inverse est également valable, si vous avez déjà posé votre question sur un autre forum, ne créez pas un doublon sur ce forum (à moins d'avoir clôturé le sujet sur l'autre forum).

Je verrouille donc le sujet ici en attendant votre décision

Merci de votre compréhension et de votre participation

Rechercher des sujets similaires à "mail alerte automatique contenant tableau conditions remplies"