BonjOur mike,

Je suis loin d'être un expert dans IE.

LOCAL lcFile
lcFile = 'c:\'+SUBSTR(SYS(2015),2,8)+'.mht'
oIE = CREATEOBJECT('internetexplorer.application')
oIE.NAVIGATE('C:\cdbk90\amline\PreMessage.htm')
INKEY(6)
oIE.VISIBLE =.T.
sp=CREATEOBJECT("Wscript.Shell")
sp.SendKeys('%F')
sp.SendKeys('a')
sp.SendKeys('&lcFile')
INKEY(1)
sp.SendKeys("{TAB}")
sp.SendKeys('W')
sp.SendKeys("{TAB}")
sp.SendKeys('S')
oIE.QUIT

Lorsque je lance ce code rien ne se passe .... ?


bernhart


>Je ne suis pas sur de l'heure de ton message. Tu as eu ta réponse sur cette question sur le newgroup?
>
>>Hi all ,
>>
>>How transform my File "C:\cdbk90\amline\Lierre.htm" to "C:\cdbk90\amline\Lierre.mht"
>>with INTERNET EXPLORER ?
>>
>>Thank in advance for help
>>
>>bernhart