Microsoft 365 Unload Me

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

FCMLE44

XLDnaute Impliqué
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
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

  • Question Question
Microsoft 365 Code VBA
Réponses
7
Affichages
817
Réponses
6
Affichages
739
Retour