Si vous créez une application complète à l’aide d’Excel, vous voudrez peut-être en savoir un peu plus sur l’environnement dans lequel votre application s’exécute. Par exemple, vous voudrez peut-être savoir combien de lecteurs sont connectés au système, quelles sont leurs lettres de lecteur et combien d’espace ils disposent.

La macro suivante récupérera les informations demandées. Tout ce que vous avez à faire est de fournir les en-têtes de colonne. La macro suppose que vous aurez trois colonnes: dans la cellule A1, vous devez placer l’en-tête «Lecteur», dans la cellule B1, vous placez l’en-tête «% gratuit» et dans la cellule C1 vous placez l’en-tête «% utilisé». En outre, vous devez mettre en forme les colonnes B et C sous forme de pourcentages.

Sub DriveSizes()

Dim Drv As Drive     Dim fs As New FileSystemObject     Dim Letter As String     Dim Total As Variant     Dim Free As Variant     Dim FreePercent As Variant     Dim TotalPercent As Variant     Dim i As Integer

On Error Resume Next     i = 2     For Each Drv In fs.drives         If Drv.IsReady Then             Letter = Drv.DriveLetter             Total = Drv.TotalSize             Free = Drv.FreeSpace                          FreePercent = Free / Total             TotalPercent = 1 - FreePercent

Cells(i, 1).Value = Letter             Cells(i, 2).Value = FreePercent             Cells(i, 3).Value = TotalPercent             i = i + 1         End If     Next End Sub

Lorsque vous exécutez cette macro pour la première fois, vous pouvez obtenir une erreur. Si vous le faites, cela signifie que vous devez configurer votre macro pour référencer Microsoft Scripting Runtime. Suivez ces étapes depuis l’éditeur VBA:

  1. Choisissez l’option Références dans le menu Outils. VBA affiche la boîte de dialogue Références.

  2. Dans la liste des références disponibles, assurez-vous que Microsoft Scripting Runtime est sélectionné.

  3. Cliquez sur OK.

Maintenant, la macro devrait fonctionner correctement, et vous aurez un tableau entièrement rempli représentant tous les lecteurs disponibles sur votre système. (Si votre système possède des lecteurs qui utilisent des supports amovibles, tels que des lecteurs de disquettes, ils peuvent ne pas s’afficher à moins que vous ne disposiez d’un support.)

_Note: _

Si vous souhaitez savoir comment utiliser les macros décrites sur cette page (ou sur toute autre page des sites ExcelTips), j’ai préparé une page spéciale qui comprend des informations utiles.

lien: / excelribbon-ExcelTipsMacros [Cliquez ici pour ouvrir cette page spéciale dans un nouvel onglet de navigateur].

ExcelTips est votre source pour une formation Microsoft Excel rentable.

Cette astuce (2716) s’applique à Microsoft Excel 97, 2000, 2002 et 2003. Vous pouvez trouver une version de cette astuce pour l’interface ruban d’Excel (Excel 2007 et versions ultérieures) ici:

link: / excelribbon-Retrieving_Drive_Statistics [Récupération des statistiques de lecteur].