Discussion :

[pheonix00fr]

Bonjour, je voudrais intégrer une macro à un formulaire sous excel qui en cliquant sur un bouton envoi se formulaire par mail et le ferme automatiquement sans enregistrer les modification. J'ai cette macro

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
Sub Mail()
 
ActiveWorkbook.SendMail _
    Recipients:=Array("adresse@mail.fr"), _
    Subject:=ActiveWorkbook.Name, _
    ReturnReceipt:=flase
 
    ActiveWorkbook.Close savechanges:=False
 
End Subl

Le problème c'est que le fichier est envoyé et se ferme bien, mais les modifications sont enregistré. Je ne sais pas comment faire.

[Zirak]

Bonjour,

Essais simplement

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

ActiveWorkbook.Close False

Il me semble que cela devrait suffire.

[pheonix00fr]

Merci pour ta réponse, mais non les modifs sont enregistrées. J’ai remarqué dès que fichier est envoyé par mail in se sauvegarde. Si je supprime la ligne " ActiveWorkbook.Close False " et que je ferme manuellement après l'envoi, je n'ai pas la proposition d'enregistrer ou pas les modifications.

[Zirak]

Je n'ai jamais employé cette méthode pour envoyer un mail, mais si tu dis que l'envoi sauvegarde automatiquement les modifications, essais peut-être (avant l'envoi), de copier ton classeur, et d'envoyer la copie (qui sera sauvegardée mais pas grave), et tu pourras ensuite refermer ton classeur d'origine sans sauvegarder.

[piotr76]

Bonjour

Et en mettant

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

ActiveWorkbook.Saved = True

avant l'envoi?

Cordialement

[pheonix00fr]

merci pour vos réponses, mais pour piotr76 le but est que le fichier après l'envoi revienne a sa version initiale. Dans l'idée suggéré par Zirak et comme c'est un formulaire avec des cellules précises à saisir, après l'envoi j’efface toutes ces cellules, je sauvegarde et ferme.
Merci à vous.