Bonjour à tous,

je tente d'ouvrir un classeur (en pj) avec le code suivant :
Dim Chemin_Fichier

'***Selection du synoptique
Chemin_Fichier = Application.GetOpenFilename(, , "Veuillez sélectionner le fichier à utiliser")

'Création d'un onglet SOP dans le fichier de reprise
Sheets.Add(After:=Worksheets("Push")).Name = "ROPLoad"

'Copie du ROP vers la feuille LoadKizeo
Set wbMaster = ActiveWorkbook
Set wsMaster = wbMaster.Worksheets("ROPLoad")
Set wbData = Workbooks.Open(Chemin_Fichier)
Set wsData = wbData.Worksheets("Routes Optiques")
wsData.Range("A1", "DZ2000").Copy wsMaster.Cells(1, 1)
'ThisWorkbook.Worksheets("Formulaire").Range("M4") = Right(wbData.Worksheet(1), 6)
wbData.Close False
Set wbData = Nothing

end sub
end sub
Nom : Capture.JPG Affichages : 287 Taille : 16,4 Ko

Mon fichier affiche un message d'erreur lorsque je l'ouvre manuelle, c'est ce qui provoque le bug.
Si je "l'enregistre sous" le code fonctionne, mais ce n'est pas ce que je souhaite
la fonction display alerte est inefficace.

Quelqu'un a t'il une idée sur la maniere de 'louvrir?[
ANFI_REC_STLDA_MONTE10_SOP_V1.xlsx