Microsoft 365 Unload Me

FCMLE44

XLDnaute Impliqué
Supporter XLD
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

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 Sub

J'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 Sub

Ca bloque à Unload Validations
1605168643756.png


Quelqu'un aurait il une idée ?

Merci
 

Discussions similaires

Réponses
6
Affichages
268