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