Récupérer le lettre d'un lecteur sous Excel

Résolu
nino11 Messages postés 76 Statut Membre -  
 néné -
Bonjour,
Je n'arrive pas récupérer la lettre d'un disque amovible

Ex: (H:).
Configuration: Windows XP
Firefox 2.0.0.11

3 réponses

  1. _Sh4rK_ Messages postés 108 Statut Membre 13
     
    Ton probleme est vague ?! qu'appelle tu par recuperer ?
    0
  2. SebManfred Messages postés 484 Date d'inscription   Statut Membre Dernière intervention   128
     
    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?
    0
  3. néné
     
    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
    0