Public OfV
Sub WhatOfficeVer()
'regarde quelle version d'office est utilisé par le poste
v = Application.Version
'si ce n'est pas office 2003 affiche un msg
'et ferme le fichier
If v <> '11.0' Then
MsgBox 'Vous n'avez pas la bonne version d'excel pour utilisez ce fichier. Télécharger la version pour Office 2000.', vbInformation, 'Fermeture du fichier'
If Workbooks.Count > 1 Then
ActiveWorkbook.Close
Else
Application.Quit
End If
End If
End Sub