Bonjour,
La macro ci dessous a trés bien fonctionné mais depuis exactement hier soir
il se passe une chose bizarre.
Lorsque le tiroir du graveur est vide les macro CD_Open() et CD_Close()
fonctionnent
trés bien, si le tiroir est chargé
la macro CD_Open ne fonctionne plus. J'ai eu beau cherché je n'ai pas trouvé
ce qui peut clocher et je ne vois pas ce que j'aurais pu bidouiller de
catastophique.
Y a t-il un remède?
Merci d'avance
Jcp
> "Michel Pierron" <michel.pierron@free.fr> a écrit dans le message de news:
> e%23C3X1wDGHA.472@TK2MSFTNGP12.phx.gbl...
>> Bonsoir jeclephi;
>> Bonne année itou !
>>
>> Private Declare Function mciSendString& Lib _
>> "winmm.dll" Alias "mciSendStringA" _
>> (ByVal lpstrCommand$, ByVal lpstrReturnString$ _
>> , ByVal uReturnLength&, ByVal hwndCallback&)
>>
>> Private Sub Drawer(Optional ByVal Cmd$ = "open")
>> Const CD$ = "set cdaudio door "
>> Dim Buffer$: Buffer = Space$(100)
>> Call mciSendString(CD & Cmd, ByVal Buffer, Len(Buffer), 0)
>> End Sub
>>
>> Sub CD_Open()
>> Call Drawer("open")
>> End Sub
>>
>> Sub CD_Close()
>> Call Drawer("closed")
>> End Sub
>>
>> MP
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Michel Pierron
Bonjour jeclephi; Teste l'ouverture avec cette autre méthode pour voir:
Sub OpenCD() With CreateObject("WMPlayer.OCX").cdromCollection If .Count Then .Item(0).Eject End With End Sub
NB: Cette méthode ne peut pas être utilisée pour la fermeture. MP
"jeclephi" a écrit dans le message de news: #
Bonjour, La macro ci dessous a trés bien fonctionné mais depuis exactement hier soir
il se passe une chose bizarre. Lorsque le tiroir du graveur est vide les macro CD_Open() et CD_Close() fonctionnent trés bien, si le tiroir est chargé la macro CD_Open ne fonctionne plus. J'ai eu beau cherché je n'ai pas trouvé
ce qui peut clocher et je ne vois pas ce que j'aurais pu bidouiller de catastophique. Y a t-il un remède? Merci d'avance Jcp
"Michel Pierron" a écrit dans le message de news:
e%
Bonsoir jeclephi; Bonne année itou !
Private Declare Function mciSendString& Lib _ "winmm.dll" Alias "mciSendStringA" _ (ByVal lpstrCommand$, ByVal lpstrReturnString$ _ , ByVal uReturnLength&, ByVal hwndCallback&)
Private Sub Drawer(Optional ByVal Cmd$ = "open") Const CD$ = "set cdaudio door " Dim Buffer$: Buffer = Space$(100) Call mciSendString(CD & Cmd, ByVal Buffer, Len(Buffer), 0) End Sub
Sub CD_Open() Call Drawer("open") End Sub
Sub CD_Close() Call Drawer("closed") End Sub
MP
Bonjour jeclephi;
Teste l'ouverture avec cette autre méthode pour voir:
Sub OpenCD()
With CreateObject("WMPlayer.OCX").cdromCollection
If .Count Then .Item(0).Eject
End With
End Sub
NB: Cette méthode ne peut pas être utilisée pour la fermeture.
MP
"jeclephi" <antispam.jcp.sabatini@wanadoo.fr> a écrit dans le message de
news: #ZmcN9VFGHA.2444@TK2MSFTNGP11.phx.gbl...
Bonjour,
La macro ci dessous a trés bien fonctionné mais depuis exactement hier
soir
il se passe une chose bizarre.
Lorsque le tiroir du graveur est vide les macro CD_Open() et CD_Close()
fonctionnent
trés bien, si le tiroir est chargé
la macro CD_Open ne fonctionne plus. J'ai eu beau cherché je n'ai pas
trouvé
ce qui peut clocher et je ne vois pas ce que j'aurais pu bidouiller de
catastophique.
Y a t-il un remède?
Merci d'avance
Jcp
"Michel Pierron" <michel.pierron@free.fr> a écrit dans le message de
news:
e%23C3X1wDGHA.472@TK2MSFTNGP12.phx.gbl...
Bonsoir jeclephi;
Bonne année itou !
Private Declare Function mciSendString& Lib _
"winmm.dll" Alias "mciSendStringA" _
(ByVal lpstrCommand$, ByVal lpstrReturnString$ _
, ByVal uReturnLength&, ByVal hwndCallback&)
Private Sub Drawer(Optional ByVal Cmd$ = "open")
Const CD$ = "set cdaudio door "
Dim Buffer$: Buffer = Space$(100)
Call mciSendString(CD & Cmd, ByVal Buffer, Len(Buffer), 0)
End Sub
Bonjour jeclephi; Teste l'ouverture avec cette autre méthode pour voir:
Sub OpenCD() With CreateObject("WMPlayer.OCX").cdromCollection If .Count Then .Item(0).Eject End With End Sub
NB: Cette méthode ne peut pas être utilisée pour la fermeture. MP
"jeclephi" a écrit dans le message de news: #
Bonjour, La macro ci dessous a trés bien fonctionné mais depuis exactement hier soir
il se passe une chose bizarre. Lorsque le tiroir du graveur est vide les macro CD_Open() et CD_Close() fonctionnent trés bien, si le tiroir est chargé la macro CD_Open ne fonctionne plus. J'ai eu beau cherché je n'ai pas trouvé
ce qui peut clocher et je ne vois pas ce que j'aurais pu bidouiller de catastophique. Y a t-il un remède? Merci d'avance Jcp
"Michel Pierron" a écrit dans le message de news:
e%
Bonsoir jeclephi; Bonne année itou !
Private Declare Function mciSendString& Lib _ "winmm.dll" Alias "mciSendStringA" _ (ByVal lpstrCommand$, ByVal lpstrReturnString$ _ , ByVal uReturnLength&, ByVal hwndCallback&)
Private Sub Drawer(Optional ByVal Cmd$ = "open") Const CD$ = "set cdaudio door " Dim Buffer$: Buffer = Space$(100) Call mciSendString(CD & Cmd, ByVal Buffer, Len(Buffer), 0) End Sub
Sub CD_Open() Call Drawer("open") End Sub
Sub CD_Close() Call Drawer("closed") End Sub
MP
jeclephi
Bonjour Michel Pierron
Cette méthode fonctionne aussi trés bien et elle est mise en route immédiatement. Je te remercie et je suis admiratif devant tes ressources. J'ai tout de même "enquété" et il semblerait que ce soit un logiciel de gravure, qui gêre mes gravages de cd-rw, je ne connais pas le terme technique mais avec un tel logiciel on utilise les cd-rw comme on utilisait les disquettes auparavant, qui interdit l'éjection quand un disque reinscriptible est chargé dans le tiroir. Je te dirai le résultats de mes investiggations(même si elles sont négatives) JCP
"Michel Pierron" a écrit dans le message de news: %
Bonjour jeclephi; Teste l'ouverture avec cette autre méthode pour voir:
Sub OpenCD() With CreateObject("WMPlayer.OCX").cdromCollection If .Count Then .Item(0).Eject End With End Sub
NB: Cette méthode ne peut pas être utilisée pour la fermeture. MP
"jeclephi" a écrit dans le message de news: #
Bonjour, La macro ci dessous a trés bien fonctionné mais depuis exactement hier soir
il se passe une chose bizarre. Lorsque le tiroir du graveur est vide les macro CD_Open() et CD_Close() fonctionnent trés bien, si le tiroir est chargé la macro CD_Open ne fonctionne plus. J'ai eu beau cherché je n'ai pas trouvé
ce qui peut clocher et je ne vois pas ce que j'aurais pu bidouiller de catastophique. Y a t-il un remède? Merci d'avance Jcp
"Michel Pierron" a écrit dans le message de news:
e%
Bonsoir jeclephi; Bonne année itou !
Private Declare Function mciSendString& Lib _ "winmm.dll" Alias "mciSendStringA" _ (ByVal lpstrCommand$, ByVal lpstrReturnString$ _ , ByVal uReturnLength&, ByVal hwndCallback&)
Private Sub Drawer(Optional ByVal Cmd$ = "open") Const CD$ = "set cdaudio door " Dim Buffer$: Buffer = Space$(100) Call mciSendString(CD & Cmd, ByVal Buffer, Len(Buffer), 0) End Sub
Sub CD_Open() Call Drawer("open") End Sub
Sub CD_Close() Call Drawer("closed") End Sub
MP
Bonjour Michel Pierron
Cette méthode fonctionne aussi trés bien et elle est mise en route
immédiatement. Je te remercie et je suis admiratif devant tes ressources.
J'ai tout de même "enquété" et il semblerait que ce soit un logiciel de
gravure, qui gêre mes gravages de
cd-rw, je ne connais pas le terme technique mais avec un tel logiciel on
utilise les cd-rw comme on utilisait les disquettes
auparavant, qui interdit l'éjection quand un disque reinscriptible est
chargé dans le tiroir.
Je te dirai le résultats de mes investiggations(même si elles sont
négatives)
JCP
"Michel Pierron" <michel.pierron@free.fr> a écrit dans le message de news:
%23ymUiTeFGHA.3200@tk2msftngp13.phx.gbl...
Bonjour jeclephi;
Teste l'ouverture avec cette autre méthode pour voir:
Sub OpenCD()
With CreateObject("WMPlayer.OCX").cdromCollection
If .Count Then .Item(0).Eject
End With
End Sub
NB: Cette méthode ne peut pas être utilisée pour la fermeture.
MP
"jeclephi" <antispam.jcp.sabatini@wanadoo.fr> a écrit dans le message de
news: #ZmcN9VFGHA.2444@TK2MSFTNGP11.phx.gbl...
Bonjour,
La macro ci dessous a trés bien fonctionné mais depuis exactement hier
soir
il se passe une chose bizarre.
Lorsque le tiroir du graveur est vide les macro CD_Open() et CD_Close()
fonctionnent
trés bien, si le tiroir est chargé
la macro CD_Open ne fonctionne plus. J'ai eu beau cherché je n'ai pas
trouvé
ce qui peut clocher et je ne vois pas ce que j'aurais pu bidouiller de
catastophique.
Y a t-il un remède?
Merci d'avance
Jcp
"Michel Pierron" <michel.pierron@free.fr> a écrit dans le message de
news:
e%23C3X1wDGHA.472@TK2MSFTNGP12.phx.gbl...
Bonsoir jeclephi;
Bonne année itou !
Private Declare Function mciSendString& Lib _
"winmm.dll" Alias "mciSendStringA" _
(ByVal lpstrCommand$, ByVal lpstrReturnString$ _
, ByVal uReturnLength&, ByVal hwndCallback&)
Private Sub Drawer(Optional ByVal Cmd$ = "open")
Const CD$ = "set cdaudio door "
Dim Buffer$: Buffer = Space$(100)
Call mciSendString(CD & Cmd, ByVal Buffer, Len(Buffer), 0)
End Sub
Cette méthode fonctionne aussi trés bien et elle est mise en route immédiatement. Je te remercie et je suis admiratif devant tes ressources. J'ai tout de même "enquété" et il semblerait que ce soit un logiciel de gravure, qui gêre mes gravages de cd-rw, je ne connais pas le terme technique mais avec un tel logiciel on utilise les cd-rw comme on utilisait les disquettes auparavant, qui interdit l'éjection quand un disque reinscriptible est chargé dans le tiroir. Je te dirai le résultats de mes investiggations(même si elles sont négatives) JCP
"Michel Pierron" a écrit dans le message de news: %
Bonjour jeclephi; Teste l'ouverture avec cette autre méthode pour voir:
Sub OpenCD() With CreateObject("WMPlayer.OCX").cdromCollection If .Count Then .Item(0).Eject End With End Sub
NB: Cette méthode ne peut pas être utilisée pour la fermeture. MP
"jeclephi" a écrit dans le message de news: #
Bonjour, La macro ci dessous a trés bien fonctionné mais depuis exactement hier soir
il se passe une chose bizarre. Lorsque le tiroir du graveur est vide les macro CD_Open() et CD_Close() fonctionnent trés bien, si le tiroir est chargé la macro CD_Open ne fonctionne plus. J'ai eu beau cherché je n'ai pas trouvé
ce qui peut clocher et je ne vois pas ce que j'aurais pu bidouiller de catastophique. Y a t-il un remède? Merci d'avance Jcp
"Michel Pierron" a écrit dans le message de news:
e%
Bonsoir jeclephi; Bonne année itou !
Private Declare Function mciSendString& Lib _ "winmm.dll" Alias "mciSendStringA" _ (ByVal lpstrCommand$, ByVal lpstrReturnString$ _ , ByVal uReturnLength&, ByVal hwndCallback&)
Private Sub Drawer(Optional ByVal Cmd$ = "open") Const CD$ = "set cdaudio door " Dim Buffer$: Buffer = Space$(100) Call mciSendString(CD & Cmd, ByVal Buffer, Len(Buffer), 0) End Sub
