Bonjour,
Je vais essayer d'être plus clair que le titre:
Je fais une macro pour envoyer le fichier actif en PJ à un mail, jusque la pas de soucis. Mais, je voudrais pouvoir envoyer seulement les 2 premiéres feuilles sur 4 de mon fichier.
La solution qui me conviendrais le mieux serait tout simplement de cacher les feuilles inutiles pour l'envoi du fichier et les réafficher aprés. J'ai essayé en utilisant Sheets("Feuille 1").Visible = xlSheetVeryHidden Puis de réafficher la feuille aprés l'envoi du mail mais ca ne focntionne pas la feuille est présente dans le fichier joint au mail.
Si vous avez d'autres idées je suis preneur également.
Voici mon code pour l'envoi du mail.
Merci par avance.
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14 If Not (appOutlook Is Nothing) Then Set MonMail = appOutlook.CreateItem(olMailItem) MonMail.Attachments.Add Monfichier MonMail.To = listemail MonMail.Subject = "Appel d'offre pour ..." 'MonMail.Body = "Bonjour, Ci-joint à ce mail" MonMail.HTMLBody = strHTML MonMail.Display Set MonMail = Nothing Set appOutlook = Nothing End If
Partager