Probleme avec code ou bouton

bonsoir

j'ai essayé d'integrer le code suivant à un bouton d'enregistrement sur ma feuille de travail ce qui se fait bien , par contre lorsque je clic sur mon bouton( créé via le formulaire de la barre de menu ) auquel j'ai bien affecté la macro contenant ce code j'ai le message suivant :

"erreur d'execution 438"

proprieté ou methode non geré par cet objet

alors est ce que cela vient du code lui meme ? du choix du bouton ? sinon que choisir comme type de bouton ?

le code est le suivant :

Sub Archiver()

    Dim extension As String
    Dim chemin As String, nomfichier As String
    Dim style As Integer
    Application.ScreenUpdating = False
    ThisWorkbook.ActiveSheet.Copy
    extension = ".xls"
    chemin = "G:\Bordereau\"
    MsgBox ThisWorkbook.Path
    nomfichier = ActiveSheet.Range("A1") & "_Machin_" & Range("A2") & extension
    With ActiveWorkbook
        .DrawingObjects(1).Delete
        .SaveAs Filename:=chemin & nomfichier
        .Close
    End With
    End Sub

merci pour vos conseils

Bonjour à tous,

Attention Mytå, la méthode Close ne s'applique pas à une feuille. De plus le SaveAs appliqué à une feuille enregistrera cette seule feuille dans un nouveau classeur et non le classeur entier.

Le code corrigé :

    With ActiveWorkbook
      .ActiveSheet.DrawingObjects(1).Delete
      .SaveAs Filename:=chemin & nomfichier
      .Close
    End With

CA MARCHE YOUPPIIIIIII !!!!!!!!!!!! trop content !!!!!! merci VBA-NEW et Mita !!! vous etes des pro !!