En bricolant un peu, y a une solution.

Crée un fichier texte, colle le texte suivant dedans:


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

Enregistre le au format .vbs

Quand tu clique sur ton bouton, dis lui de lancer le script

Salut Puxor
Merci beaucoup pour cette astuce, ça marche!!!!!
Euh.. et pour le refermer on peut aussi créer un fichier du genre pour l'affecter à une autre touche? L'ignorance n'est pas grave, ce qui l'est, c'est de ne rien ­faire pour se cultiver

Euhhhh... pour le refermer j'ai un doute, je check ^^

En fait, je cherche surtout à le refermer car le lecteur est derriere une porte, il y a un bouton pour l'ouverture qui est inaccessible une fois la porte ouverte, et je dois le refermer en poussant sur le tiroir, j'aime pas trop ça.... L'ignorance n'est pas grave, ce qui l'est, c'est de ne rien ­faire pour se cultiver

Essaye juste si y fonctionne, je suis sur un pc portable et y a pas de moteur pour refermer mon lecteur...

Dim ts
Dim strDriveLetter
Dim intDriveLetter
Dim fs 'As Scripting.FileSystemObject
Const CDROM = 4
On Error Resume Next
Set fs = CreateObject("Scripting.FileSystemObject")

' Detection des lecteurs de CD
strDriveLetter = ""
For intDriveLetter = Asc("A") To Asc("Z")
Err.Clear
If fs.GetDrive(Chr(intDriveLetter)).DriveType = CDROM Then
If Err.Number = 0 Then
strDriveLetter = Chr(intDriveLetter)
Exit For
End If
End If
Next

' Ouvrir tous les lecteurs
MsgBox "Ton lecteur premier CD : " & strDriveLetter, vbOKOnly + 48, "CDROM=> " & strDriveLetter
Set owmp = CreateObject("WMPlayer.OCX.7")
Set colCDROMs = owmp.cdromCollection
For d = 0 To colCDROMs.Count - 1
colCDROMs.Item(d).Eject
Next

' Fermer tous les lecteurs que l'on vient d'ouvrir
A1 = MsgBox("Appuyer sur une touche pour fermer les lecteurs " & strDriveLetter, 0 + 64, "Infos")
For d = 0 to colCDROMs.Count -1
colCDROMs.Item(d).Eject
Next

Set owmp = Nothing
Set colCDROMs = Nothing
wscript.quit

CA MARCHE
Tu es un champion, merci pour ton aide et pour le temps que tu as bien voulu passer pour résoudre mon problème
Bon week-end
L'ignorance n'est pas grave, ce qui l'est, c'est de ne rien ­faire pour se cultiver

De rien ^^

Bonjour à tous! j aimerais programmée l ouverture et la fermeture automatique avec par exemple 10 secondes de compte a rebour sur mon lecteur F ( cd rom/dvd ) , es ce possible!?

jusqu ou ira t on^^?

Salut,

Ton compte a rebour commencerait a quel moment?