XL 2021 Erreur l'indice n'appartient pas à la sélection

[treza88]

Bonjour à tous,

j'ai cette erreur, et je ne trouve pas pourquoi, le chemin et le nom de fichier est correct puisqu'il fonctionne 2 lignes au dessus, pouvez vous me dire ce qui cloche.

Code :

file_Name = "Plan de charge.xlsm"
' Permet à l'utilisateur de sélectionner le fichier source
filePathFull = "C:\Users\THOMESHE\Documents\Sauvegarde Dev\Fichier Excel\Plan de charge\14_11_2025\" & file_Name

' Définir la destination dans le classeur actif
Set wbDest = ThisWorkbook
Set wsDest = wbDest.Sheets("Import") ' Remplacez par le nom de votre feuille

ferme = Est_tbb_ferme(file_Name)

' Si l'utilisateur a sélectionné un fichier
If filePathFull <> "False" Then
    If ferme Then
        ' Ouvrir le classeur source en lecture seule
        Set wbSource = Workbooks.Open(Filename:=filePathFull, ReadOnly:=True)
    Else
        Set wbSource = Workbooks(filePathFull)
        aFermer = True
    End If

Image avec la ligne en erreur :

 

[laurent950]

Bonjour

file_Name = "Plan de charge.xlsm"

filePathFull = "C:\Users\THOMESHE\Documents\Sauvegarde Dev\Fichier Excel\Plan de charge\14_11_2025\" & file_Name

' Définir la destination dans le classeur actif
Set wbDest = ThisWorkbook
Set wsDest = wbDest.Sheets("Import")

ferme = Est_tbb_ferme(file_Name)

If filePathFull <> "False" Then

    If ferme Then
        ' Le classeur est fermé → on l'ouvre
        Set wbSource = Workbooks.Open(Filename:=filePathFull, ReadOnly:=True)

    Else
        ' Le classeur est déjà ouvert → on l'attrape par son nom
        Set wbSource = Workbooks(file_Name)
        aFermer = True

    End If

End If

 

[treza88]

Merci laurent950,

J'avais essayer comme ça, mais j'ai du me planter quelque part.