Procedure OuvreXls( pFichier est une chaine, bLectureSeule est un booleen = Faux )
oXls est un objet automation dynamique
// Si un Excel est déjà lancé, on va le récupérer
oXls = ObjetActif("Excel.Application")
SI oXls = NULL ALORS
// Aucun Excel n'est déjà lancé : on en lance un
oXls = allouer un objet Automation "Excel.Application"
SI oXls = NULL ALORS
Erreur("Impossible de lancer Excel")
Renvoyer Faux
FIN
FIN
SI oXls <> NULL ALORS
// Pilotage d'Excel
oXls>>WorkBooks>>Open( pFichier, 2, bLectureSeule )
oXls>>Visible = Vrai
FIN
Renvoyer Vrai
Cette contribution était de : http://old.wdforge.org/newbb/viewtopic.php?forum=19&topic_id=6119&post_id=24524