Bonjour à tous,

Voici le code que je cherche à modifier, mais je galère. J'ai mis en rouge les lignes à modifier avec les explications adéquates.

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
Sub TestB()
Dim wbkSaisie As Workbook 'Ici doit faire appel à un répertoire (K:\Suivi_Engage)
Dim shtFich As Worksheet, shtFich2 As Worksheet 'Ici doit faire référence aux fichiers du répertoire
Dim LastLigF As Long
Dim NumLig As String, NumLig2 As String
Dim NewRec As Boolean, Exist As Boolean
Dim NewRech As Boolean, Existe As Boolean

Application.ScreenUpdating = False

Set wbkSaisie = ThisWorkbook 'Répertoire K:\Suivi_Engage
NumLig = Me.CmbNum1.Value
NumLig2 = Me.CmbNum2.Value
Set shtFich = ThisWorkbook.Sheets("L" & NumLig)'Doit correspondre à un fichier du répertoire (par exemple 343.xls)
Set shtFich2 = ThisWorkbook.Sheets("L" & NumLig2) 'idem
shtFich.Activate 'activer le fichier et ouvrir la feuille "Recap"
shtFich2.Activate 'idem
NewRec = False
NewRech = False

'Pour le reste des modifications, je pense pouvoir m'en sortir

        For Each WS In ThisWorkbook.Worksheets
            If WS.name = "L" & NumLig Then 'on cherche si la feuille existe
                Set shtFich = WS
                Exist = True
                Exit For
            End If
            Next WS
                If Not Exist Then
                    Set shtWS = ThisWorkbook.Sheets.Add(Type:=xlWorksheet) 'si elle n'existe pas on la créée
                    shtFich.name = "L" & NumLig
                    NewRec = True
                End If
                
        For Each WD In ThisWorkbook.Worksheets
            If WD.name = "L" & NumLig2 Then
                Set shtFich2 = WD
                Existe = True
                Exit For
            End If
            Next WD
                If Not Existe Then
                    Set shtWD = ThisWorkbook.Sheets.Add(Type:=xlWorksheet)
                    shtFich2.name = "L" & NumLig2
                    NewRech = True
                End If
Merci par avance pour votre aide