effacer boutons à l'enregistrement

[Michel]

Bonjour le forum,
Pour enregistrer ma feuille active j'utilise ceci :

Sub EnregistrerFacture()
ActiveSheet.Copy
ActiveWorkbook.SaveAs Filename:="E:\Facture\Facture\" & "Facture" & ActiveSheet.Range("L4").Value & " " & Format(Date, "d mmmm yyyy") & ".xls"
ActiveWorkbook.Close

MsgBox "Sauvegarde effectuée . ", vbInformation, "Message"
End Sub

Voila mon petit problème :
Sur l'original, j'ai des boutons, et quand j'enregistre ma feuille, je ne voudrais pas que les boutons apparaisent sur la feuille enregistrée.

D'avance je vous remercie
Michel

 

[Munchkin]

je pense que c'est

nom_bouton.visible = false


tu l'ajoute au bon endroit

ca marche?

Munchkin

 

[Michel]

Salut Munchkin,
J'ai essayé de placer ta formule dans tous les sens et ça ne marche pas.
Désolé et merci
Michel

 

[michel]

bonsoir Michel , bonsoir Munchkin

s'il s'agit d'OLEobjects tu peux essayer :

Sub EnregistrerFacture()
Dim Obj As Object

ActiveSheet.Copy

For Each Obj In ActiveSheet.OLEObjects
Obj.Delete
Next Obj

ActiveWorkbook.SaveAs Filename:="E:\Facture\Facture\" & "Facture" & ActiveSheet.Range("L4").Value & " " & Format(Date, "d mmmm yyyy") & ".xls"
ActiveWorkbook.Close

MsgBox "Sauvegarde effectuée . ", vbInformation, "Message"
End Sub


bonne soiree
michel

 

[Michel]

Salut Michel,
Ce sont des boutons de la barre d'outils Formulaire, et la formule que tu ma passée ne marche pas.
Mais merci quand même
Michel

 

[michel]

rebonsoir michel

dans ce cas tu peux essayer

For Each Obj In ActiveSheet.DrawingObjects
Obj.Delete
Next Obj


bonne soiree
michel

 

[Michel]

Re Michel
Impect et même excellent, je te remercie beaucoup
@ plus
Michel