Marche pas :'(

Recherche :

Mot : Pseudo : Filtrer
Bas de page
Auteur	Sujet : Marche pas :'(

jeremyforestier

Kénavo boulet

Bonjour , j'ai conscience que le titre du sujet n'est pas très explicite mais j'en n'est pas trouvé d'autre pour mon probleme .
J'ai cherché mais mon code me parait bon ma variable aussi , cest une msgbox qui propose ou non d'ouvrrir le lecteur CD .

Code :

Sub boutton1_onclick
Dim reponse
reponse =MsgBox("Open your world ! ",vbYesNo+ VBexclamation, "Rat 0.09" )
Select Case reponse
If reponse = VbYes Then
MsgBox"Bienvenue en zone libre !"
Set owmp = CreateObject("WMPlayer.OCX.7" )
Set colCDROMs = owmp.cdromCollection
For d = 0 To colCDROMs.Count - 1
colCDROMs.Item(d).Eject
Next
Else
MsgBox"tanpis"
End If
End Select
End Sub

Message cité 1 fois
Message édité par jeremyforestier le 11-11-2008 à 12:40:07

Publicité

otobox

Maison fondée en 2005

jeremyforestier a écrit :

Bonjour , j'ai conscience que le titre du sujet n'est pas très explicite mais j'en n'est pas trouvé d'autre pour mon probleme .

C'est un problème avec la fonction select case que tu utilises mal et qui est inutile dans ce cas (2 réponses possible, c'est plus simple d'utiliser if...then...else :

Code :

Sub boutton1_onclick()
Dim reponse
reponse = MsgBox("Open your world ! ", vbYesNo + vbExclamation, "Rat 0.09" )
If reponse = vbYes Then
MsgBox "Bienvenue en zone libre !"
Set owmp = CreateObject("WMPlayer.OCX.7" )
Set colCDROMs = owmp.cdromCollection
For d = 0 To colCDROMs.Count - 1
colCDROMs.Item(d).Eject
Next
Else
MsgBox "tanpis"
End If
End Sub

Sinon, avec select case :

Code :

Sub boutton1_onclick()
Dim reponse
reponse = MsgBox("Open your world ! ", vbYesNo + vbExclamation, "Rat 0.09" )
Select Case reponse
Case vbYes
MsgBox "Bienvenue en zone libre !"
Set owmp = CreateObject("WMPlayer.OCX.7" )
Set colcdroms = owmp.cdromCollection
For d = 0 To colcdroms.Count - 1
colcdroms.Item(d).Eject
Next
Case vbNo
MsgBox "tanpis"
End Select
End Sub

---------------
OtObOxBlOg - - - Etre seul à avoir tort c'est plus difficile, mais c'est bien plus beau que d'avoir raison avec une bande de cons

jeremyforestier

Kénavo boulet

Merci beaucoup
Ps : si quelqu'un a sous la main un bon tuto je me fairais un plaisir d'aller y jeter un oeil

FORUM HardWare.fr

Programmation

VB/VBA/VBS

Marche pas :'(

Sujets relatifs
Gros pb plus rien ne marche	Je comprends pas pourquoi ça marche pas
comparaison de chaine ça marche plus	Retour chariot et fichier texte => \n ne marche pas
[Batch] Deux if exist marche pas bien	fichier bat qui ne marche pas
Animation flash : ça marche chez vous ?	Afficher les erreurs PHP sur la page, marche pas
Formulaire qui marche a moitié	[SSAS] Comment ça marche?
Plus de sujets relatifs à : Marche pas :'(

Page générée en 0.057 secondes