Ressortir des cellules d'un ensemble de fichiers XLS

Je tente de faire en sorte avec un script vbs de récupérer quelques cellules de fichiers excel...et les combiner dans un seul et unique fichier...

En fait je part de fichier excel qui sont un inventaire informatique, chaque fichier excel est un poste informatique répertorié avec les infos dans chaque cellules...

Mon but étant de récupérer exemple la cellule contenant le système d'exploitation, l'inscrire dans le nouveau fichier et indique le nombre.

Finalement les fichiers excel sont dans un répertoire et il y a quelques 1500 fichiers excel

Pour le moment je n'ai que ce début...

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21

Option Explicit Dim objApp, objWbs, objWorkbook, objSheet   Set objApp = CreateObject("Excel.Application") Set objWbs = objApp.WorkBooks objApp.Visible = False Set objWorkbook = objWbs.Open("C:\Users\Desktop\Inv0989\0989-1002-01.xls") Set objSheet = objWorkbook.Sheets("0989-1002-01")   MsgBox objSheet.Range("C14").Value MsgBox objSheet.Range("A4").Value objWorkbook.Close False objWbs.Close objApp.Quit   Set objSheet = Nothing Set objWorkbook = Nothing Set objWbs = Nothing Set objApp = Nothing   MsgBox "Done"

---

Une petite info pour orienter mon script

Merci

Bon j'avance...J'ai maintenant la Loop throught le répertoire et le output

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28

On error resume Next set shell = WScript.CreateObject("WScript.Shell") shell.Run "notepad.exe" Dim FSO, FLD, FIL Dim strFolder strFolder = "C:\Users\Desktop\Inv" Set FSO = CreateObject("Scripting.FileSystemObject") set FLD = FSO.GetFolder(strFolder) For Each Fil In FLD.Files Dim objExcel, objClasseur, ExcelFile, strCell_B1, strCell_D5, strCell_F10 Set objExcel = CreateObject("Excel.Application") Set objClasseur = objExcel.WorkBooks.Open(Fil) objExcel.DisplayAlerts = False objExcel.Application.Visible = False strCell_B1 = objExcel.Worksheets(1).Cells(1,2).Value strCell_D5 = objExcel.Worksheets(1).Cells(2,2).Value strCell_F10 = objExcel.Worksheets(1).Cells(4,2).Value objExcel.Quit Set objExcel = Nothing Set objClasseur = Nothing   shell.SendKeys strCell_B1 shell.SendKeys "{TAB}" shell.SendKeys strCell_D5 shell.SendKeys "{TAB}" shell.SendKeys strCell_F10 shell.SendKeys "{enter}" Next

---

Il ne me reste qu'à trouver comment faire en sorte de séparer les infos...

Windows XP = 23
Windows 7 = 645

ou

Mémoire 2G = 345
Mémoire 4G = 234

De façon a avoir l'info précise sur le nombre de poste avec X composantes

Une petite piste pour m'orienter?

Merci