Discussion :

[tranquille40]

Bonjour ou bonsoir selon le cas,

Je suis nouveau ici ! j'ai une colle

je cherche à savoir la ligne de code pour savoir en vba excel , si j'utilise le
système d'explitation Windows XP ou vista. La commande application.operatingsystem donne pas grand chose.

Merci mes amis

Tranquille40

[SilkyRoad]

bonsoir


Sans garantie sous Vista, tu peux tester:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
Dim WmObj As Object, Cible As Object
Dim Obj As Object
 
Set WmObj = GetObject("WinMgmts:{impersonationLevel=impersonate}")
Set Cible = WmObj.ExecQuery("Select * from Win32_OperatingSystem")
 
For Each Obj In Cible
    MsgBox Left(Obj.Name, InStr(1, Obj.Name, "|") - 1) & _
        vbCrLf & Obj.Version
Next

bonne soirée
michel

[fred65200]

bonjour tranquille

code à tester

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
 
Sub Vista_ou_XP()
Dim MonOS As String
MonOS = Application.OperatingSystem
If InStr(1, MonOS, "NT 5.1") > 0 Then MsgBox "XP"
If InStr(1, MonOS, "NT 6.") > 0 Then MsgBox "Vista"
End Sub

J'allais envoyer ce code et ai testé entre temps celui de Silkyroad qui affiche bien la version de Vista. Merci à lui.
cordialement