Ouvrir lecteur CD sous VBA

[keata]

Bonjour à tous,

Quelqu'un ici sait-il comment écrire sous VBA un code pour ouvrir (et fermer) le lecteur CD , si c'est possible !!

Merci d'avance

 

[A_Binouze_Drinker_Among_Others]

<http://xlbysteph.free.fr/aideinformatique/multimedia.html>


Declare Sub mciSendStringA Lib "winmm.dll" (ByVal lpstrCommand As String, _
ByVal lpstrReturnString As Any, ByVal uReturnLength As long, _
ByVal hwndCallback As long)

Sub OpenCDTray()
mciSendStringA "Set CDAudio door Open", 0&, 0, 0
End Sub

Sub CloseCDTray()
mciSendStringA "Set CDAudio door Closed", 0&, 0, 0
End Sub