Discussion :

[achat2015]

Bonjour,
Sous Excel 2007, peut-on afficher avec actualisation automatique, la taille d'un répertoire dans une cellule ?

Merci d'avance.

[vinc_bilb]

Bonjour,

A ma connaissance, non, sauf en passant par du VBA (FileSystemObject par exemple)
Bonne journée

[Patrice740]

Bonjour,

Par macro ,avec le FSO :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
Private Sub Workbook_Open()
Dim Cible As Object   'Scripting.FileSystemObject
Dim Valeur As Object  'Scripting.File
 
    NomDossier = ThisWorkbook.Path   'ou autre, par exemple = "C:/Temp"
    Set Cible = CreateObject("Scripting.fileSystemObject")
    Set Valeur = Cible.GetFolder(NomDossier)
    Worksheets(1).Range("A1").Value = Valeur.Size
 
End Sub

[achat2015]

Bonjour,

Par macro ,avec le FSO :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
Private Sub Workbook_Open()
Dim Cible As Object   'Scripting.FileSystemObject
Dim Valeur As Object  'Scripting.File
 
    NomDossier = ThisWorkbook.Path   'ou autre, par exemple = "C:/Temp"
    Set Cible = CreateObject("Scripting.fileSystemObject")
    Set Valeur = Cible.GetFolder(NomDossier)
    Worksheets(1).Range("A1").Value = Valeur.Size
 
End Sub

Merci, j'essaie cette solution.