VBA : Différencier les versions Excel 365, 2016 et 2019

[Jean-Eric]

Bonjour,
Mon 1er. post...
Auriez-vous vous une astuce pour déterminer la version Excel utilisée sous Windows (10) ?
Application.Version retourne la même valeur, soit 16.0, pour les 3 versions énumérées.
Merci par avance.
Cdlt.

Jean-Eric

 

[eriiic]

Bonjour,

Juste pour fignoler tu pourrais exclure les Mac qui ont d'autres versions.
Mais je viens surtout parce que cette piste n'a pas été explorée :

Application.CalculationVersion, propriété​

Cette propriété renvoie un nombre dont les quatre derniers chiffres correspondent au numéro de version du moteur de calcul secondaire, les autres chiffres (à gauche) correspondant à la version principale de Microsoft Excel. Type de données Long en lecture seule

2010 me retourne bien 14 pour les 2 premiers chiffres.
Par contre 2016 me retourne étrangement 18 (?). A se demander si des version de 365 ne se seraient pas intercalées entre 2013 (sortie également de 365) et 2016
A voir ce que retournent 365 et 2019
eric

 

[Efgé]

Bonjour à tous,
Ma modeste pierre à l'édifice:
Je n'ai pas les droits admin sur mon poste; le code fonctionne.

Il faut éditer la formule pour qu'elle fonctionne (recalcul) F9 ne suffit pas.

Cordialement

 

[chris]

Bonjour

...
Mais je viens surtout parce que cette piste n'a pas été explorée :

Application.CalculationVersion, propriété​

...
A voir ce que retournent 365 et 2019

2010 me renvoie 145621
2016 me renvoie 181029
2019 me renvoie 191029

Pas sûr que même MS s'y retrouve : j'ai eu une MAJ de 2016, qui m'a ajouté les fonctions propres à 365 (MAX.SI par exemple) puis la suivante les a supprimées (il me semble d'ailleurs avoir vu 365 fugacement sur la page Compte mais comme c'est un PC de tests, je l'utilise peu et n'ai pu vérifier si cet état bizarre perturbait ou non le fonctionnement...)

 

[Jean-Eric]

Bonjour à tous,
Je vous remercie de vos interventions !...
@eric,
Application.CalculationVersion me renvoie 191029.
Mon produit Office 365 Personal est Version 1903 Build 11425.20228

 

[Efgé]

Bonjour à toutes et tous

Sous 2016 Application.CalculationVersion me renvoie 162913

Cordialement

 

[chris]

Re

Si en plus on n'a pas les mêmes valeurs pour les mêmes versions !
Mes 2016 et 2019 sont des pro plus
2010 pro

 

[chris]

Re

A noter que j'ai à la fois 2010 et 2019 sur un même PC : AppVersion affiche la bonne version dans les 2 cas.

 

[Efgé]

Bonjour à toutes et tous

Sous 2016 Application.CalculationVersion me renvoie 162913

Cordialement

En ce qui me concerne 2016 Pro Plus

 

[chris]

Re

Donc bien 2 infos distinctes pour la même version 2016 pro plus

 

[eriiic]

Mauvaise piste alors

 

[Staple1600]

Bonsoir les "Versioneurs"

Je rajoute ma pierre pour Excel 2013

Sub Test()
With Application
t = Array(.Version, .VBE.Version, .CalculationVersion)
End With
MsgBox Join(t, Chr(13))
End Sub

Microsoft est très logique
Excel 2016 => 16 (CalculationVersion)
Excel 2013 => 15 (Version et CalculationVersion)

Reste une piste pas encore envisagée: un script PowserShell piloté par VBA
Si le coeur vous en dit, allez-voir chez ces p'tits gars

 

[Papillon33400]

Beaucoup de bonnes idées, mais vraiment consultez https://www.rondebruin.nl/mac/mac001.htm

Il nous donne l'OS utilisé et les versions de Office et de Windows

Oui, il faut pas oublier les développeurs sous MAC OSX qui font aussi des macros. Par contre la, on oublie carrément la base de registres, les DLL, les liens OLE. Sous MAC, ça n'existe pas.

Et même les caractères accentués n'ont pas les même codes ASCII. Zarbi peut être, mais Zarbi quand même.

 

[Staple1600]

Bonsoir

Papillon33400 (Bienvenue sur le forum)
Tu as bien lu tout le fil?
Il y a belle lurette qu'y on y utilise ce que Ron de Bruin aussi utilise
Function Excelversion() As Double
'Win Excel versions are always a whole number (15)
'Mac Excel versions show also the number of the update (15.29)
Excelversion = Val(Application.Version)
End Function

NB: On le lit même dans mon précédent message ...

PS: De mémoire, les PCistes sont sur le forum beaucoup plus nombreux que les MACistes.
Et tout l’intérêt de VBA reside justement dans le fait de pas oublier le registre, les dll, les CreateObject etc... quand on est sous Windows

 

[Jean-Eric]

Bonjour,
Une petite mise à jour de la fonction.
les commentaires sont toujours les bienvenus.
Bonne journée à toutes et tous.

 

[PVI31]

Bonjour à toutes et à tous,

Fichier/Compte me donne :
Microsoft Office 365 ProPlus
Version 1705 (build 8201.2200)

A propos d'Excel :
Microsoft Excel 2016 MSO (16.0.8201.2200) 32 bits

Application.CalculationVersion me renvoie 171027
quand je lance la fonction AppVersion, le résultat est 2016.

Cordialement,
Pierre