Savoir quel Version d'Ecxel est utilisée

CelineG · 2 Juin 2005

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 · 2 Juin 2005

Bonjour,

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

Jam · 2 Juin 2005

Salut CelineG, Monique,

Code:

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 · 2 Juin 2005

Re,

Je complète avec la Sub toute faite

Code:

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

CelineG · 3 Juin 2005

Woaw!!

génial merci beaucoup et bonne journée!

CelineG · 3 Juin 2005

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 !

CelineG · 3 Juin 2005

Re,

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

CelineG · 3 Juin 2005

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

CelineG · 3 Juin 2005

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

Code:

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!

Savoir quel Version d'Ecxel est utilisée

CelineG

Guest

Monique

Nous a quitté

Jam

XLDnaute Accro

Jam

XLDnaute Accro

CelineG

Guest

CelineG

Guest

CelineG

Guest

CelineG

Guest

CelineG

Guest

Discussions similaires