Supprimer bouton macro apres creation classeur

tyruso · 18 Juillet 2011

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 · 18 Juillet 2011

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.

Code:

ActiveSheet.Shapes("CommandButton1").Delete

tyruso · 18 Juillet 2011

Re : Supprimer bouton macro apres creation classeur

Merci

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

MJ13 · 18 Juillet 2011

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 · 18 Juillet 2011

Re : Supprimer bouton macro apres creation classeur

Bonjour

comme ceci peut-être

Code:

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 · 18 Juillet 2011

Re : Supprimer bouton macro apres creation classeur

Bonjour à tous,

essaye ceci :

Code:

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 · 18 Juillet 2011

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 · 18 Juillet 2011

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 · 18 Juillet 2011

Re : Supprimer bouton macro apres creation classeur

Bonsoir à tous

tyruso à dit:
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 · 18 Juillet 2011

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 · 18 Juillet 2011

Re : Supprimer bouton macro apres creation classeur

Re,

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

Staple1600 · 18 Juillet 2011

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 · 18 Juillet 2011

Re : Supprimer bouton macro apres creation classeur

Bonjour, le Fil , le Forum,

Staple1600 à dit:
... Un exemple de fil de discussion relatif à cette question

Un nouvel exemple dans cette autre discussion.

Bon courage.

DoubleZero · 18 Juillet 2011

Re : Supprimer bouton macro apres creation classeur

Re-bonjour,

Staple1600 à dit:
... 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 · 18 Juillet 2011

Re : Supprimer bouton macro apres creation classeur

RE

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

Supprimer bouton macro apres creation classeur

tyruso

XLDnaute Junior

MJ13

XLDnaute Barbatruc

tyruso

XLDnaute Junior

MJ13

XLDnaute Barbatruc

gilbert_RGI

XLDnaute Barbatruc

Pierrot93

XLDnaute Barbatruc

Pierrot93

XLDnaute Barbatruc

tyruso

XLDnaute Junior

Staple1600

XLDnaute Barbatruc

Pierrot93

XLDnaute Barbatruc

Pierrot93

XLDnaute Barbatruc

Staple1600

XLDnaute Barbatruc

DoubleZero

XLDnaute Barbatruc

DoubleZero

XLDnaute Barbatruc

Staple1600

XLDnaute Barbatruc

Discussions similaires