Public Function FileExist(ByRef inFile As String) As Boolean 'Fonction provenant de EDais (edais.mvps.org) On Error Resume Next Let FileExist = CBool(FileLen(inFile) + 1) End Function