Envoi E.mail depuis Excel

Bonjour,

Pour la gestion d'un stock avec un fournisseur, nous tenons à jour un fichier d’envoi et réception de bacs.

Dans le fichier Excel ci-joint, je souhaite qu'il y ait la possibilité d'envoyer un E.mail à la personne en charge des commandes lorsque le niveau de stock des bacs soit en dessous d'un certains seuil.

Comment réaliser ceci ?

Merci d'avance.

Cordialement

Bonjour,

de nombreux exemple sont disponibles sur ce site, voir liens sous le message

un exemple de macro basé sur ce que j'ai compris de ton cas. Mais il faudra que tu mémorise quelque part l'adresse mail des destinataires pour automatiser davantage.

Sub EnvoiMail()

    With Worksheets("Feuil1")
        If .Range("B3") < .Range("G6") Then
            Set olApp = CreateObject("outlook.application")
            Set olMail = olApp.CreateItem(olMailItem)

            With olMail

                .To = "xxx@yy.com" 'mettre adresse mail de David
                .CC = "zzz@yy.com"
                .Subject = "sujet"
                .Body = " message"

                .send

            End With
        End If
    End With
End Sub

Ca marche,

Merci

Super