Autres besoin d'un utilisateur 2007 et 2010 et 2016

[patricktoulon]

bonjour à tous
pour la future version du creatorRibbonX j'ai mis a jour la liste des icon y compris pour excel entreprise(2021 et 2024 ) semestrial et monthly
par contre le fluent est parti complétement en cacahuète pour 2007 à 2013
2013 ca va j'ai mais 2007 et 2010 j'ai plus
il me faut donc tester les icons pour ces deux versions
lancez l la verif 2007 ou verif 2010 selon votre cas ça prend entre 2 et 5 secondes le resultat s'inscrit dans la colonne concernée
et renvoyez le fichier
merci d'avance

 

[ChTi160]

Bonsoir le fil!
pour Nullosse
lorsque je teste : "Sub TestVersionExcel()" alors que j'ai office 365 (32)
la procédure me met 2016-32
c'est normal ?
merci par avance
Jean marie

 

[nullosse]

lorsque je teste : "Sub TestVersionExcel()" alors que j'ai office 365 (32)
la procédure me met 2016-32

Salut,
merci Chti160 pour le test. Peut-être que tu tombes sur ce cas :
Dans la base de registres :

• ProductReleaseIds est vide dans les deux vues → tu passes en mode fallback LicensingNext.
• Dans LicensingNext, les noms de valeurs ne contiennent ni “365” ni “2019/2021/2024”.
• Du coup versionNum reste à 0 et tu tombes sur le fallBack qui renvoit 2016.

Dans ce cas pour le cas du FallBack2016 mettre :

Fallback2016:
      VersionExcelComplete = " >= 2016 (indéterminée) -  " & arch

Moralité : le code n'est pas fiable à 100 %.
Sinon il y a le test de fonctions qui ne sont présentes que sur certaines versions d'Excel mais ces fonctions sont visibles quand même par le code VBA, alors tester le résultat d'utilisation de cette fonction mais encore là par exemple, les versions perpétuelles récentes (2021, 2024) récupèrent désormais une partie des nouveautés de 365, notamment les fonctions dynamiques. Exemple TextAfter.

Sinon code à essayer qui ne doit fonctionner que sous Excel 365 :

Sub TesterFonctionMAP()
    Dim resultat As Variant   
    On Error Resume Next
    resultat = Application.Evaluate("=MAP({1,2,3},LAMBDA(x,x*2))")   
    If Err.Number <> 0 Then
        MsgBox "❌ MAP n'est PAS disponible."
        Err.Clear
    Else
        MsgBox "✅ MAP est disponible !" & vbCrLf & "Résultat : " & Join(resultat, ", ")
    End If   
    On Error GoTo 0
End Sub

Nullosse