Bonjour , Bonsoir

Je voudrait faire :
Si l'ordinateur est un Windows 8.1 alors
MsgBox "Pour win 8.1"
Suite de code a exécuter pour 8.1

Si l'ordinateur est un Windows XP alors
MsgBox "Ta win XP pas grave"
Suite du code a exécuter pour XP

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
For Each objItem in colItems
data = objItem.Caption
 
If (data=8.1)=vraie Then
MsgBox "Bravo ta un Windows 8.1"
Suite du code a exécuter pour 8.1
 
If (data=XP)=vraie Then
MsgBox "Ta win XP pas grave"
Suite du code a exécuter pour XP
 
Else 
End If
MsgBox "Non pas ta un wind 8.1 ou XP"
Suite du code a exécuter pour autre que win 8.1 et XP
Next
Je c'est que le code est faux est je ne pas trouve de solution sur internet
Désolé je suis encore un novice soyer indulgent ^^
Merci d'avance!