Supprimer bouton macro apres creation classeur

[tyruso]

Bonjour,

J'ai créé un bouton macro qui me permet de créer un nouveau classeur excel avec comme nom la cellule B1.
Une fois le classeur créé, je voudrais supprimer le bouton macro uniquement sur se nouveau classeur.
Qulqu'un à un idée??

Private Sub CommandButton1_Click()
ActiveWorkbook.Save
monfichier = "C:\test\" & "ATS-" & Sheets("feuil1").Range("B1").Value
If Dir(monfichier & ".xls") <> "" Then
MsgBox ("Un fichier de ce nom existe déjà, veuillez le supprimer/déplacer avant nouvelle copie")
Else
monfichier = monfichier & ".xls"
ActiveWorkbook.SaveAs Filename:= _
monfichier, _
FileFormat:=xlNormal, Password:="", WriteResPassword:="", _
ReadOnlyRecommended:=False, CreateBackup:=False
MsgBox ("Fichier créé dans C:\test\")
End If
End Sub

 

[DoubleZero]

Re : Supprimer bouton macro apres creation classeur

Re-bonjour,

... Il faut activer la référence citée par Hasco dans VBE.

J'ai fini par trouver comment activer ladite référence !..

Merci à tous deux pour vos macros et à bientôt .