Remplacer bouton par automatisation macro

[ice Thé]

bonjour à tous, voila jai une macro qui s'execute avec un bouton je voudrait qu'elle s'exécute à l'ouverture du fichier et supprimer le bouton.
Voici le debut de la macro:
Sub Bouton1_QuandClic()
ActiveSheet.Protect Password:='GRATC', UserInterfaceOnly:=True
Range('A2:G65000').ClearContents
Dim chemin As String
Dim fichier As String
Dim ligne As Integer
Dim i As Integer, x As Integer, j As Integer, k As Integer
Dim tablosplit As Variant
Dim valeur As String
Dim tablores()
Dim tabloL As Variant
Dim tablo()

tabloL = Range('l2:l' & Range('l65536').End(xlUp).Row)
chemin = 'L:\\test102\\SE102\\'
fichier = Dir(chemin & '*.txt')
ligne = 2
ect ect ect .........
Pouriez vous m'aider à la modifier , svp
merci d'avance

 

[JC de Lorient]

salut

tout simplement en mettant ton code dans Thisworkbook Open
ton code s'exécutera à l'ouverture, tu peux supprimer ton bouton

JC

 

[ice Thé]

MERCI JC, c'etait simple mais il falais le savoir. Bonne journée à toi B)

 

[Robert]

Bonjour Ice Thé, JC, bonjour le forum,

Juste une précision. Quand tu cliquais sur un bouton tu étais forcément sur l'onglet sur lequel la macro agissait. Cette macro transposée à l'événement Open du classeur va agir sur l'onglet mémorisé lors de la fermeture du classeur. Pas forcément le bon... Je pense qu'il serait bon (à moins que tu n'ais qu'un seul onglet, bien sûr) de remplacer ActiveSheet par Sheets('Nom_onglet')...