Comment adapter un module a un bouton

bonsoir

j'ai le code suivant que j'ai adapté sur le module d'une feuille , à cette feuille je souhaite y placer un bouton de commande

mais je ne sais pas comment le mettre en relation avec le module .

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

j'essaie d'apprendre ce type de manip , merci pour vos explications

Bonjour

Tu crées une forme quelconque (Forme automatique, dessin, image) et tu fais un click droit dessus et "Affecter une macro"

Tu sélectionnes ta macro dans la liste et c'est fait

Cordialement