Bonjour à tous et merci par avance de votre aide,
Je vous joins un petit fichier
https://www.cjoint.com/c/FIdjeDfP1dk
En fouillant sur le net, j'ai réussi à trouver et adapter un code pour que lorsque l'on modifie la colonne A, ça envoie un message par mail.
Je ne connais que peu de choses en VBA...
Mon soucis se situe dans les informations que je veux avoir dans le corps du mail.
J'aimerai que si on remplit la cellule A4, dans le mail apparaisse la valeur de la colonne B4, C4, D4 et F4 et aussi la colonne G4...
Voici mon code, ça sera certainement plus clair :
'------------------------------------------------------------
Private Sub Worksheet_Change(ByVal Target As Range)
Dim Rg As Range, Message As String
Dim Destinataire As String, Sujet As String
Dim CheminFichier As String
Set Rg = Intersect(Range("A4:A9999"), Target)
If Rg.Cells.Count > 1 Then Exit Sub
If Not Rg Is Nothing And Rg <> "" Then
Destinataire = "xxx@gmail.com"
'L'objet du message
objet = "ATTENTION PRODUCTION BLOQUÉE..."
'Le message à afficher dans le corps du courriel
Message = "Merci de ne pas expédier le produit" & vbCrLf & vbCrLf & _
"Le service qualité vous informe qu'il a décidé de bloquer le produit suivant : " & vbCrLf & vbCrLf & _
"renvoi les données des colonnes B, C, D, E et F" & vbCrLf & vbCrLf & _
"pour la raison suivante :" & vbCrLf & vbCrLf & _
"renvoi les données de la colonne G"
'Chemin et nom de fichier à expédier au besoin
fichier = ""
Envoi_Courriel Destinataire, objet, Message, fichier
End If
'------------------------------------------------------------
End Sub
Sub Envoi_Courriel(Destinataire, Sujet, Message, Optional Chemin_NomFichier)
Application.DisplayAlerts = False
With CreateObject("Outlook.Application")
With .CreateItem(0)
.To = Destinataire
.Subject = Sujet
.Body = Message
If Chemin_NomFichier <> "" Then
.Attachments.Add Chemin_NomFichier
End If
' .Display 'pour afficher le message avant l'envoi
.Send
End With
End With
Set objMail = Nothing
Set objOL = Nothing
End Sub
'------------------------------------------------------------
Merci de votre aide.