Problème macro pour ouvrir un fichier

Bonjour le forum

Dim Cls As Workbook
    Dim ladate As Date
    Dim L As Date
    Dim Chemin As String
    Dim Dos As String
    Dim SousDos As String
    Dim Fichier As Variant

     ladate = Date 'date du jour

    'si on est lundi, défini le vendredi sinon, la veuille
    ladate = IIf(WeekdayName(Weekday(ladate, 2), , 2) = "lundi", ladate - 3, ladate - 1)

    Dos = Year(ladate) & "." & Format(Month(ladate), "00")

    L = DateSerial(Year(ladate - Weekday(ladate - 1) + 4), 1, 1)
    SousDos = Year(ladate) & "-S" & "0" & Int((ladate - L + Weekday(L) + 5) / 7)

    Fichier = Format(Weekday(ladate, 2), "00") & "-" & WeekdayName(Weekday(ladate, 2), , 2) & ".xlsm"

    Chemin = "H:\blablabla\" & Dos & "\" & SousDos & "\"
MsgBox Chemin & Fichier = "H:\blablabla\2019.02\2019-S06\03-mercredi.xlsm"
Set Cls = Workbooks.Open(Chemin & Fichier)

j'ai ce code qui ne fonctionne pas avec une erreur 1004 je ne sais pas pourquoi pourtant le chemin et fichier correspond bien à mon fichier parce que mon msgbox me renvoie vrai :O. erreur 1004 sur la dernière ligne, j'utilise le même principe pour ouvrir des fichiers sur d'autre fichier et sa fonctionne mais la non ... je sais pas pourquoi

Bonjour,

c'est ce message qui apparaît ?

fichier introuvable ?

c'est chelou je réessaie ce matin ca fonctionne.... les mystères de l'informatique.

merci a toi

Merci pour ce retour, au plaisir!

si le problème est résolu, s.v.p. clôture le fil, par un clic sur le bouton

Merci!