I
ice Thé
Guest
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
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