Bonjour a tous,🖐
J'ai un commandbutton (valider) qui enregistre sur une feuille les valeurs des labels 1,4,5 et ferme le fichier---Cà c'est ok
Je souhaiterai également que le commandbutton(valider) envoi un mail avec les contenus label1,4 de l'userform1(ci-joint.
Je bloque.
-------------------------------------------------------------------------------------
Dim mail As Variant
Set mail = CreateObject("Outlook.Application")
Withmail.createItem (OlmailItem)
.Subject = "info" & Label1.Value
.to = "
pierre.xxxxxx@gmail.com"
.body = Label1.Value And Label4.Value
send
End With
F.Cells(lig, 1) = nom
F.Cells(lig, 2) = CDate(Label4)
If Label5 <> "" Then F.Cells(lig, 3) = CDate(Label5)
Unload Me 'ferme l'UserForm
'ActiveWorkbook.Save.Close True
With ThisWorkbook
.Save
.Close
Application.Quit
End With
End Sub
merci pour aide