Service pack installé [Résolu]

[mout1234]

Bonjour,

Je cherche un moyen d'indiquer dans une fenêtre à Propos de... d'une application Access, la version d'Access utilisée, en précisant la version du service pack.


Une solution via API conviendrait parfaitement (dans le genre du OSVERSIONINFO pour la version de l'OS).

Sinon il me semble avoir déjà vu une solution permettant d'afficher la fenêtre A Propos de Microsoft (en y personnalisant le message) mais je n'arrive pas à la retrouver.

En espérant que votre mémoire est meilleure que la mienne ...

[ouskel'n'or]

Pour la version, regarde

Code :

MsgBox Application.Version

Auquel tu peux ajouter

Code :

MsgBox Application.Build

[mout1234]

Salut Ouskel'n'or.

Le build est une piste ... je vais voir si je peux trouver facilement une correspondance avec l'installation de services pack...



Merci pour le conseil.

[mout1234]

Petit problème ... la propriété Application.Build n'existe pas en version Access 2000 et mon appli doit êter compatible 2000-2002-2003.

[Lou Pitchoun]

Salut,

Ce ne serait pas ça que tu cherches ??

Edit : Nan.. c'est pas ça que tu cherches
Je me souviens avoir vu un truc du genre mais je ne trouve pas

Edit 2 : J'ai quand même essayé avec le lien que je te donne.
+ cette fonction de test :

Code :

1
2
3
4
5
6
7
Sub testver()
 
    Dim sp As String
    sp = " "
    MsgBox "Version Windows : " & VersionWindows(sp) & " - SP : " & sp
 
End Sub

Version Windows : XP - SP : Service Pack 1

Ensuite : tu peux simplement refaire une boite de dialogue "A propos de"
Mais j'aimerais bien remettre la main sur cette discussion que j'ai vu aussi

[mout1234]

Salut,

Envoyé par Kikof

Salut,

Ce ne serait pas ça que tu cherches ??
...

Non, ce n'est effectivement pas ça ... je cherche le SP d'Office et non Windows.

Ensuite : tu peux simplement refaire une boite de dialogue "A propos de"
Mais j'aimerais bien remettre la main sur cette discussion que j'ai vu aussi

Je me demande si ce n'était pas dans un tuto... j'ai la mémoire qui flanche, j'me souviens trés bien ...


L'idée de Ouskel'n'or du .build aurait pu marcher ... mais ca marche pas sous Access 2000.
C'est d'ailleurs la solution utilisée dans le code de l'Access 2003 Developper Extensions.

[mout1234]

Salut,

Bon j'avance un petit peu... j'ai enfin retrouvé le code auquel je pensais, qui permet d'afficher la fenêtre A Propos... (merci Tofalu )

Mais... ce n'est finalement pas ce que je cherche Cette fenêter indique la version de Windows et non celle d'Access.


Je continue donc mes recherches:

• soit pour afficher la version d'Access (Version 2000/2002/2003 + si version Service Pack) dans une zone de texte,
• soit pour donner un accés facile à une fenêtre standard (genre la fenêtre A propos d'Access) indiquant ces informations,
• voire un accés à l'utilitaire Informations système Microsoft 7.0", accessible depuis le bouton "Infos Système..." de la fenêtre A Propos d'Access.

Quelqu'un à une piste?

[Lou Pitchoun]

J'y ai un peu réfléchi...

As tu penser à aller lire dans la base de registre ??
Je dis peut être n'importe quoi.. mais cela doit être stocké dedans non ??

[mout1234]

Envoyé par Kikof

J'y ai un peu réfléchi...

As tu penser à aller lire dans la base de registre ??
Je dis peut être n'importe quoi.. mais cela doit être stocké dedans non ??

J'avais regardé au début.. pas trouvé mais ... je ne suis pas un pro de la recherche


Je viens de trouver une piste... l'"infos système"

Code :

Shell "C:\Program Files\Fichiers communs\Microsoft Shared\MSInfo\msinfo32.exe"

Faut maintenant

• que je trouve comment trouver son chemin d'accés
• que je vérifie son comportement, notamment lorsqu'il n'y a qu'un RunTime d'installé (j'ai essayé tout à l'heure dans une machine virtuelle sous VPC.. il m'affichait des "Inconnu" partout )

Affaire à suivre....

[Lou Pitchoun]

Envoyé par mout1234

J'avais regardé au début.. pas trouvé mais ... je ne suis pas un pro de la recherche

moi -> <- toi

Voici un exemple de cafeine pour exécuter FF quelque soit le répertoire d'installation.
BOn ok ce n'est pas ça que tu cherches... mais regarde la fonction Lire()
http://www.developpez.net/forums/sho...2&postcount=20

[mout1234]

Envoyé par Kikof

moi -> <- toi

Encore

Merci mais je ne cherchais pas comment mais quoi chercher dans la base de registre

En passant, je me suis souvent demandé quel était le mieux...

• La commande RegRead de "Wscript.Shell"
• ou les API RegOpen... comme ici

Pour quoi chercher, j'ai trouvé (Software\Microsoft\Shared Tools\MSInfo ou Software\Microsoft\Shared Tools Location)


Bon faut que je stoppe...



A+

[SilkyRoad]

bonjour à vous

Ce lien pourra peut etre aussi t'aider

http://excel.developpez.com/sources/...InfosProgramme





En plus court, à condition de connaitre le chemin de l'application:

Code :

1
2
3
4
5
Sub versionAppli()
    Dim Fso As Object
    Set Fso = CreateObject("Scripting.FileSystemObject")
    MsgBox Fso.GetFileVersion("C:\Program Files\Microsoft Office\Office12\msaccess.exe")
End Sub

bon week end
michel

[mout1234]

Merci Michel,

cela me semble répondre à mon problème (je testerai réellement chez le client d'ici peu... avec toutes les configurations possibles).

Bon week end.

EDIT: Je viens de créer une contribution à ce sujet.

Laurent