Discussion :

[Invité]

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 :

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

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

[Invité]

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

Code :

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

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