Microsoft 365 Ouverture Dossiers par VBA

Sub Essai()
    NomFichier = "11.xlsx"
    NuméroFichier = CInt(Split(NomFichier, ".")(0))
End Sub

Sub Renommer()
Dim chemin$, dossier$
chemin = ThisWorkbook.Path & "\"
dossier = Dir(chemin, vbDirectory)
While dossier <> ""
    If IsNumeric(dossier) Then Name chemin & dossier As chemin & Format(dossier, "000")
    dossier = Dir
Wend
End Sub

info = Dossier.Path                                'Année du dossier est supérieur ou égal à la date de lancement de l'appli
        posdate = InStr(info, "\20")
        If posdate = 0 Then
        GoTo suivant5
        End If
    
        anneedossier = Mid(info, posdate + 1, 4)
        If anneedossier < 2023 Then
        GoTo suivant6
        End If
 
        datedossier = Mid(info, posdate + 1)
        posmois = InStr(datedossier, "\")
        moisjourdossier = Mid(datedossier, posmois + 1)
        posjour = InStr(moisjourdossier, "\")
        
        If posjour = 0 Then
        moisdossier = moisjourdossier
        Else
        moisdossier = Left(moisjourdossier, posjour - 1)
        jourdossier = Mid(moisjourdossier, posjour + 1)
        End If
    
    
    
        ThisWorkbook.Sheets("DATA").Activate
    
        If anneedossier > Range("J2").Value Then
        GoTo suivant4
        End If
    
        If anneedossier = Range("J2").Value And moisdossier > Range("K2").Value Then
        GoTo suivant4
        End If
    
        If anneedossier = Range("J2").Value And moisdossier = Range("K2").Value And jourdossier >= Range("L2").Value Then
        GoTo suivant4
        End If
    
        If anneedossier < Range("J2").Value Or moisdossier < Range("K2").Value Or jourdossier < Range("L2").Value Then
        GoTo suivant6
        End If
        
suivant4: