Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

Savoir quel Version d'Ecxel est utilisée

  • Initiateur de la discussion CelineG
  • Date de début
C

CelineG

Guest
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
 

Jam

XLDnaute Accro
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

XLDnaute Accro
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
 
C

CelineG

Guest
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 !
 
C

CelineG

Guest
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!
 

Discussions similaires

Réponses
4
Affichages
421
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…