Discussion :

[mamid1706]

Bonjour tout le monde,

Depuis un programme PB, je voudrais lire un fichier Excel. J'ai essayé la méthode DDE:

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

liRet = Run("C:\Program Files\Microsoft Office\Office\EXCEL.EXE " + excel_in_path, normal! ) 

if liRet <= 0 then
	return 1
end if

llhandle = OpenChannel("Excel", excel_in_path)

liRet = GetRemote("R2C1", lsEan, llhandle)
liRet = GetRemote("R2C2", lsCint, llhandle)
liRet = GetRemote("R2C3", lsPrix, llhandle)

messageBox ("Lecture", "Ean: " + lsEan + "; Cint: " + lsCint + " Prix: " + lsPrix)

CloseChannel(llhandle)

le seul problème est dans la fonction GetRemote qui me retourne la valeur -2, ce qui veut dire: -2 Request denied
Je n'arrive donc pas à faire ces trois lecture.

Comment regler ce problème? La méthode OLE est-elle plus simple? Si c'est oui, avez vous un bout de code?

En attendant vos réponses, mes remerciements à tous.

[highlander]

Bonjour mamid,

J'avais fait une fois quelque chose avec OLE:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
OLEObject 	lo_ole
string ls_nom_du_fichier, ls_nom_de_la_feuille, ls_texte
ls_nom_du_fichier = "C:\test.xls"
ls_nom_de_la_feuille = "Feuil1"
lo_ole = CREATE oleobject
lo_ole.ConnectToNewObject("excel.application")
lo_ole.workbooks.open(ls_nom_du_fichier)
lo_ole.Sheets("ls_nom_de_la_feuille").Select
lo_ole.Range("A1").Select
ls_texte = string(lo_ole.ActiveCell.Value)
lo_ole.quit()

Bonne chance...

[mamid1706]

Merci pour votre aide.

J'ai fini par comprendre, c'est, en effet, plus facile que la méthode DDE puisque on la possibilité d'accader aux méthodes des objets Excel.

Bien cordialement.