VBA Espace libre Disque Dur

[Lab0]

Bonjour à toutes et à tous,

Je suis en train de de faire une Macro sous Excel.

J' aimerai définir une variable qui prendrais la valeur de l'espace libre de mon disque dur "C:" .
Comment faire cela?

Je vous remercie 🙂

 

[MJ13]

Re : VBA Espace libre Disque Dur

Bonjour LaBo, Pierrot, David

Regarde ici 🙂.

https://www.excel-downloads.com/threads/taille-disque-serveur-dans-feuille-excel.130830/

PS: J'ai quand même fait une recherche avancée dans le titre avec "Disque*dur" et Comme par hasard, je tombe sur Pierrot 🙂. Bon, faut que j'aille fignoler mon fichier 😱.

 

[Pierrot93]

Re : VBA Espace libre Disque Dur

Bonjour Labo, Michel 🙂

c'est fait alors je poste...

Option Explicit
Sub test()
Dim fs As Object, d As Object
Set fs = CreateObject("Scripting.FileSystemObject")
For Each d In fs.Drives
    If d.DriveType = 2 Then
        MsgBox d.driveletter
        MsgBox d.freespace
    End If
Next d
End Sub

bonne journée
@+

 

[david84]

Re : VBA Espace libre Disque Dur

Bonjour,
peut-être rechercher du côté de la propriété FreeSpace de FSO.
A+

Edit : bonjour à Pierrot et à Michel

 

[Pierrot93]

Re : VBA Espace libre Disque Dur

Re, bonjour David

Aarf, ton lien répond plus précisément Michel....

@David

du côté de la propriété FreeSpace de FSO.

FSO est une variable objet, tu ne trouveras rien dans l'aide sur elle....

 

[Lab0]

Re : VBA Espace libre Disque Dur

Merci Michel et Pierrot pour vos réponses rapides !
A bientôt 🙂

 

[MJ13]

Re : VBA Espace libre Disque Dur

Re

Aarf, ton lien répond plus précisément Michel....

Pierrot: Qaund même, à l'origine, c'est toi qui l'a trouvé sur ce coup 😉.

 

[Pierrot93]

Re : VBA Espace libre Disque Dur

Re,

oui j'ai vu Michel🙂... Merci...

 

[david84]

Re : VBA Espace libre Disque Dur

Re

FSO est une variable objet

Oui Pierrot, mea culpa.
Si j'ai bien compris, FreeSpace est une propriété de l'object Drive (comme c'est nouveau pour moi, j'ai tendance à me mélanger les pinceaux😕).
Merci de me reprendre.
A+

 

[Pierrot93]

Re : VBA Espace libre Disque Dur

Re,
Pas de souci David🙂

Re

Oui Pierrot, mea culpa.
Si j'ai bien compris, FreeSpace est une propriété de l'object Drive (comme c'est nouveau pour moi, j'ai tendance à me mélanger les pinceaux😕).
Merci de me reprendre.
A+

Oui, tu as très bien compris... bon après midi.