Exemple d'utilisation de la commande ObjetActif

Exemples évolués

Chaque exemple montre une utilisation pratique de la fonction du WLangage.

Quand plusieurs syntaxes sont possibles, chacune est illustrée indépendamment.

Revenir à la page des exemples évolués

L'exemple suivant permet de piloter Excel par OLE Automation. Si une session d'Excel est déjà active, cette session est utilisée pour le dialogue Automation.

A la fin du pilotage d'Excel, l'objet automation est libéré.

Excel est un objet Automation dynamique
// Si un Excel est déjà lancé, on va le récupérer
Excel = ObjetActif ("Excel.Application")
SI Excel = NULL ALORS
   // Aucun Excel n'est déjà lancé : on en lance un
   Excel = allouer un objet Automation "Excel.Application"
   SI Excel = NULL ALORS
      Erreur("Impossible de lancer Excel")
      RETOUR
   FIN
FIN
SI Excel <> NULL ALORS
   // Pilotage d'Excel
   ...
   // On libère l'objet Excel utilisé
   Libérer Excel
FIN