michelxld
Messages postés402Date d'inscriptionvendredi 6 août 2004StatutMembreDernière intervention12 octobre 200831 16 févr. 2006 à 18:27
bonjour
j'espere que cet exemple pourra t'aider
Sub ouvrirLecteur()
Dim Wmp As Object, Lecteur As Object
Set Wmp = CreateObject("WMPlayer.OCX.7")
Set Lecteur = Wmp.cdromCollection.Item(0)
Lecteur.eject
Set Lecteur = Nothing
Set Wmp = Nothing
End Sub