Savoir quel Version d'Ecxel est utilisée

Bonjour,

J'ai des utilisateurs qui ont office 2000 et d'autres office 2003.

Je fais donc des fichiers qui marchent sur office 2000 et d'autres sur office 2003 car un jour ils auront tous office 2003.

et je voudrais empecher que les utilisateurs qui ont 2000 utilisent le fichier 2003 qui va faire que planter!

Comment savoir alors à l'ouverture de mon fichier qu'elle version d'office est utilisée?

merci beaucoup, Céline

[Monique]

Bonjour,

Sans savoir si ça peut te servir,
la version de Microsoft Excel, sous forme de texte :
=INFO('version')

[Jam]

Salut CelineG, Monique,

Application.Version

Renvoi le n° de version. Exemple XLXP = 10.0
Tu peux donc faire un petit selec case qui te donnera la version utilisée

Bonne soirée

[Jam]

Re,

Je complète avec la Sub toute faite

Public OfV

Sub WhatOfficeVer()
     v = Application.Version
     Select Case v
         Case Is < 7
             OfV = 'Before Excel 95'
         Case Is = 7
            OfV = 'Excel 95'
         Case Is = 8
             OfV = 'Excel 97'
         Case Is = 9
             OfV = 'Excel 2000'
         Case Is = 10
             OfV = 'Excel 2002/XP'
         Case Is = 11
             OfV = 'Excel 2003'
         Case Else
             OfV = 'n/a'
     End Select

     MsgBox OfV
End Sub

Bonne soirée

Woaw!!

génial merci beaucoup et bonne journée!

Bonjour ! (tout à l'heur e je n'ai fait que vous remercier!)

dis moi Jam comment tu déclare ton 'v' qui prend pour valeur la version d'excel?

Dim v as koi?!

merci !

Re,

Ta macro elle me dit que dit ma version c'est 'n/a' !! j'ai 2003 !!

Voila pourquoi il me disait pas que j'avais pas 2003

Case Is = '11.0'
OfV = 'Excel 2003'

c'était 11.0 !

merci

Céline

Voici ma macro finale à moi (quii correspond à ce ke je veux faire :

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

Merci beaucoup de votre aide!