Récupérer le lettre d'un lecteur sous Excel
Résolu
nino11
Messages postés
76
Statut
Membre
-
néné -
néné -
Bonjour,
Je n'arrive pas récupérer la lettre d'un disque amovible
Ex: (H:).
Je n'arrive pas récupérer la lettre d'un disque amovible
Ex: (H:).
A voir également:
- Récupérer le lettre d'un lecteur sous Excel
- Telecharger macro convertir chiffre en lettre excel - Télécharger - Tableur
- Liste déroulante excel - Guide
- Clavier iphone chiffre et lettre - Guide
- Comment recuperer un message supprimé sur whatsapp - Guide
- Lecteur excel - Télécharger - Tableur
3 réponses
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
