Bonjour
A la fin du code ci-dessous, je souhaite quitter les userform que j'ai ouvert une fois que j'ai envoyé mon mail
J'ai mis à la fin
Ca bloque à Unload Validations
Quelqu'un aurait il une idée ?
Merci
A la fin du code ci-dessous, je souhaite quitter les userform que j'ai ouvert une fois que j'ai envoyé mon mail
VB:
Private Sub Image1_MouseDown(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
Dim Fichiers As Variant
Dim i As Integer
Dim Ol As Outlook.Application
Dim olMail As MailItem
Dim SigString As String
Dim Signature As String
Set Ol = New Outlook.Application
Set olMail = Ol.CreateItem(olMailItem)
'Change only Mysig.htm to the name of your signature
SigString = Environ("appdata") & "\Microsoft\Signatures\travail.htm"
If Dir(SigString) <> "" Then
Signature = GetBoiler(SigString)
Else
Signature = ""
End If
With olMail
.To = Range("AC1")
.Subject = "Simulation d'indemnité de départ " & Range("B9")
.HTMLBody = "<html><body>Bonjour,</body></html><br>" & _
"<html><body>Je valide la simulation d'indemnité de départ.</body></html><br>" & _
"<html><body>Tu peux envoyer le formulaire à la RH.</body></html><br>" & _
"<html><body>Bonne réception</body></html><br>" & "<html><body>Cordialement</body></html>" & _
"<br>" & Signature & .HTMLBody 'le corps du mail ..son contenu
'Boucle sur le tableau pour récupérer le nom du ou des classeurs sélectionnées.
'(IsArray(Fichiers) renvoie False si aucun fichier n'a été sélectionné).
If IsArray(Fichiers) Then
For i = 1 To UBound(Fichiers)
.Attachments.Add Fichiers(i)
Next
End If
.Display
Unload Me 'Quitte le userform Mail
Unload Validations 'Quitte le userform Validations
Worksheets("Salariés").Activate
Range("B6").Select
End With
End SubJ'ai mis à la fin
Code:
Unload Me 'Quitte le userform Mail
Unload Validations 'Quitte le userform Validations
Worksheets("Salariés").Activate
Range("B6").Select
End With
End SubCa bloque à Unload Validations
Quelqu'un aurait il une idée ?
Merci