Discussion :

[D-D-Du-06]

Bonjour à toutes et à tous,

j'ai réalisé un petit fichier xls. J'en ai fait une version 2003 et une version 2007.

Je souhaiterai à l'ouverture du fichier en version 2003, un test pour vérifier la version d'excel; détecter si la version est de 2007 et plus pour afficher un message ensuite.

Donc comment tester/récupérer la version d'excel au démarrage de mon fichier?

Merci de votre aide.
A+
D D Du 06

[Pierre Fauconnier]

Bonsoir

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Application.Version

12.0 = XL 2007
11.0 = XL 2003

Tu peux utiliser une fonction dans un module standard

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Function VersionExcel() As String
  Select Case Split(Application.Version, ".")(0)
    Case "8"
      VersionExcel = "Excel 97"
    Case "9"
      VersionExcel = "Excel 2000"
    Case "10"
      VersionExcel = "Excel 2002 (XP)"
    Case "11"
      VersionExcel = "Excel 2003"
    Case "12"
      VersionExcel = "Excel 2007"
    Case "14" ' le numéro 13.0 a été sauté
      VersionExcel = "Excel 2010"
  End Select
End Function

Que tu appelleras à l'ouverture du fichier (Le code suivant doit être placé dans le module du classeur [habituellement nommé ThisWorkbook])

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Private Sub Workbook_Open()
  MsgBox VersionExcel()
End Sub

[D-D-Du-06]

Bonjour,

merci, c'est parfait (comme d'habitude sur ce forum)...

A+
D D Du 06