Récupérer le lettre d'un lecteur sous Excel
Résolu/Fermé
nino11
Messages postés
76
Date d'inscription
samedi 8 décembre 2007
Statut
Membre
Dernière intervention
27 juin 2008
-
18 déc. 2007 à 12:52
néné - 18 déc. 2007 à 19:03
néné - 18 déc. 2007 à 19:03
A voir également:
- Récupérer le lettre d'un lecteur sous Excel
- Telecharger macro convertir chiffre en lettre excel - Télécharger - Tableur
- Comment recuperer un message supprimé sur whatsapp - Guide
- Liste déroulante excel - Guide
- Recuperer video youtube - Guide
- Comment récupérer un compte facebook piraté - Guide
3 réponses
_Sh4rK_
Messages postés
108
Date d'inscription
vendredi 17 août 2007
Statut
Membre
Dernière intervention
18 décembre 2007
13
18 déc. 2007 à 12:54
18 déc. 2007 à 12:54
Ton probleme est vague ?! qu'appelle tu par recuperer ?
SebManfred
Messages postés
484
Date d'inscription
mardi 28 août 2007
Statut
Membre
Dernière intervention
20 mai 2011
128
18 déc. 2007 à 12:57
18 déc. 2007 à 12:57
c'est à dire?
tu veux la récupérer et t'en servir dans un programme ou tu veux pouvoir avoir une lettre associée à un lecteur?
si c'est la 2e solution, tu vas dans le panneau de configuration, outils d'administration, gestion de l'ordinateur, gestion des disques, et là tu devrais pouvoir faire ce que tu veux avec les lettres associées aux lecteurs.
si tu ne peux pas, c'est peut-être un problème de driver, ton disque n'est peut-être pas reconnu correctement au niveau hardware.
tu es sûr que c'est du plug&play ou que tu as installé les drivers correctement?
tu veux la récupérer et t'en servir dans un programme ou tu veux pouvoir avoir une lettre associée à un lecteur?
si c'est la 2e solution, tu vas dans le panneau de configuration, outils d'administration, gestion de l'ordinateur, gestion des disques, et là tu devrais pouvoir faire ce que tu veux avec les lettres associées aux lecteurs.
si tu ne peux pas, c'est peut-être un problème de driver, ton disque n'est peut-être pas reconnu correctement au niveau hardware.
tu es sûr que c'est du plug&play ou que tu as installé les drivers correctement?
bjr
voici peut être la solution
Sub Lecteurs_amovible_Dispos()
Dim FSO As Object
Dim Drv As Object
Dim Msg$
Set FSO = CreateObject("Scripting.FileSystemObject")
For Each Drv In FSO.Drives
With Drv
Select Case .DriveType
Case 1 ' removable, e.g., zip
Msg = Msg & "Lecteur: " & .DriveLetter & " est un disque amovible." & vbLf
End Select
End With
Next Drv
MsgBox Msg, , "Lecteurs du système"
End Sub
voici peut être la solution
Sub Lecteurs_amovible_Dispos()
Dim FSO As Object
Dim Drv As Object
Dim Msg$
Set FSO = CreateObject("Scripting.FileSystemObject")
For Each Drv In FSO.Drives
With Drv
Select Case .DriveType
Case 1 ' removable, e.g., zip
Msg = Msg & "Lecteur: " & .DriveLetter & " est un disque amovible." & vbLf
End Select
End With
Next Drv
MsgBox Msg, , "Lecteurs du système"
End Sub