Discussion :

[tieno93]

Bonjour à tous, je suis aujourd'hui face à un problème dont je ne trouve pas la solution. J'utilise un logiciel un peu particulier qui s'appelle Artisan Studio, et le principe ai de faire un script dans ce logiciel pour récupérer à partir du logiciel les données qui se trouve dans un tableau Excel sachant que toutes les colonnes sont fixe et ont un standard.

Sauriez-vous me guidé pour le démarrage de ce script ?

[amouna98]

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 :

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

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 :

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
 
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 :

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

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