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.
J'ai modifié la fonction Libre pour lui permettre de faire face à l'absence d'unité logique et éviter ainsi le résultat #VALEUR#.
RépondreSupprimerJ'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
Merci Claude pour cette contribution !
RépondreSupprimerintéressant, j'aurais quand même fait un Set d = Nothing
RépondreSupprimerSet FS = Nothing
après le End If
et ce afin de ne pas occuper inutilement la mémoire