Trouver le Lecteur actif

Question

Je dois déterminer quel est le lecteur dans lequel j'ai inséré un CD (pour copier des fichiers). Pour cela j'utilise une macro. Le nom du lecteur est affecté à une variable, laquelle sert dans le chemin pour copier/coller. J'ai esseyé avec la fonction "Driveletter". Je n'arrive pas à faire fonctionner cette dernière. Je m'appuie sur l'exemple de l'aide excel mais visiblement y'a un Quelqu'un pourrait-il me venir en aide? Mecri beaucoup d'avance...

alain0654 · Answer

Voici un bout de code à placer dans un module Excel utilisant divers arguments liés aux "objets" si cela peut aider a l'utilisation pour "lire" le contenu de l'argument "driveletter" Mais écrire sur un CdRom là j'ai des doutes car un Cd non gravé n'est pas "vu" par Excel et de plus pour écrire sur un Cd a partir de Excel (seul) je connais pas ! Par contre pour une orientation à la lecture ... liste de fichiers, sélection parmi une arborescence ... là oui c'est des possibilités bien sur! Et il existe sur le net plusieurs exemples Option Explicit Sub InfoSurLesLecteurs() Dim FileSys, Drv Dim Row As Integer Set FileSys = CreateObject("Scripting.FileSystemObject") Cells.ClearContents Row = 1 On Error Resume Next Cells(Row, 1) = "Lettre" Cells(Row, 2) = "Lecteur pret" Cells(Row, 3) = "Type du lecteur" Cells(Row, 4) = "Nom du lecteur" Cells(Row, 5) = "Taille du disque" Cells(Row, 6) = "Espace libre" For Each Drv In FileSys.Drives Row = Row + 1 Cells(Row, 1) = Drv.DriveLetter Cells(Row, 2) = Drv.IsReady Select Case Drv.DriveType Case 0: Cells(Row, 3) = "Inconu" Case 1: Cells(Row, 3) = "Amovible" Case 2: Cells(Row, 3) = "Dique dur" Case 3: Cells(Row, 3) = "Réseau" Case 4: Cells(Row, 3) = "CD-ROM" Case 5: Cells(Row, 3) = "RAM Disk" End Select Cells(Row, 4) = Drv.VolumeName Cells(Row, 5) = Drv.TotalSize Cells(Row, 6) = Drv.AvailableSpace Next Drv End Sub (Bout de code relevé il y a dèjà quelques années je ne sais plus ou sur le net ou plus probablement dans une revue car internet je ne l'ai que depuis quelques mois!) Au revoir. Cordialement Alain...