bouton de commande macro

[bpol]

bonsoir,

je voudrais connaître la marche à suivre pour que lzs botons de commande ( formulaire) ne sdoit pas copier quand j'enregistre mon fichier

fichier exemple joint

Merci
Bpol

 

[Dan]

Re : bouton de commande macro

Bonsoir,

Dans ta macro "Sauver", change le code comme suit:

...
ActiveWorkbook.SaveAs Filename:=ThisWorkbook.Path & "\" & Classdest
ActiveSheet.Shapes("Bouton 1").Delete
...
end sub

Amicalement

Dan

 

[bpol]

Re : bouton de commande macro

merci dan pour certaine macro cela fonctionne
mais ici elle bug
Dim Classdest As String, Onglet As String ' Déclaration des Variables

Sheets("facture").Copy '
Onglet = Range("A1").Value
ActiveSheet.Name = Onglet 'Nouvelle feuille =
Classdest = Range("G7") & ".xls"

ActiveWorkbook.SaveAs Filename:=ThisWorkbook.Path & "\" & Classdest
ActiveSheet.Shapes("Bouton 4").Delete

ActiveWorkbook.Close

ce qui est en gras se met en surlignage jaune

A+
Bpol

 

[Dan]

Re : bouton de commande macro

re,

Oui pas facile car Bouton 4 est en fait le nom qu'attribue excel.

Remplace cette ligne par ceci :

ActiveSheet.DrawingObjects.Delete

A te relire

@+ Dan

 

[bpol]

Re : bouton de commande macro

oki merci DAN

par contre y a t il un moyen de retrouver ce nomque excel lui attribue lorsqu'on l'a remplacé par du texte.
car dans une feuille j'ai 5 boutons et il faudrait en supprimer certains

Bpol

 

[Dan]

Re : bouton de commande macro

re,

Clique droite sur le bouton te donne la référence de l'objet dans la zone "nom".
Cette rubrique se trouve en haut à gauche de la barre de formule ou en dessous de la liste des polices.

Amicalement

Dan

 

[bpol]

Re : bouton de commande macro

ahh merci dan

A+

 

[Mytå]

Re : bouton de commande macro

Salut BoPol

Tu aurais aussi pu te servir de la proprietés .caption du bouton
Mais Dan ta déjà donné, donné une solution qui convient aussi.

Mytå