Sub tri_ana(chemin As String, fichier As String)
'mes essais pour ouvrir slk:
'Workbooks.Open Filename:=fichier, origin:=xlMacintosh
'Workbooks.Open Filename:="Macintosh HD:Users:OD:Desktop:dossier:test::ANA1.slk", origin:=xlMacintosh
'Workbooks.Open Filename:="ANA1.slk"
'ChDir "Users:Desktop:dossier:test"
'Workbooks.Open Filename:="ANA1.slk"
'ChDir "Users:Desktop:dossier:test"
'MsgBox fichier
'ExécuterMacroExcel4 "Ouvrir(""FILE.SLK"")"
'Workbooks.Open Filename:="Users:Desktop:dossier:test:" & fichier