Salut,
Ce code n'est apparemment pas de vous...
J'ai pas fait tourné car nous n'avons pas tous les fichiers nécessaires.
Si ici tu commentes l'assignation de DETEC_DIFF
If SHORT_NAME.Text Like "Dem_GaaAllCalEventAvailability*" Then
XML_LABEL = SupplierLabel(LONG_NAME.Text)
XML_DETECT = DetectionClass(SHORT_NAME.Text)
Set XLS_DETECT = XLS_DETECT_H.EntireColumn.Find(What:=XML_DETECT, LookAt:=xlWhole)
'Set DETECT_DIFF = DETECT_CLASS_DIFF.EntireColumn.Find(What:=XML_DETECT, LookAt:=xlWhole)
'Check whether this Detection Class exists in the Excel Diag Matrix
Il y a de grandes chances que tu aies un plantage à l'appel de cette ligne :
Set LABEL_DIFF = DIFF_WS.Cells(DETECT_DIFF.Row, 2)