bonjour Michel
merci pour ton message
Cet exemple permet de boucler sur tous les lecteurs du poste afin de récupérer la lettre associée . Si oThisDrive.Playlist.Count est supérieur à 0 cela signifie qu'il y a un CD ou un DVD d'installé
Sub listeLecteurs_CD_DVD()
Dim Wmp As WindowsMediaPlayer
Dim iNumDrives As Integer, i As Integer
Dim oThisDrive As IWMPCdrom
Set Wmp = CreateObject('WMPlayer.OCX.7')
iNumDrives = Wmp.cdromCollection.Count
If iNumDrives = 0 Then MsgBox 'il n'y a pas de lecteur de CD ou DVD installés .'
For i = 0 To iNumDrives - 1
Set oThisDrive = Wmp.cdromCollection.Item(i)
MsgBox oThisDrive.driveSpecifier & vbLf & oThisDrive.Playlist.Count
Next i
End Sub
bonne journée
MichelXld