treza88
XLDnaute Occasionnel
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 :
Image avec la ligne en erreur :
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 :
VB:
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 IfImage avec la ligne en erreur :