Envoie mail automatique d'excel vers outlook

[misslol_21]

Bonjour je suis étudiante et dans le cadre d'un projet je dois réaliser un tableur avec une colonne nom des produits l'autre date de péremption puis stock entrant, sortant et restant. J'ai créé des mises en formes conditionnelles pour que quand le stock arrive à terme où est périmé la cellule se colore. Maintenant je voudrais pouvoir faire envoyer un mail à outlook automatiquement quand soit le stock arrive à terme soit il est périmé. J'ai vu pas mal de forum où ils disent qu'il faut créer des macros mais c'est pas assez détaillé et pas adapté à mon cas donc je n'y arrive pas. Si vous avez bien compris ma demande j'espère que vous pourrez me donner la démarche à suivre pour y arriver.

Merci

[olaxius]

Bonjour,
Votre question n'est pas très claire , je pense que vous voulez un exemple de code

Dans ce cas voici un morceau de code retrouvé dans un tiroir pour envoyer une feuille excel par mail

Code :

1
2
3
4
5
6
7
8
 
'Copie une feuille du classeur facultatif si on veut envoyer la totalité du classeur
Dim wbk as workbook
ThisWorkbook.Sheets("Feuil1").Copy
    Set wbk = ActiveWorkbook
    wbk.SendMail "toto@developpez.net", "Objet du message"
	'Facultatif si on veut fermer le classeur sans sauvegarder après l'envoi
    wbk.Close savechanges:=False

Dans un autre tiroir j'ai trouver ça pour envoyer un "simple msg" via outlook

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
 
'il faut obligatoirement ajouter dans les références microsoft outlook
Dim vEmail As Outlook.MailItem
Dim vAppOL As Object
Dim vFichier As String
Set vAppOL = New Outlook.Application
Set vEmail = vAppOL.CreateItem(olMailItem)
With vEmail
    .Recipients.Add "unemail@developpez.net"
	'Pour joindre un fichier
    '.Attachments.Add unfichier
    .Subject = "Intégration de commandes pour les groupements"
    .Body = "ceci est le message"
    .Send
End With
Set vEmail = Nothing

Espérant vous avoir aidé

[misslol_21]

Bonjour,
Merci de votre réponse, effectivement elle m'aide ùais est-ce qu'il serait possible d'envoyer le seulement à certaine conditions. Je m'explique.
Dans mon tableau excel, j'ai appliqué des mises en formes conditionnelles à certaines cellules ( certaines se colorient en vert, rouge, noir ou bien jaune ). Je voudrais qu'un mail s'envoit dès lors qu'une des cellules de mon tableau se colore. Ce mail doit m'informer de la ou les cellules ciblées par le changement de couleur.
Merci par avance pour votre aide.