Importer des donées de script vb vers excel
Bonjour, je suis totalement novice en programmation vbs et je souhaiterais faire la chose suivante :cry:
1) Sur un serveur de fichier prendre chaque dossier et avoir le volume, le nombre de sous-dossier et le nombre de fichier. Ca à priori ça fonctionne mais pour l'instant en sortie msgbox :
Code:
1
2
3
4
5
6
7
8
9
10
11
12
13
| Dim stRep 'Nom du répertoire à parcourir
Dim oFSO,oFld
Set oFSO = CreateObject("Scripting.FileSystemObject")
stRep = "\\Plume\data"
Set oFld = oFSO.GetFolder(stRep)
For each oFld in oFSO.GetFolder(stRep).SubFolders
MsgBox "DateLastModified :" & oFld.DateLastModified & vbCrlf & _
"Path :" & oFld.Path & vbCrlf & _
"Size :" & oFld.Size & vbCrlf & _
"SubFolders.Count :" & oFld.SubFolders.count & vbCrlf & _
"Files.Count :" & oFld.Files.count
Next |
:yaisse2:
2) Récupérer les infos de ce script et les exporter pour en faire un tableau puis un graphique mais je ne sais pas s'il est possible de le faire sur Excel en pilotant depuis un script vbs ou s'il existe une autre manière ou si c'est impossible tout simplement. Le tout automatisé bien sûr.:help:
Merci de m'éclairer:ange:
