Bonjour,
Je souhaitre améliorer mon code suivant car je commence à m'enméler les poinceaux ...
tout d'abord je souhaiterais récupérer dans une variable (fonction) le nom de la première feuille du classeur que j'ouvre. Je souhaite ainsi utliser autant de fois que nécessaire, n'importe ou dans mon code.
Ensuite, devez le voir, mon code est "pitoyable" donc si suggestion vous avez, je prends car ca devient trop "brouillon" ... Merci!
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
    If CheckBox2 = True Then
        If TextBox1 <> "" Then
            MsgBox "Did you Start TOTO CheckSum ?"
            Set myWorkbookImport = Workbooks.Open(Filename:=TextBox1)
            'permet de récuperer le nom de la feuille1 du fichier importé
            If Not ActiveSheet Is Nothing Then
            Set MaFeuille = ActiveSheet
            MsgBox MaFeuille.Name
            End If
            Call LTE_CheckSum_Rules
            MsgBox "LTE CheckSum Completed for " & TextBox1
        End If
    End If
Chrystobale