>Bonjour Adam ,
>
>Je vous tester l'existance d'un control Grid sur un formulaire
>aussi tester l'existance de Ms Excel sur un PC
>
>
>Merci

Agnes,

(1) l'existance d'un control Grid sur un formulaire
Tu sais le nom du grid, disons que le nom est Grille

&& 
GridExists = type('m.thisform.Grille.Name') = T_CHARACTER  && T_CHARACTER = 'C'

ou
GridExists = pemstatus(m.thisform, 'Grille', 5)

(2) l'existance de Ms Excel sur un PC

Il y a deux possibilites

La plus facile

&& try/catch est aussi possible
local obj, sError
sError = on('error')

private HadError
HadError = .F.

on error HadError = .T.
obj =  CreateObject('Excel.Application')
on error &sError

do case
case !m.HadError 
    =m.obj.Quit()
    obj = null
endcase

ExcelEstInstalle = !m.HadError 

Quant a la deuxieme, tu dois regarder dans le registre. Sous HKEY_CLASSES_ROOT tu dois trouver une clef .xls.