Exécuter une macro puis fermer excel
Résolu
angus75
Messages postés
16
Date d'inscription
Statut
Membre
Dernière intervention
-
angus75 Messages postés 16 Date d'inscription Statut Membre Dernière intervention -
angus75 Messages postés 16 Date d'inscription Statut Membre Dernière intervention -
Bonjour,
J'aimerais une macro qui envoi une fichier Excel par mail puis ferme Excel. J'ai fais le code suivant mais Excel reste ouvert... Què passa ?
Sub Macro2()
With ActiveWorkbook
.SendMail Recipients:=Array("tttt@toto.ch", "fffff@toto.ch"), Subject:="XYZ - XXXX " & Format(Date, "dd/mm/yyyy")
.Close SaveChanges:=True
ActiveWorkbook.Save
End With
MsgBox ("Merci A+")
Application.Quit
End Sub
J'aimerais une macro qui envoi une fichier Excel par mail puis ferme Excel. J'ai fais le code suivant mais Excel reste ouvert... Què passa ?
Sub Macro2()
With ActiveWorkbook
.SendMail Recipients:=Array("tttt@toto.ch", "fffff@toto.ch"), Subject:="XYZ - XXXX " & Format(Date, "dd/mm/yyyy")
.Close SaveChanges:=True
ActiveWorkbook.Save
End With
MsgBox ("Merci A+")
Application.Quit
End Sub
A voir également:
- Vba fermer excel
- Liste déroulante excel - Guide
- Word et excel gratuit - Guide
- Déplacer colonne excel - Guide
- Si ou excel - Guide
- Excel compter cellule couleur sans vba - Guide
6 réponses
Non, le classeur se ferme bien, mais Excel reste ouvert...comme un con.
(entre nous, j'y connais pas trop, mais j'ai de la peine à comprendre comment il peut fermer le programme alors qu'il n'a pas encore eu le End Sub...)
(entre nous, j'y connais pas trop, mais j'ai de la peine à comprendre comment il peut fermer le programme alors qu'il n'a pas encore eu le End Sub...)
C'est normal qu'Excel ne quitte pas et que tu n'ais pas ta Msgbox.
Lorsque tu fermes le classeur, la macro s'arrete...
Il faut donc modifier ton code :
Sub Macro2()
ActiveWorkbook.SendMail Recipients:=Array("tttt@toto.ch", "fffff@toto.ch"), Subject:="XYZ - XXXX " & Format(Date, "dd/mm/yyyy")
ActiveWorkbook.Save
Application.Quit
End Sub
+++
Dépannage, formation et création de site internet en Gironde
www.ailp-informatique.net
Lorsque tu fermes le classeur, la macro s'arrete...
Il faut donc modifier ton code :
Sub Macro2()
ActiveWorkbook.SendMail Recipients:=Array("tttt@toto.ch", "fffff@toto.ch"), Subject:="XYZ - XXXX " & Format(Date, "dd/mm/yyyy")
ActiveWorkbook.Save
Application.Quit
End Sub
+++
Dépannage, formation et création de site internet en Gironde
www.ailp-informatique.net
La ligne ActiveWorkbook.Save n'est pas necessaire vu que tu ferme l'activeworkbook juste avant en le sauvegardant.
La commande Application.Quit ferme bien Excel chez moi, est-ce juste Excel qui reste ouvert ou ton classeur également ?
Dépannage, formation et création de site internet en Gironde
www.ailp-informatique.net
La commande Application.Quit ferme bien Excel chez moi, est-ce juste Excel qui reste ouvert ou ton classeur également ?
Dépannage, formation et création de site internet en Gironde
www.ailp-informatique.net
Essaye d'ajouter cette commande après Application.Quit :
Set ApplicationExcel = Nothing
Dépannage, formation et création de site internet en Gironde
www.ailp-informatique.net
Set ApplicationExcel = Nothing
Dépannage, formation et création de site internet en Gironde
www.ailp-informatique.net
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question