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

 

[MJ13]

Re : Supprimer bouton macro apres creation classeur

Bonjour Tyruso

Teste ce code. Notons que Henry pseudo de l'enregistreur de macros, aurait pu t'aiguiller.

ActiveSheet.Shapes("CommandButton1").Delete

 

[tyruso]

Re : Supprimer bouton macro apres creation classeur

Merci

Le bouton se supprime bien mais pas la macro en elle-meme...

 

[MJ13]

Re : Supprimer bouton macro apres creation classeur

Re

voir ici:

https://www.excel-downloads.com/threads/faire-une-maj-de-macro-dun-classeur-a-autre.165338/

 

[gilbert_RGI]

Re : Supprimer bouton macro apres creation classeur

Bonjour

comme ceci peut-être

Sub test()
    Dim nomclasseur As String
    Application.ScreenUpdating = False
    Set oldbook = ThisWorkbook
    nomclasseur = Sheets(1).[b1].Value
    Set NewBook = Workbooks.Add
    NewBook.SaveAs Filename:=oldbook.Path & "/" & nomclasseur
    oldbook.Close
    Application.ScreenUpdating = True
End Sub

 

[Pierrot93]

Re : Supprimer bouton macro apres creation classeur

Bonjour à tous,

essaye ceci :

Sub test()
With ThisWorkbook.VBProject.VBComponents("Feuil1").CodeModule
    .DeleteLines 1, .CountOfLines
End With
End Sub

dans les options de sécurité, "faire confiance au projet visual basic" doit être coché.

bon après midi
@+

 

[Pierrot93]

Re : Supprimer bouton macro apres creation classeur

Re,

A noterr que sous 2007, tu dois pouvoir enregistrer ton classeur au format "xlsx", format qui ne gère pas les macros....

 

[tyruso]

Re : Supprimer bouton macro apres creation classeur

Bonjour,
Merci pour vos réponses mais il faut que le code soit à la suite de celui que j'ai présenté plus haut et que mon fichier reste en xls.
Le code ActiveSheet.Shapes("CommandButton1").Delete fonctionne nickel car il me supprime le bouton mais la macro reste dans le nouveau classeur créer...
Une autre idée?

 

[Staple1600]

Re : Supprimer bouton macro apres creation classeur

Bonsoir à tous

Bonjour,
Une autre idée?

Oui

Utiliser le moteur de recherche du forum (car sujet déjà traité sur XLD)

Un exemple de fil de discussion relatif à cette question

 

[Pierrot93]

Re : Supprimer bouton macro apres creation classeur

Re,

Merci pour vos réponses mais il faut que le code soit à la suite de celui que j'ai présenté plus haut et que mon fichier reste en xls.

bah mets le à la suite... juste avant le "end sub"... euh... sans doute pas tout compris moi....

bonne soirée
@+

 

[Pierrot93]

Re : Supprimer bouton macro apres creation classeur

Re,

remplace tout de même 'ThisWorkbook" par "ActiveWorkbook"....

 

[Staple1600]

Re : Supprimer bouton macro apres creation classeur

Re


Un autre fil avec une réponse de Hasco
https://www.excel-downloads.com/thr...sseur-contenant-des-macros-sans-macros.98818/

PS: Merci 00

 

[DoubleZero]

Re : Supprimer bouton macro apres creation classeur

Bonjour, le Fil , le Forum,

... Un exemple de fil de discussion relatif à cette question

Un nouvel exemple dans cette autre discussion.

Bon courage.

 

[DoubleZero]

Re : Supprimer bouton macro apres creation classeur

Re-bonjour,

... Un autre fil avec une réponse de Hasco
https://www.excel-downloads.com/thr...sseur-contenant-des-macros-sans-macros.98818/

PS: Merci 00

@ Staple1600 ,

Sur mon PC, la macro de Hasco génère une erreur et la tienne fonctionne .

A bientôt .

 

[Staple1600]

Re : Supprimer bouton macro apres creation classeur

RE

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