Comment savoir en vba excel si je suis sous le systeme d'exploitation vista ou XP

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:)

bonsoir


Sans garantie sous Vista, tu peux tester:

Code:

---

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

bonjour tranquille

code à tester

Code:

---

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