Monsieur Excel
Pour tout savoir faire sur Excel !

16 novembre 2014

Calcul de l’espace libre

Aujourd'hui, nous vous proposons une petite fonction macro dont le seul but est de calculer l’espace libre sur un support donné.

Il suffit d’écrire =libre("C:") pour calculer l’espace libre sur le disque C.

Bous affichons en commentaire, dans la copie d'écran ci-dessous, la formule entrée en B1 et reproduite ensuite vers le bas.


A l’aide de cette fonction, on peut par exemple vérifier si un support contient encore assez de place pour que l’on puisse y enregistrer un fichier donné.

Ce qui est particulièrement intéressant dans cette fonction, c’est que nous avons une preuve de plus du contrôle que nous pouvons avoir – via Excel – sur notre environnement.


rédigé par Hervé Thiriez | 3 commentaire(s)

3 Commentaire(s):

  • J'ai modifié la fonction Libre pour lui permettre de faire face à l'absence d'unité logique et éviter ainsi le résultat #VALEUR#.
    J'ai aussi mis le ":" directement dans la fonction, ce qui facilite l'appel à la fonction : =Libre (A1).

    Public Function Libre(UnitéLogique As String) As String
    Dim FS As FileSystemObject
    Dim d As Drive
    Set FS = New FileSystemObject

    If FS.DriveExists(UnitéLogique) Then
    Set d = FS.GetDrive(UnitéLogique)
    Libre = "Unité " & UCase(UnitéLogique) & ": - " & d.VolumeName & " - "
    Libre = Libre & FormatNumber(d.FreeSpace / 10 ^ 6, 0) & " Mo Libres"
    Else
    Libre = "Unité logique inconnue"
    End If
    End Function

    By Anonymous cduigou, sur 11:54 AM  

  • Merci Claude pour cette contribution !

    By Blogger Hervé Thiriez, sur 7:32 PM  

  • intéressant, j'aurais quand même fait un Set d = Nothing
    Set FS = Nothing

    après le End If

    et ce afin de ne pas occuper inutilement la mémoire

    By Anonymous laloune, sur 11:17 AM  

Enregistrer un commentaire

<< Accueil