Fermer excel avec les macros

[rainbow69006]

Bonjour

je bloque sur quelque chose

J'ai un user form avec un bouton qui me permet d'ouvrir outlook et d'envoyer un message deja preecris.

Ce que je voudrais c'est que lorsque je clic sur ce bouton sa m'ouvre outlook etc.. mais que sa me ferme mon classeur excel.

J'ai essayer de mettre ce qu'il y a en gras mais sa ne marche pas
a chaque fois j'ai un message d'erreur 91 object variable or with block variable not set. Merci de votre aide

Option Explicit


Private Sub CommandButton1_Click()

Dim ApplicOutlook As Object
Dim Application As Object ou alors Dim applicexcel As object
Dim ElémentCourrier As Object
Dim Cellule As Range
Dim Sujet As String
Dim AdresseElec As String
Dim Msg As String

'Création de l'objet Outlook
Set ApplicOutlook = CreateObject("Outlook.Application")

'Extraction des données
Sujet = ""
AdresseElec = ""

'Composition du message
Msg = ":" & vbLf & vbLf
Msg = Msg & " :" & vbLf
Msg = Msg & " " & vbLf & vbLf
Msg = Msg & " " & vbLf
Msg = Msg & " " & vbLf & vbLf
Msg = Msg & " "


'Création de l'élément de courrier et envoi
Set ElémentCourrier = ApplicOutlook.CreateItem(0)
With ElémentCourrier
.To = AdresseElec
'.Cc = ??
.Subject = Sujet
.Body = Msg
.Display
End With

Application.Quit ou alors applicexcel.quit

End Sub

 

[CBernardT]

Re : Fermer excel avec les macros

Bonjour rainbow69006,

Si j'ai bien compris, il faut avant de fermer Excel revenir dans l'application puis quitter l'application :


Private Sub CommandButton1_Click()

Dim ApplicOutlook As Object
Dim ElémentCourrier As Object
Dim Cellule As Range
Dim Sujet As String
Dim AdresseElec As String
Dim Msg As String

'Création de l'objet Outlook
Set ApplicOutlook = CreateObject("Outlook.Application")

'Extraction des données
Sujet = ""
AdresseElec = ""

'Composition du message
Msg = ":" & vbLf & vbLf
Msg = Msg & " :" & vbLf
Msg = Msg & " " & vbLf & vbLf
Msg = Msg & " " & vbLf
Msg = Msg & " " & vbLf & vbLf
Msg = Msg & " "


'Création de l'élément de courrier et envoi
Set ElémentCourrier = ApplicOutlook.CreateItem(0)
With ElémentCourrier
.To = AdresseElec
'.Cc = ??
.Subject = Sujet
.Body = Msg
.Display
End With

Windows("Classeur1.xls").Activate ' Retour sur Excel
Application.Quit ' pour quitte Excel

End Sub

Cordialement

Bernard

 

[rainbow69006]

Re : Fermer excel avec les macros

C'est bon c'est tout a fais ce que je voullais

merci Bernard