'si internet If textbox1.Text = "internet" Then s = Shell("C:\Program Files\Internet Explorer\iexplore.EXE", 1) End If 'ou 'si vide If textbox1.Text = "" Then s = Shell("C:\Program Files\Internet Explorer\iexplore.EXE", 1) End If
Bonne suite
bolobo46
Enfait, je voudrais déclarer les différentes ortographes de internet explorer (avec maj, sans ...)
donc, ce que je veux dire c'est : if textbox1.text = "internet" ou "ie" ou "etc ..." then shell("iexplore.exe")
et donc ce sont ces "ou" que je ne sais pas déclarer. :D
f894009
Bonjour,
A vous d'ajouter autant de Or qu'il vous plaira,
Sub test()
'test en majuscule/minuscule (Ucase converti en majuscule)
If UCase(textbox1.Text) = "INTERNET" Or UCase(textbox1.Text) = "IE" Then
s = Shell("C:\Program Files\Internet Explorer\iexplore.EXE", 1)
End If
End Sub
