Excel VBA : récup lettre CD et SD
fred19732
Messages postés
10
Date d'inscription
Statut
Membre
Dernière intervention
-
michel_m Messages postés 16602 Date d'inscription Statut Contributeur Dernière intervention -
michel_m Messages postés 16602 Date d'inscription Statut Contributeur Dernière intervention -
Bonjour,
Je souhaiterais pouvoir recupérer, dans excel VBA, la lettre du lecteur de CD/DVD à l'insertion d'un certain CD dans le lecteur, de même que la lettre de l'emplacement de la carte SD.Je m'explique :
- j'ai un PC sur lequel il y a 3 lecteurs/graveurs CD et 4 emplacements pour des cartes multimedias (SD, compact...)
- je voudrais :
1- lorsque je mets le CD dont le nom est par exemple "monCD" dans un des lecteurs, récuperer la lettre de ce lecteur
2- lorsque je mets une carte Sd nommée "macarteSD" dans un des lecteurs multimedia, récupérer la lettre de ce lecteur.
Tout cela dans le but de pouvoir transférer des données du Cd vers la carte SD.
Quelqu'un pourrait il m'aider car je ne vois pas du tout comment faire.....?
Merci d'avance
Je souhaiterais pouvoir recupérer, dans excel VBA, la lettre du lecteur de CD/DVD à l'insertion d'un certain CD dans le lecteur, de même que la lettre de l'emplacement de la carte SD.Je m'explique :
- j'ai un PC sur lequel il y a 3 lecteurs/graveurs CD et 4 emplacements pour des cartes multimedias (SD, compact...)
- je voudrais :
1- lorsque je mets le CD dont le nom est par exemple "monCD" dans un des lecteurs, récuperer la lettre de ce lecteur
2- lorsque je mets une carte Sd nommée "macarteSD" dans un des lecteurs multimedia, récupérer la lettre de ce lecteur.
Tout cela dans le but de pouvoir transférer des données du Cd vers la carte SD.
Quelqu'un pourrait il m'aider car je ne vois pas du tout comment faire.....?
Merci d'avance
A voir également:
- Vba sd
- Recuva carte sd - Télécharger - Récupération de données
- Excel compter cellule couleur sans vba - Guide
- L'accès a la carte sd a échoué 3ds - Forum Jeux vidéo
- Incompatibilité de type vba ✓ - Forum VB / VBA
- Erreur 13 incompatibilité de type VBA excel ✓ - Forum Excel
1 réponse
Bonjour,
Je ne sais pas si cette proc tirée d'un vbscript sur internet pourra t'aider: elle énumère les lecteurs de cd chargés. Pour les SD je ne connais pas le service WMI.
Sub enumerer_cd_chargés()
strComputer = "."
Set objetwmi = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")
Set lecteurs = objetwmi.ExecQuery("Select * from Win32_CDROMDrive")
For Each lecteur In lecteurs
If lecteur.medialoaded Then
MsgBox "un CD est chargé dans le lecteur :" & lecteur.drive
End If
Next
End Sub
Maintenant, pour envoyer une alerte au moment où tu introduis un CD c'est une autre paire de manches ( monitoring) et j'en suis incapable
En espèrant que...
Michel
Je ne sais pas si cette proc tirée d'un vbscript sur internet pourra t'aider: elle énumère les lecteurs de cd chargés. Pour les SD je ne connais pas le service WMI.
Sub enumerer_cd_chargés()
strComputer = "."
Set objetwmi = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")
Set lecteurs = objetwmi.ExecQuery("Select * from Win32_CDROMDrive")
For Each lecteur In lecteurs
If lecteur.medialoaded Then
MsgBox "un CD est chargé dans le lecteur :" & lecteur.drive
End If
Next
End Sub
Maintenant, pour envoyer une alerte au moment où tu introduis un CD c'est une autre paire de manches ( monitoring) et j'en suis incapable
En espèrant que...
Michel
