le code pour ouvrir le lecteur cd est :
Set oWMP = CreateObject("WMPlayer.OCX.7")
Set colCDROMs = oWMP.cdromCollection
If colCDROMs.Count >= 1 Then
For i = 0 To colCDROMs.Count - 1
colCDROMs.Item(i).Eject
Next ´ cdrom
End If
End Sub
os : moi suis sui un naze mais ya pas reson d´aider qqn ki est naze ref lord_kalipsy