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
Je c'est que le code est faux est je ne pas trouve de solution sur internet
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
Désolé je suis encore un novice soyer indulgent ^^
Merci d'avance!
Partager