Discussion :

[BertrandED]

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


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

[deedolith]

Salut,

Ton fichier est corrompu.
Ouvre le, fait une récupération (Excel doit te proposer cette option sans que tu n'aies besoin d'intervenir), et enregistre le.
(Fait une copie de sauvegarde par sécurité).

[BertrandED]

Bonjour deedolith

La macro doit me permettre de travaille sur plusieurs fichier de ce type.
ils sont tous corompu, je ne peux envisager que l'utilisateur ré-enregistre ledit fichier pour ensuite utliser la macro.

Une méthode existe t'elle pour contourner le probleme ? (j'ai uniquement besoin de copier l'une des feuille pour le copier vers un autre classeur.

[deedolith]

Ouvre ton fichier avec le paramètre CorruptLoad:=xlRepairFile

Autre points:
- Il manque Option Explicit
- Déclare tes variables.
- Indente ton code.
- Il serait bon de vérifier si la feuille "ROPLoad" n'existe pas déja.
- ActiveWorkbook est à bannir, préfère ThisWorkbook qui est beaucoup plus sécurisé.
- Par respect du SRP (https://en.wikipedia.org/wiki/Single...lity_principle) divise ta fonction en 2: Une qui ajoute la feuille (si elle n'existe pas), l'autre qui charge les données.