Lecteur cd

Signaler
-
glg29
Messages postés
27005
Date d'inscription
vendredi 1 juin 2007
Statut
Contributeur
Dernière intervention
24 janvier 2020
-
Bonjour,

j'ai un ideapad 3330 et je cherche a ouvrir le lecteur cd...
même problème: il n'y a pas de bouton sur la facade!

Configuration: Windows / Edge 18.17763

5 réponses

Messages postés
27005
Date d'inscription
vendredi 1 juin 2007
Statut
Contributeur
Dernière intervention
24 janvier 2020
2 349
Bonjour,
Es-tu certain(e) de la référence de ce portable Lenovo ?
Cdlt.

glg29
Messages postés
27005
Date d'inscription
vendredi 1 juin 2007
Statut
Contributeur
Dernière intervention
24 janvier 2020
2 349 > manomanon
Bonjour,
Alors, à mon sens, il n'y a pas de lecteur cd/dvd sur ta machine.
Tu as peut-être une étiquette collée dessous sur laquelle la référence complète est notée ?
@+
> glg29
Messages postés
27005
Date d'inscription
vendredi 1 juin 2007
Statut
Contributeur
Dernière intervention
24 janvier 2020

oui, c un Lenovo ideapad 330 17 IKB
jfmimi
Messages postés
3292
Date d'inscription
mercredi 12 décembre 2018
Statut
Membre
Dernière intervention
25 janvier 2020
368 > manomanon
donc il n'as pas de lecteur optique voir ici les caractéristique :
https://www.ldlc.com/fiche/PB00255445.html
> jfmimi
Messages postés
3292
Date d'inscription
mercredi 12 décembre 2018
Statut
Membre
Dernière intervention
25 janvier 2020

ah oki merci
dsl de voir avoir embêté avec ça
passez une bonne soirée
glg29
Messages postés
27005
Date d'inscription
vendredi 1 juin 2007
Statut
Contributeur
Dernière intervention
24 janvier 2020
2 349 > manomanon
Par contre il en existe bien un qu'il est possible d'adapter, proposé en Option.
@+
Messages postés
3292
Date d'inscription
mercredi 12 décembre 2018
Statut
Membre
Dernière intervention
25 janvier 2020
368
Bonjours
c'est pas plutot " lenovo ideapad 330 - ??? "
donne la ref exacte après 330- il y as des chiffres et ou lettres ??
nn, après 330, il n'y a rien
> manomanon
ah si du coup il y a 17 IKB
Messages postés
22864
Date d'inscription
dimanche 18 janvier 2009
Statut
Contributeur
Dernière intervention
25 janvier 2020
2 267
Salut,

Il y a souvent des personnes qui pose cette question.

Et la réponse est souvent qu'il n'y a tout simplement pas de graveur DVD.

En vois tu un dans le poste de travail (Ordinateur) (Ce PC) ?

Si non, il y a toutes les chances que ça soit ça.

Mais un CD/DVD/Blu-ray en format fichier ISO s'émule au besoin.

Ou aussi, les graveurs CD/DVD/Blu-ray externes USB existent en dernier recours.
Messages postés
274
Date d'inscription
dimanche 1 avril 2018
Statut
Membre
Dernière intervention
24 janvier 2020
46
Bonjour.

Autre possibilité pour vérifier si l'ordinateur a ou n'a pas de lecteur DVD : Clic droit sur le bouton Démarrer > Gestionnaire de périphériques. Si dans la liste apparait un lecteur, c'est qu'il y en a un. Dans le cas contraire, il n'y en a pas.
Plusieurs ordinateurs portables ayant 2 disques durs ne sont pas équipés de lecteur DVD. La place est prise par le second disque.
Messages postés
1794
Date d'inscription
vendredi 25 juillet 2014
Statut
Membre
Dernière intervention
24 janvier 2020
513
Bonsoir

Enregister le code ci dessous dans un document exemple ouvre_cd.txt

ensuite renommer en ouvre_cd.vbs
et créer un raccourci vers ce fichier
par la suite cliquer sur le raccourci pour ouvrir

'******************************************************
'* Ouvrir les lecteurs/graveurs de CD/DVD *
'* DOCmémo - www.docmemo.com *
'******************************************************
'* Personnalisation : *
'* Pour limiter l'action du script à un seul lecteur, *
'* modifiez l'instruction *
'* For intDriveLetter = Asc("A") To Asc("Z") *
'* Par exemple, pour limiter au lecteur E : *
'* For intDriveLetter = Asc("E") To Asc("E") *
'******************************************************
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") 'Limitez aux lecteurs souhaités
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
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("Cliquez sur OK 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
Judge_DT
Messages postés
28344
Date d'inscription
vendredi 5 février 2010
Statut
Modérateur
Dernière intervention
25 janvier 2020
5 120
Pour que le code fonctionne, il faudrait déjà que la machine soit équipée d'un lecteur... Donc, plutôt que de se permettre avec des codes et compagnie... Il suffit déjà de vérifier si un lecteur est bel et bien présent.
glg29
Messages postés
27005
Date d'inscription
vendredi 1 juin 2007
Statut
Contributeur
Dernière intervention
24 janvier 2020
2 349 > Judge_DT
Messages postés
28344
Date d'inscription
vendredi 5 février 2010
Statut
Modérateur
Dernière intervention
25 janvier 2020

Salut Judge_DT
Je partage complètement.....
Bonne soirée.