Supprimer/cacher un CommandButton avec une macro

[Cefiroth]

Bonjour le forum !

J'ai un petit problème sur excel...
Voilà j'ai un fichier n°1 ("test") sur lequel une macro permet de copier la page "faille" dans un fichier n°2 ("Archivage").
Le code est le suivant :

    Application.DisplayAlerts = False
    chemin = ThisWorkbook.Path
    fichier = chemin & "\" & "Archivage.xls"
    If Dir(fichier, vbDirectory) = "" Then MsgBox "Le fichier Archivage.xls n'existe pas !": Exit Sub
    On Error Resume Next
    Workbooks.Open fichier
    On Error GoTo 0
    b = Workbooks("EXFAILLE.xls").Sheets("Failles").Range("F2")
    For Each F In Sheets
    If F.Name = b Then
    MsgBox "La feuille existe déjà !"
    ActiveWindow.Close
    Exit Sub
    End If
    Next F
    Workbooks("EXFAILLE.xls").Sheets("Failles").Copy _
        Before:=Workbooks("Archivage.xls").Sheets(1)
    ActiveSheet.Name = Sheets("Failles").Range("F2").Value
    

    ActiveWorkbook.Save

    MsgBox "Archivage réalisé"

Jusque ici tout fonctionne très bien.

Le problème c'est que le code copie/colle la feuille "Failles" en entier, y compris les CommandButton présents sur la page.
J'aimerais que ceux-ci n'apparaissent pas dans le fichier "Archivage".

J'ai penser à plusieurs solutions :
- Supprimer les boutons grâce au code, par exemple en ajoutant "CommandButton1.delete" mais ça ne fonctionne pas...
- Cacher les boutons en ajoutant un "cache" blanc par dessus grâce au code
- Supprimer les macros affectées aux boutons pour que l'on ne puisse plus cliquer dessus

J'ai essayer ces solutions mais sans succès, donc si l'un d'entre vous à une idée ça serait génial !

J'éspère avoir été clair, car c'est pas facile à expliquer.

Merci d'avance !

Cef

 

[DoubleZero]

Re : Supprimer/cacher un CommandButton avec une macro

Bonjour, Cefiroth, le Forum,

En insérant, peut-être :

ActiveSheet.DrawingObjects.Delete

sous cette ligne de code :

ActiveSheet.Name = Sheets("Failles").Range("F2").Value

A bientôt

 

[Cefiroth]

Re : Supprimer/cacher un CommandButton avec une macro

Ca fontionne impecablement, merci DoubleZero !

Cef