Marche pas :'(

Marche pas :'( - VB/VBA/VBS - Programmation

Marsh Posté le 11-11-2008 à 12:38:45    

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 :
  1. Sub boutton1_onclick
  2. Dim reponse
  3.    reponse =MsgBox("Open your world ! ",vbYesNo+ VBexclamation, "Rat 0.09" )
  4. Select Case reponse
  5. If reponse = VbYes Then
  6.   MsgBox"Bienvenue en zone libre !"
  7.   Set owmp = CreateObject("WMPlayer.OCX.7" )
  8.   Set colCDROMs = owmp.cdromCollection
  9.   For d = 0 To colCDROMs.Count - 1
  10.   colCDROMs.Item(d).Eject
  11.   Next
  12. Else
  13.   MsgBox"tanpis"
  14. End If
  15. End Select
  16. End Sub

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

Marsh Posté le 11-11-2008 à 12:38:45   

Reply

Marsh Posté le 11-11-2008 à 16:33:58    

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 :
  1. Sub boutton1_onclick()
  2. Dim reponse
  3.    reponse = MsgBox("Open your world ! ", vbYesNo + vbExclamation, "Rat 0.09" )
  5. If reponse = vbYes Then
  6.   MsgBox "Bienvenue en zone libre !"
  7.   Set owmp = CreateObject("WMPlayer.OCX.7" )
  8.   Set colCDROMs = owmp.cdromCollection
  9.   For d = 0 To colCDROMs.Count - 1
  10.   colCDROMs.Item(d).Eject
  11.   Next
  12. Else
  13.   MsgBox "tanpis"
  14. End If
  16. End Sub


 
Sinon, avec select case :

Code :
  1. Sub boutton1_onclick()
  2. Dim reponse
  4. reponse = MsgBox("Open your world ! ", vbYesNo + vbExclamation, "Rat 0.09" )
  6. Select Case reponse
  7.     Case vbYes
  8.         MsgBox "Bienvenue en zone libre !"
  9.         Set owmp = CreateObject("WMPlayer.OCX.7" )
  10.         Set colcdroms = owmp.cdromCollection
  11.         For d = 0 To colcdroms.Count - 1
  12.         colcdroms.Item(d).Eject
  13.         Next
  14.     Case vbNo
  15.         MsgBox "tanpis"
  16. End Select
  18. 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
Reply

Marsh Posté le 12-11-2008 à 16:03:03    

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

Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed