Salut Franck
En direct du MPFE De Laurent Daures :
Sub VersionFichier()
Select Case ActiveWorkbook.FileFormat
Case -4143
typ = "Excel 2000"
Case 16
typ = "Excel 2.1"
Case 29
typ = "Excel 3"
Case 33
typ = "feuille Excel 4"
Case 35
typ = "classeur Excel 4"
Case 39
typ = "Excel 5"
Case 43
typ = "Excel 97/2000& 5/95"
Case Else
typ = "inconnu"
End Select
MsgBox "format : " & typ
End Sub
Bonne Soirée
@+Thierry