Archiver des fichiers sans boutons

salut cher amis

je veux que le fichier formulaire requête archive comme le fichier BR-MAG (il garde les boutons du fichier principale que j'utilise toujours et il archive les fichier dans leur emplacement sans boutons°)

merci a vous

cordialement

Bonjour,

juste après la création du fichier BR-MAG appelez la macro Efface_Bouton

Sub Efface_Bouton()
For Each shp In ActiveSheet.Shapes
  If Left(shp.Name, 6) = "Button" Then shp.Delete
Next
End Sub

Salut

le macro d'archiver (bouton archiver )les fichier sans boutons du fichier ci joint BR_MAG

Je veux l'appliquer dans le fichier formulaire requete.

Merci