Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Applications Microsoft Office Excel ouverture et fermeture tiroirs CD

ouverture et fermeture tiroirs CD

3 réponses
Avatar
jeclephi
Bonjour,
J'ai fait une macro VBA qui fait une copie de sauvegarde de fichiers Excel,
ceci avec l'aide de deux fonctions
API (dont j'ai trouvé le principe sur un bouqin de cours VBA)qui permettent
de synchroniser le déroulement
de ma macro et celui du fichier *.bat qui lance la copie en ligne de
commande.
Je voudrais , aprés avoir fait cette copie, ouvrir le tiroir du lecteur CD.
Est ce possible en VBS, ou bien avec une fonction API et VBA.
Merci

J'allais oublier, en l'honneur de ce 1° Janvier 2006, de souhaiter à toutes
et tous mes meilleurs voeux pour cette nouvelle année

Jeclephi
Signaler un problème avec ce contenu

3 réponses

Supprimer
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
Avatar
Michel Pierron
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" a écrit dans le message de news:
e9#
Bonjour,
J'ai fait une macro VBA qui fait une copie de sauvegarde de fichiers
Excel,

ceci avec l'aide de deux fonctions
API (dont j'ai trouvé le principe sur un bouqin de cours VBA)qui
permettent

de synchroniser le déroulement
de ma macro et celui du fichier *.bat qui lance la copie en ligne de
commande.
Je voudrais , aprés avoir fait cette copie, ouvrir le tiroir du lecteur
CD.

Est ce possible en VBS, ou bien avec une fonction API et VBA.
Merci

J'allais oublier, en l'honneur de ce 1° Janvier 2006, de souhaiter à
toutes

et tous mes meilleurs voeux pour cette nouvelle année

Jeclephi





Avatar
jeclephi
Salut Michel Pierron
Merci pour votre réponse que je vais mettre en application illico.
Je vous dirai si j'ai été cap de la mettre correctement en route.

Jeclephi

"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" a écrit dans le message de news:
e9#
Bonjour,
J'ai fait une macro VBA qui fait une copie de sauvegarde de fichiers
Excel,

ceci avec l'aide de deux fonctions
API (dont j'ai trouvé le principe sur un bouqin de cours VBA)qui
permettent

de synchroniser le déroulement
de ma macro et celui du fichier *.bat qui lance la copie en ligne de
commande.
Je voudrais , aprés avoir fait cette copie, ouvrir le tiroir du lecteur
CD.

Est ce possible en VBS, ou bien avec une fonction API et VBA.
Merci

J'allais oublier, en l'honneur de ce 1° Janvier 2006, de souhaiter à
toutes

et tous mes meilleurs voeux pour cette nouvelle année

Jeclephi









Avatar
jeclephi
Bonjour Michel Pierron

Ca marche super bien

Jeclephi

"jeclephi" a écrit dans le message de news:

Salut Michel Pierron
Merci pour votre réponse que je vais mettre en application illico.
Je vous dirai si j'ai été cap de la mettre correctement en route.

Jeclephi

"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" a écrit dans le message de news:
e9#
Bonjour,
J'ai fait une macro VBA qui fait une copie de sauvegarde de fichiers
Excel,

ceci avec l'aide de deux fonctions
API (dont j'ai trouvé le principe sur un bouqin de cours VBA)qui
permettent

de synchroniser le déroulement
de ma macro et celui du fichier *.bat qui lance la copie en ligne de
commande.
Je voudrais , aprés avoir fait cette copie, ouvrir le tiroir du lecteur
CD.

Est ce possible en VBS, ou bien avec une fonction API et VBA.
Merci

J'allais oublier, en l'honneur de ce 1° Janvier 2006, de souhaiter à
toutes

et tous mes meilleurs voeux pour cette nouvelle année

Jeclephi