Discussion :

[RayMaxI]

Bonjour

macro pour éjecter les lecteurs amovibles

Sub Ejection_dde()

On Error Resume Next

' Créer une instance du gestionnaire de disques logiques
Set objWMIService = GetObject("winmgmts:\\.\root\cimv2")

' Parcourir les lettres de lecteur de E à M
For i = Asc("E") To Asc("M")
' Convertir la lettre en majuscule
strDriveLetter = UCase(Chr(i))

' Récupérer la liste des disques logiques pour la lettre de lecteur actuelle
Set colDisks = objWMIService.ExecQuery("Select * from Win32_LogicalDisk where DriveType=2 and DeviceID='" & strDriveLetter & ":'")

' Si un disque amovible est présent pour cette lettre de lecteur, éjecter
For Each objDisk In colDisks
objDisk.Eject
Next
Next

' Libérer les ressources
Set objWMIService = Nothing
End Sub

colDisks ne se charge pas !!


Merci pour l'aide

[jurassic pork]

Hello,
voici un script qui éjecte les lecteurs USB amovibles montés :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Public Sub EjectUsb()
    Dim fso As Object, USBDrive As Object, myShell As Object, myDrive As Object
    Set fso = CreateObject("Scripting.FileSystemObject")
    Set myShell = CreateObject("Shell.Application")
    For Each myDrive In fso.Drives
        If myDrive.DriveType = 1 And myDrive.IsReady = True Then  'removeable and mounted
           ' If myDrive.VolumeName = strVolumeName Then
                Set USBDrive = myShell.Namespace(17).Parsename(myDrive.Path)
                If USBDrive.Type = "Lecteur USB" Then ' Check it really is a USB drive
                    USBDrive.InvokeVerb "Eject"
                End If
            'End If
        End If
    Next
End Sub

Attention au test USBDrive.Type = "Lecteur USB" la chaîne à tester dépend de la langue utilisée par l'O.S exemple en anglais USB Drive


Ami calmant, J.P