VBA : envoie d'un mail en sélectionnant le destinataire

Bonjour,

J'aurai besoin d'aide en ce qui concerne une macro,

J'ai crée un formulaire de congés pour les salariés d'une entreprise, celui-ci est composé d'un bouton "créer la demande" qui envoie un mail à la direction l'informant qu'un salarié a effectué une demande. En ce qui concerne cette macro, j'ai réussi à la faire. En revanche, je bloque pour la suivante. La direction doit ensuite se rendre sur l'outil excel, dans le formulaire de congés, et à travers une liste déroulante "valider" ou "refuser" la demande du salarié. C'est lorsque la direction prend la décision, qu'un mail devra être automatiquement envoyé au salarié concerné lui précisant que cette demande a été prise en compte.

Donc est-il possible, à travers une macro, d'envoyer un mail lorsque la liste déroulante change d'état ("valider" ou "refuser") au destinataire concerné ?

Je bloque vraiment sur cette macro, merci d'avance pour votre aide ...

Bonjour,

avec un procédure événementielle à mettre dans le module de la feuille

Private Sub Worksheet_Change(ByVal Target As Range)
If Target = "Valider" Then
'ce qu 'il faut faire en cas de validation
ElseIf Target = "Refuser" Then
'ce qu'il faut faire en cas de refus
End If
End Sub

Merci beaucoup pour votre réponse, ça m'aide beaucoup

En revanche, est-ce que vous savez comment je peux faire pour sélectionner l'adresse mail du destinataire auquel je veux envoyer mon mail ?

Je vous joint en pièce jointe on outil si vous voulez jeter un coup d’œil, ça peut peut être vous aider

Bonjour,

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Column = 19 Then
        mat = Cells(Target.Row, "K") & ""
        Set re = Sheets("base de données salariés").Columns("C:C").Find(mat, lookat:=xlWhole)
        adresse_mail = re.Offset(0, 2)
        If Target = "Validée" Then
            msg = "Votre demande de congé a été acceptée"
        ElseIf Target = "Refusée" Then
            msg = "Votre demande de congé a été refusée"
        End If

        Set ObjOutlook = CreateObject("Outlook.Application")
        Set ObjMail = ObjOutlook.CreateItem(olMailItem)

        '----------------------------------------------
        'Début du lancement

        With ObjMail
            .To = adresse_mail    'L'adresse du destinataire
            .Subject = "Demande de congés"    'L'objet du mail
            .body = msg
            .send
        End With

        ObjOutlook.Quit
        Set ObjMail = Nothing
        Set ObjOutlook = Nothing
    End If
End Sub

Merci beaucoup pour votre réponse, c'est exactement ce que je recherchais.

En revanche, je n'arrive pas à télécharger le fichier que vous m'avez envoyer ... est-ce que vous pouvez me le renvoyer s'il vous plait ? ... je ne comprends pas pourquoi je n'arrive pas à l'ouvrir, ça me mets "erreur réseau" ...

re-bonjour,

le fichier sur le forum est correct, je parviens à le télécharger.