Script de Récupération des données d'un tableau Excel

Bonjour
Je ne sais pas si tu as toujours besoin de cela mais voila ma réponse

il suffit d'ouvrir le fichier excel puis copier les valeurs dans des variables

Pour créer un fichier

Code:

1
2
3
4
5
6
7
8
9
10
11
12
 
 
Function CreateNewFile()
	Dim xlapp, classeur, feuille  
	Set xlapp = CreateObject("Excel.Application") 
	xlapp.Visible = True 
	Set classeur = xlapp.Workbooks.add 
	Set feuille = xlapp.ActiveSheet 
 
	feuille.Name = "toto"	
 
End Function

pour ouvrir le fichier

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
 
Function OpenFile()
 Set ObjFSO = CreateObject("UserAccounts.CommonDialog")
			'setup the File Browser specifics
			ObjFSO.Filter = "excel sheet 97-2003|*.xls|excel sheet|*.xlsx"
			ObjFSO.FilterIndex = 3
			ObjFSO.InitialDir = "c:\Temp"
 
 
			'show the file browser and return the selection (or lack of) to InitFSO
			InitFSO = ObjFSO.ShowOpen
 
			if (InitFSO = True)then 
 
				ExcelName = ObjFSO.FileName
				'Call OpenFile
				Fichier_XLS = ExcelName 
				'Feuille_XLS = "Function 1" 
				set oXL   = CreateObject("EXCEL.application" ) 
				oXL.Visible = true 
				oXL.workbooks.open   Fichier_XLS 
				Set feuille = oXL.ActiveSheet 
				'oXL.sheets(Feuille_XLS).Activate 
				CompleteFile(feuille)
			End ifEnd Function

pour recuperer la Cellule A1 par exemple

Code:

1
2
3
 
 
toto = feuille.Range("A1")