Discussion :

[Bernard67]

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

[fring]

'Code pour ne pas copier le bouton
ActiveSheet.Shapes("CommandButton18").Select
Application.EnableEvents = False
Selection.Delete
Application.EnableEvents = True

Bonjour,
Remplace les lignes ci-dessus par :

Code :

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

ActiveSheet.Shapes("CommandButton1").Delete

[Bernard67]

Bonjour Fring

J'ai toujours le message d'erreur :
Erreur systeme &H80070057 (-2147024809) parametre incorrect

[Lou Pitchoun]

Salut,

Tu as créé ce bouton à partir de quelle barre d'outils ?

• Si c'est celle qui s'appelle 'Commandes', tu sélectionnes le bouton, tu affiches les propriétés et tu modifies la propriété PrintObject.
• Si c'est la barre d'outils 'Formulaires', tu cliques droit sur le bouton, tu fais 'Format de contrôle', onglet 'Propriétés', tu décoches 'Imprimer l'objet'.

Tes boutons sont visibles sur la feuille, mais pas en impression.

[fring]

Attention, tu dois adapter la ligne de code à ton numéro de bouton, j'ai oublié de le préciser

ActiveSheet.Shapes("CommandButton1").Delete

[Bernard67]

Desole, mais j'ai toujours le meme message d'erreur.

C'est bien le bouton 20 et imprimer l'objet est bien decoché.

[Lou Pitchoun]

J'ai été induit en erreur par ton 1er message.

Ceci fonctionne dans le cas où le bouton a été créé par la barre d'outils "Commandes" :

Code :

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

1
2
    ActiveSheet.CommandButton1.Select
    Selection.Delete