Le code proposé s'applique à la version US de IE. Il faut changer les sendkeys pour le faire fonctionner avec la version Européenne. Je vais mettre un avertissement sur Atoutfox.

>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