Discussion :

[SMIET]

Salut,

Avec une Macro Excel, je voudrais ouvrir une boite de dialogue pour avoir le chemin d'un dossier et avoir sa taille en octet ("Taille sur le disque" si possible)
et que cela m'insère le chemin et le nom du dossier et la taille en octet dans des cellules séparées.

Taille sur le disque (Si possible)


Je n'arrive pas à trouver…

J'ai cette macro qui fonctionne pour ouvrir le chemin sur le disque dur

Code :

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

1
2
3
Sub Ouvrir_Boite_Dialogue()
    Application.FileDialog(msoFileDialogFolderPicker).Show
End Sub

J'ai cette macro qui fonctionne pour avoir la taille du dossier en octet

Code :

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

1
2
3
4
5
Sub NombreOctetsRepertoire()
Dim Rep As Object
Set Rep = CreateObject("Scripting.FileSystemObject")
Range("A1") = Rep.GetFolder("C:\ Program Files\MON PROG").Size
End Sub

Je n'arrive pas à combiner les 2 macros pour que je puisse ouvrir le dossier et que cela m'insère le chemin du dossier dans une cellule
et la taille en octet dans une autre en m'insérant le chemin dans :

Code :

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

Range("A1") = Rep.GetFolder("le chemin du dossier de Ouvrir_Boite_Dialogue").Size

Si quelqu'un a ça ou similaires…

Merci

@+