Bonjour le forum.
Je viens vers vous car je bloque sur le code pour ne pas imprimer le bouton "Envoi par mail" qui se trouve sur la feuille que j'envoie par mail. Le probleme se trouve sur les lignes 5 a 8 qui me cree une erreur systeme.
Merci pour l'aide.
Cordialement
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
 
Sub envoimail()
 
'copie la feuille dans un nouveau classeur
ThisWorkbook.Sheets("IDF").Copy
 
'Code pour ne pas copier le bouton
ActiveSheet.Shapes("CommandButton18").Select
    Application.EnableEvents = False
    Selection.Delete
    Application.EnableEvents = True
 
 
'Sauve le classeur
ActiveWorkbook.SaveAs "C:\Temp\IDF.xls"
 
 
 
'Envoi le classeur par mail
ActiveWorkbook.SendMail "AAAAAA@free.fr"
 
 
'Cette ligne fait une temporisation de 10 secondes entre les mails
Application.Wait (Now + TimeValue("00:00:10"))
 
 
 
'Ferme sans sauver
ActiveWorkbook.Close False
 
'Supprime le classeur temp crée
Kill "C:\Temp\*.xls"
 
MsgBox "Le message est envoyé"
 
End Sub