Bonjour,

Je tente de compiler des données et utilises pour la première fois le code Do Until... Loop.
Lors de l'exécution de la macro, celle-ci s'arrête sur la ligne :

Code : Sélectionner tout - Visualiser dans une fenêtre à part
MySheetName = MySheet.Name
Ci-dessous le code tapé :

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
Sub MS_Data()
 
Dim MySheet As Worksheet, MySheetName As String, MSYear As String, MSMonth As String
Dim LR1 As Long
 
Application.ScreenUpdating = False
 
MySheetName = MySheet.Name
MSYear = "20" & Left(Right(MySheetName, 6), 2)
MSMonth = Left(Right(MySheetName, 4), 2)
LR1 = .Range("A" & .Rows.Count).End(xlUp).Row
 
    Do Until MySheetName = "MS Data"
        With MySheet
            .Range("A1:I" & LR1).Copy Sheets("Compiled Data").Range("B" & .Rows.Count).End(xlUp).Offset(1, 0)
        End With
    Loop
 
 
Application.ScreenUpdating = True
 
End Sub
Pouvez-vous m'aider à corriger SVP ?

D'avance merci !