{"type":"doc","content":[{"type":"paragraph","content":[{"text":"Documentation de OLE Automation avec DhAutomation.dll ","type":"text"},{"type":"hardBreak"},{"type":"hardBreak"},{"text":"La DLL ","type":"text"},{"text":"DhAutomation","type":"text","marks":[{"type":"strong"}]},{"text":" permet d'exécuter, dans un programme DIVA, des fonctions proposées par un objet Ole Automation. Elle utilise les fonctions Windows de Ole Automation pour dialoguer avec un serveur Ole tel que Word ou Excel. ","type":"text"},{"type":"hardBreak"},{"type":"hardBreak"},{"text":"I. Visite guidée du langage de commandes de DhAutomation.dll et de Ole Automation","type":"text","marks":[{"type":"strong"}]},{"text":" ","type":"text"},{"type":"hardBreak"},{"type":"hardBreak"},{"text":"1. Le programme automa.dhop","type":"text","marks":[{"type":"strong"}]},{"text":" ","type":"text"},{"type":"hardBreak"},{"text":"Le programme ","type":"text"},{"text":"automa.dhop","type":"text","marks":[{"type":"strong"}]},{"text":" permet de saisir des ordres Ole Automation directement au clavier. Les ordres tapés sont automatiquement sauvegardés dans le fichier ","type":"text"},{"text":"workTTT","type":"text","marks":[{"type":"strong"}]},{"text":", où ","type":"text"},{"text":"TTT","type":"text","marks":[{"type":"strong"}]},{"text":" est le numéro de la tâche en cours qu'il faut créer. ","type":"text"},{"type":"hardBreak"},{"text":"automa.dhop","type":"text","marks":[{"type":"strong"}]},{"text":" permet ainsi d'exécuter un fichier de commandes. Si Excel est installé sur votre machine, vous pouvez lancer le fichier de démonstration ","type":"text"},{"text":"TESTAUTO","type":"text","marks":[{"type":"strong"}]},{"text":". Après exécution, le programme revient à la saisie de la première commande. Il affiche le résultat de la commande s'il y en a un, ou une erreur si le serveur n'a pas pu exécuter cette commande. ","type":"text"},{"type":"hardBreak"},{"text":"Pour sortir du programme, tapez sur la touche F9. ","type":"text"},{"type":"hardBreak"},{"type":"hardBreak"},{"text":"2. Exemple d'utilisation du programme automa.dhop","type":"text","marks":[{"type":"strong"}]},{"text":" ","type":"text"},{"type":"hardBreak"},{"text":"Nous allons maintenant saisir un exemple de commandes pour Excel, le principe restant identique pour les autres serveurs Ole Automation. Lancez le programme ","type":"text"},{"text":"automa.dhop","type":"text","marks":[{"type":"strong"}]},{"text":" et tapez Return à la question \"Fichier de commandes\". ","type":"text"},{"type":"hardBreak"},{"text":"Les serveurs d'objets Ole Automation proposent parfois leur langage de commandes en plusieurs langues. Si c'est le cas, il faut commencer par envoyer la commande ","type":"text"},{"text":"lang","type":"text","marks":[{"type":"strong"}]},{"text":" afin d'indiquer la langue à utiliser. Par défaut, DhAutomation prend la langue de Windows. ","type":"text"},{"type":"hardBreak"},{"text":"La commande est : ","type":"text"},{"text":"lang anglais","type":"text","marks":[{"type":"strong"}]},{"text":" ou ","type":"text"},{"text":"lang francais","type":"text","marks":[{"type":"strong"}]},{"text":". ","type":"text"},{"type":"hardBreak"},{"type":"hardBreak"},{"text":"Pour Excel, nous allons travailler avec la langue par défaut et écrire une suite de commandes permettant de modifier et de lire une feuille de calculs en cours d'édition. ","type":"text"},{"type":"hardBreak"},{"text":"Attention : avec Excel 2002 ou 2007, il peut y avoir une erreur lors de l'appel à certaines commandes comme par exemple WorkBooks.Add ou WorkBooks.Open .","type":"text"},{"type":"hardBreak"},{"text":"Utilisez donc la commande lang que si cette commande est obligatoire pour votre code . ","type":"text"},{"type":"hardBreak"},{"text":"Il existe tout d'abord deux fonctions pour se connecter à un objet Ole Automation : ","type":"text"},{"text":"CreateObject","type":"text","marks":[{"type":"strong"}]},{"text":" et ","type":"text"},{"text":"GetObject","type":"text","marks":[{"type":"strong"}]},{"text":" : ","type":"text"},{"type":"hardBreak"},{"type":"hardBreak"}]},{"type":"bulletList","content":[{"type":"listItem","content":[{"type":"paragraph","content":[{"text":"CreateObject (\"nom de l'objet\")","type":"text","marks":[{"type":"strong"}]},{"text":" crée un nouvel objet.","type":"text"}]}]}]},{"type":"paragraph","content":[{"type":"hardBreak"},{"text":"Exemple :variable = ","type":"text"},{"text":"CreateObject","type":"text","marks":[{"type":"strong"}]},{"text":" (\"Excel.Application\") ","type":"text"},{"type":"hardBreak"},{"text":"Lance une nouvelle instance du programme Excel et renvoie un lien vers ce programme. ","type":"text"},{"type":"hardBreak"},{"type":"hardBreak"}]},{"type":"bulletList","content":[{"type":"listItem","content":[{"type":"paragraph","content":[{"text":"GetObject (\"fichier\" , \"nom de l'objet\")","type":"text","marks":[{"type":"strong"}]},{"text":" charge un objet déjà existant sur disque ou en mémoire. Cette commande possède trois syntaxes :","type":"text"}]}]}]},{"type":"paragraph","content":[{"type":"hardBreak"},{"text":"Syntaxe 1 :variable = ","type":"text"},{"text":"GetObject","type":"text","marks":[{"type":"strong"}]},{"text":" (\"fichier\") ","type":"text"},{"type":"hardBreak"},{"text":"Permet de charger un fichier ainsi que l'objet qui gère ce type de fichier (par exemple, une feuille de calcul Excel et le programme Excel lui-même).","type":"text"},{"type":"hardBreak"},{"text":"Pour charger l'objet, Windows se base sur l'extension du nom du fichier passé en paramètre. Si le fichier est déjà chargé en mémoire, Windows renvoie simplement un lien vers celui-ci. ","type":"text"},{"type":"hardBreak"},{"text":"Exemple :variable = GetObject (\"c:\\divalto\\sys\\test.xls\") ","type":"text"},{"type":"hardBreak"},{"text":"Cas 1 :Excel n'est pas lancé.","type":"text"},{"type":"hardBreak"},{"text":"Windows lance Excel et lui demande de charger le fichier","type":"text"},{"type":"hardBreak"},{"text":"c:\\divalto\\sys\\test.xls. ","type":"text"},{"type":"hardBreak"},{"text":"Cas 2 :Excel est déjà lancé mais le fichier c:\\divalto\\sys\\test.xls n'est pas chargé.","type":"text"},{"type":"hardBreak"},{"text":"Windows utilise le programme Excel courant et lui demande de","type":"text"},{"type":"hardBreak"},{"text":"charger le fichier c:\\divalto\\sys\\test.xls. ","type":"text"},{"type":"hardBreak"},{"text":"Cas 3 :Excel est lancé et a ouvert le fichier c:\\divalto\\sys\\test.xls.","type":"text"},{"type":"hardBreak"},{"text":"Windows utilise le programme Excel courant et renvoie simplement un","type":"text"},{"type":"hardBreak"},{"text":"lien vers le fichier déjà ouvert par Excel. ","type":"text"},{"type":"hardBreak"},{"type":"hardBreak"},{"text":"Syntaxe 2 :variable = ","type":"text"},{"text":"GetObject","type":"text","marks":[{"type":"strong"}]},{"text":" ( , \"nom de l'objet\") ","type":"text"},{"type":"hardBreak"},{"text":"Permet de charger un objet déjà présent en mémoire. ","type":"text"},{"type":"hardBreak"},{"text":"Exemple :variable = ","type":"text"},{"text":"GetObject","type":"text","marks":[{"type":"strong"}]},{"text":" ( , \"Excel.Application\") ","type":"text"},{"type":"hardBreak"},{"text":"Cas 1 : Excel n'est pas lancé.","type":"text"},{"type":"hardBreak"},{"text":"Une erreur est détectée. ","type":"text"},{"type":"hardBreak"},{"text":"Cas 2 : Excel est déjà lancé.","type":"text"},{"type":"hardBreak"},{"text":"Windows utilise le programme Excel courant et renvoie un lien sur ce","type":"text"},{"type":"hardBreak"},{"text":"programme. ","type":"text"},{"type":"hardBreak"},{"type":"hardBreak"},{"text":"Syntaxe 3 :variable = ","type":"text"},{"text":"GetObject","type":"text","marks":[{"type":"strong"}]},{"text":" (\"fichier\" , \"nom de l'objet\") ","type":"text"},{"type":"hardBreak"},{"text":"Permet de charger un fichier en spécifiant le nom de l'objet à utiliser. ","type":"text"},{"type":"hardBreak"},{"text":"Remarque : Avec la syntaxe 1, une ambiguïté peut exister si deux logiciels utilisent la même extension. Par exemple, Wordpad et Word gèrent tous deux des fichiers d'extension ","type":"text"},{"text":".doc","type":"text","marks":[{"type":"strong"}]},{"text":". La syntaxe 3 permet de lever cette ambiguïté : il vaut donc mieux utiliser la syntaxe 3 plutôt que la 1 si vous connaissez le nom de l'objet à utiliser. ","type":"text"},{"type":"hardBreak"},{"text":"Exemples :variable = ","type":"text"},{"text":"GetObject","type":"text","marks":[{"type":"strong"}]},{"text":" (\"c:\\divalto\\sys\\test.xls\" , \"Excel.Application\")","type":"text"},{"type":"hardBreak"},{"text":"sortira toujours en erreur car les fichiers .xls ne sont pas chargés par","type":"text"},{"type":"hardBreak"},{"text":"Excel.Application mais par Excel.Sheet ! ","type":"text"},{"type":"hardBreak"},{"text":"variable = ","type":"text"},{"text":"GetObject","type":"text","marks":[{"type":"strong"}]},{"text":" (\"c:\\divalto\\sys\\test.xls\" , \"Excel.Sheet\") ","type":"text"},{"type":"hardBreak"},{"text":"Cas 1 : Excel n'est pas lancé.","type":"text"},{"type":"hardBreak"},{"text":"Windows lance Excel et lui demande de charger le fichier","type":"text"},{"type":"hardBreak"},{"text":"c:\\divalto\\sys\\test.xls. ","type":"text"},{"type":"hardBreak"},{"text":"Cas 2 : Excel est déjà lancé mais le fichier c:\\divalto\\sys\\test.xls n'est pas chargé.","type":"text"},{"type":"hardBreak"},{"text":"Windows utilise le programme Excel courant et lui demande de charger","type":"text"},{"type":"hardBreak"},{"text":"le fichier c:\\divalto\\sys\\test.xls. ","type":"text"},{"type":"hardBreak"},{"text":"Cas 3 : Excel est lancé et a ouvert le fichier c:\\divalto\\sys\\test.xls.","type":"text"},{"type":"hardBreak"},{"text":"Windows utilise le programme Excel courant et renvoie simplement un","type":"text"},{"type":"hardBreak"},{"text":"lien vers le fichier déjà ouvert par Excel. ","type":"text"},{"type":"hardBreak"},{"type":"hardBreak"},{"text":"En résumé","type":"text","marks":[{"type":"strong"}]},{"text":", on utilisera en général :","type":"text"}]},{"type":"bulletList","content":[{"type":"listItem","content":[{"type":"paragraph","content":[{"text":"CreateObject pour créer un nouvel objet. Pour charger ensuite un fichier, on utilisera les fonctions de lecture de fichier proposées par cet objet.","type":"text"}]}]}]},{"type":"paragraph","content":[{"type":"hardBreak"}]},{"type":"bulletList","content":[{"type":"listItem","content":[{"type":"paragraph","content":[{"text":"GetObject pour travailler avec un objet lancé préalablement par l'utilisateur.","type":"text"}]}]}]},{"type":"paragraph","content":[{"type":"hardBreak"},{"type":"hardBreak"},{"text":"Dans notre exemple, nous allons donc nous connecter à Excel par la fonction ","type":"text"},{"text":"GetObject","type":"text","marks":[{"type":"strong"}]},{"text":" afin de modifier la feuille de calculs chargée en premier plan par l'utilisateur. En conséquence, lancez Excel et positionnez-vous sur une feuille de calculs. ","type":"text"},{"type":"hardBreak"},{"text":"GetObject","type":"text","marks":[{"type":"strong"}]},{"text":" renvoie un lien que nous stockerons dans la variable xl. La création d'une variable se fait par l'instruction ","type":"text"},{"text":"dim","type":"text","marks":[{"type":"strong"}]},{"text":".","type":"text"},{"type":"hardBreak"},{"text":"Dans automa.hop, tapez : ","type":"text"},{"text":"dim xl","type":"text","marks":[{"type":"strong"}]},{"text":" ","type":"text"},{"type":"hardBreak"},{"type":"hardBreak"},{"text":"Pour nous connecter à Excel, tapez : ","type":"text"},{"text":"xl = GetObject ( , \"Excel.Application\")","type":"text","marks":[{"type":"strong"}]},{"text":" ","type":"text"},{"type":"hardBreak"},{"text":"Remarque : le nom d'Excel pour Ole Automation est indiqué dans la documentation d'Excel. Il s'agit de \"Excel.Application\" (voir l'aide vba pour Excel). ","type":"text"},{"type":"hardBreak"},{"text":"Nous obtenons ainsi un lien sur l'objet Application d'Excel. Dans la documentation d'Excel, on trouve la liste des ","type":"text"},{"text":"méthodes","type":"text","marks":[{"type":"strong"}]},{"text":" et des ","type":"text"},{"text":"propriétés","type":"text","marks":[{"type":"strong"}]},{"text":" de l'objet Application :","type":"text"}]},{"type":"bulletList","content":[{"type":"listItem","content":[{"type":"paragraph","content":[{"text":"Une ","type":"text"},{"text":"méthode","type":"text","marks":[{"type":"strong"}]},{"text":" est une fonction qui exécute une opération. Par exemple, la méthode PrintOut imprime un document.","type":"text"}]}]}]},{"type":"paragraph","content":[{"type":"hardBreak"}]},{"type":"bulletList","content":[{"type":"listItem","content":[{"type":"paragraph","content":[{"text":"Une ","type":"text"},{"text":"propriété","type":"text","marks":[{"type":"strong"}]},{"text":" est une information que l'on peut lire et parfois écrire. Par exemple, la propriété Visible permet de savoir si Excel est affiché à l'écran (elle vaut true ou false). Mais on peut aussi écrire : Visible = true pour rendre Excel visible ou Visible = false pour mettre Excel en mode caché.","type":"text"}]}]}]},{"type":"paragraph","content":[{"type":"hardBreak"},{"type":"hardBreak"},{"text":"Nous allons maintenant nous connecter à la feuille en cours d'édition. Nous utiliserons pour ce faire la propriété ActiveSheet de l'objet Application, qui renvoie un lien sur la feuille en cours.","type":"text"},{"type":"hardBreak"},{"text":"Déclarez d'abord une deuxième variable pour y stocker ce lien en tapant : ","type":"text"},{"text":"dim fe","type":"text","marks":[{"type":"strong"}]},{"type":"hardBreak"},{"text":"Puis opérez la connexion en tapant : ","type":"text"},{"text":"fe = xl.ActiveSheet","type":"text","marks":[{"type":"strong"}]},{"text":" ","type":"text"},{"type":"hardBreak"},{"text":"Remarque : La notation pointée xl","type":"text"},{"text":".","type":"text","marks":[{"type":"strong"}]},{"text":"ActiveSheet précise que ActiveSheet est une propriété de l'objet pointé par la variable xl (ici, \"Excel.Application\"). ","type":"text"},{"type":"hardBreak"},{"text":"Le lien que nous venons de créer pointe un objet \"Feuille de Calculs\" (objet Sheet - Cf. documentation d'Excel pour connaître la liste des méthodes et des propriétés de cet objet). ","type":"text"},{"type":"hardBreak"},{"type":"hardBreak"},{"text":"Il existe par exemple la propriété Cells (ligne , colonne) qui permet de lire et d'écrire dans une cellule. Comme tout à l'heure, nous devrons utiliser la notation pointée pour préciser l'objet concerné par cette propriété. ","type":"text"},{"type":"hardBreak"},{"text":"Tapez : ","type":"text"},{"text":"fe.Cells (1 , 1) = \"Petit calcul\"","type":"text","marks":[{"type":"strong"}]},{"text":";cellule A1","type":"text"},{"type":"hardBreak"},{"text":"fe.Cells (2 , 1) = 10","type":"text","marks":[{"type":"strong"}]},{"text":";cellule A2","type":"text"},{"type":"hardBreak"},{"text":"fe.Cells (3 , 1) = 15","type":"text","marks":[{"type":"strong"}]},{"text":";cellule A3","type":"text"},{"type":"hardBreak"},{"text":"fe.Cells (4 , 1) = \"=A2+A3\"","type":"text","marks":[{"type":"strong"}]},{"text":";formule de calcul ","type":"text"},{"type":"hardBreak"},{"text":"Attention","type":"text","marks":[{"type":"strong"}]},{"text":" : il faut mettre un blanc avant et après la virgule pour que DhAutomation sache qu'il s'agit de 2 paramètres et non de la valeur décimale 1,1. ","type":"text"},{"type":"hardBreak"},{"text":"Nous pouvons aussi lire le résultat du calcul avec cette même propriété.","type":"text"},{"type":"hardBreak"},{"text":"Si nous tapons : ","type":"text"},{"text":"fe.cells (4 , 1)","type":"text","marks":[{"type":"strong"}]},{"text":", nous obtenons la valeur \"25\" . ","type":"text"},{"type":"hardBreak"},{"type":"hardBreak"},{"text":"La cellule (4,1) contient un résultat mais aussi une formule de calcul. Comment lire la formule plutôt que le résultat ? La documentation d'Excel nous indique que la propriété Cells renvoie en réalité un objet Cellule avec la propriété par défaut Value. Lorsqu'on écrit fe.cells (4 , 1), on ne précise pas le nom de la propriété ou de la méthode à utiliser. Excel utilise alors une propriété par défaut qui ici renvoie la valeur de la cellule. ","type":"text"},{"type":"hardBreak"},{"text":"La commande complète équivalente est : ","type":"text"},{"text":"fe.cells ( 4 , 1).Value","type":"text","marks":[{"type":"strong"}]},{"text":" ","type":"text"},{"type":"hardBreak"},{"text":"Pour obtenir la formule de calcul de la cellule, on tapera : ","type":"text"},{"text":"fe.cells (4 , 1).Formula","type":"text","marks":[{"type":"strong"}]},{"type":"hardBreak"},{"text":"qui renverra la valeur : \"=A2+A3\". ","type":"text"},{"type":"hardBreak"},{"type":"hardBreak"},{"text":"La propriété Cells renvoie un objet Cellule. Nous aurions aussi pu déclarer un lien sur l'objet Cellule et écrire :","type":"text"},{"type":"hardBreak"},{"text":"dim ce","type":"text","marks":[{"type":"strong"}]},{"text":";déclaration de la variable","type":"text"},{"type":"hardBreak"},{"text":"ce = fe.Cells (4 , 1)","type":"text","marks":[{"type":"strong"}]},{"text":";établissement du lien sur la cellule","type":"text"},{"type":"hardBreak"},{"text":"ce.Value","type":"text","marks":[{"type":"strong"}]},{"text":";accès pour récupérer le résultat du calcul","type":"text"},{"type":"hardBreak"},{"text":"ce.Formula","type":"text","marks":[{"type":"strong"}]},{"text":";accès pour récupérer la formule de calcul ","type":"text"},{"type":"hardBreak"},{"type":"hardBreak"},{"text":"La notation pointée permet aussi de se passer des variables intermédiaires. Exemple :","type":"text"},{"type":"hardBreak"},{"text":"ce.Formula<=>fe.Cells (4 , 1).Formula","type":"text","marks":[{"type":"strong"}]},{"type":"hardBreak"},{"text":"<=>xl.ActiveSheet.Cells (4 , 1).Formula","type":"text","marks":[{"type":"strong"}]},{"text":" ","type":"text"},{"type":"hardBreak"},{"type":"hardBreak"},{"text":"Maintenant , nous allons imprimer la feuille de calculs par la méthode PrintOut de l'objet Feuille de Calculs. Syntaxe de PrintOut :","type":"text"},{"type":"hardBreak"},{"text":"PrintOut","type":"text","marks":[{"type":"strong"}]},{"text":" (from , To , Copies , Preview , ActivePrinter, PrintToFile , Collate) ","type":"text"},{"type":"hardBreak"},{"text":"La documentation nous indique que tous ces paramètres sont facultatifs. On peut donc écrire, pour une impression simple :","type":"text"},{"type":"hardBreak"},{"text":"fe.PrintOut","type":"text","marks":[{"type":"strong"}]},{"text":" ","type":"text"},{"type":"hardBreak"},{"text":"Si nous voulons obtenir 3 exemplaires, on écrira :","type":"text"},{"type":"hardBreak"},{"text":"fe.PrintOut ( , , 3)","type":"text","marks":[{"type":"strong"}]},{"text":" ","type":"text"},{"type":"hardBreak"},{"text":"ou on utilisera l'affectation de paramètres (opérateur ","type":"text"},{"text":":=","type":"text","marks":[{"type":"strong"}]},{"text":").","type":"text"},{"type":"hardBreak"},{"text":"Exemples :","type":"text"},{"type":"hardBreak"},{"text":"fe.PrintOut (Copies := 3)","type":"text","marks":[{"type":"strong"}]},{"text":" ","type":"text"},{"type":"hardBreak"},{"text":"fe.PrintOut (Copies := 3 , ActivePrinter := \"nom de l'imprimante\")","type":"text","marks":[{"type":"strong"}]},{"text":" ","type":"text"},{"type":"hardBreak"},{"type":"hardBreak"},{"text":"Pour finir, nous nous déconnectons des objets d'Excel et d'Excel lui-même, en allant du plus \"petit\" au plus \"grand\" objet. Les commandes à exécuter sont les suivantes :","type":"text"},{"type":"hardBreak"},{"text":"ce = null","type":"text","marks":[{"type":"strong"}]},{"text":" ;on se déconnecte de la cellule (4 , 1)","type":"text"},{"type":"hardBreak"},{"text":"fe = null","type":"text","marks":[{"type":"strong"}]},{"text":" ;on se déconnecte de la feuille de calculs","type":"text"},{"type":"hardBreak"},{"text":"xl = null","type":"text","marks":[{"type":"strong"}]},{"text":" ;on se déconnecte d'Excel ","type":"text"},{"type":"hardBreak"},{"type":"hardBreak"},{"text":"3. Autre exemples","type":"text","marks":[{"type":"strong"}]},{"text":" ","type":"text"},{"type":"hardBreak"},{"text":"Mise à jour d'un fichier Excel ","type":"text"}]},{"type":"codeBlock","content":[{"text":"dim a\ndim b\ndim c\na = CreateObject (\"Excel.Application\")\nb = a.WorkBooks.Open (filename := \"c:\\divalto\\sys\\test.xls\") ;lecture\nc = b.WorkSheets (1)\t\t\t;on se place sur la 1ère feuille\nc.Cells (1 , 1) \t\t\t\t;lecture d'une cellule\nc.Cells (1 , 1) = \"Bonjour\"\t\t;mise à jour de cellules\nc.Cells (1 , 2) = 10\nrem c.Visible = true ;si on veut rendre apparent Excel\nrem a.Visible = true\t\t\t;(rem = commentaire)\nc = null ;on n'a plus besoin de c\nb.Close (SaveChanges := true)\t\t;avec sauvegarde des modifs\nb = null ;on n'a plus besoin de b\na.Quit ;on sort de Excel\na = null\t\t\t\t\t;on n'a plus besoin de a\n","type":"text"}]},{"type":"paragraph","content":[{"type":"hardBreak"},{"type":"hardBreak"},{"text":"Exemple avec Word ","type":"text"},{"type":"hardBreak"},{"text":"Chargement d'un fichier, remplacement de textes et impression du document (Cf. documentation de Word dans l'apide vba pour word). Les commandes Ole Automation sont : ","type":"text"}]},{"type":"codeBlock","content":[{"text":"dim ww\ndim rr\t\ndim ss\ndim resul\ndim cherche\ndim remplace\n\nww = CreateObject (\"Word.application\")\nww.Visible = true\t\t\t\t\t\t;word visible\n\nrr = ww.Documents.Open (FileName:= \"fichier\" )\t;open fichier\nss = rr.content\t\t\t\t\t\t;sélection du texte\n\nCherche = \"valeur à chercher\"\t\t\t;cherche & remplace\nRemplace = \"valeur de remplacement\"\nresul = ss.Find.Execute (FindText := cherche ,\n\t\t\t\t ReplaceWith := Remplace , \n\t\t\t\t Replace := 2)\t\t;<=> tout remplacer\n\nresul = rr.PrintOut (Background := false)\t\t;print en mode normal\n\nss = null\t\t\t\t\t\t\t;libération de ss\nresul = rr.Close (SaveChanges := 0)\t\t\t;close fichier sans\n\t\t\t\t\t\t\t\t;sauvegarde pour\n\t\t\t\t\t\t\t\t;conserver l'original\nrr = null\n\nww.Quit (SaveChanges := 0)\t\t\t\t;on arrête Word\nww = null\t\t\t\t\t\t\t;déconnection de Word\n","type":"text"}]},{"type":"paragraph","content":[{"type":"hardBreak"},{"type":"hardBreak"},{"type":"hardBreak"},{"text":"Remarque : Vous trouverez d'autres exemples dans la documentation de Visual Basic. Toutefois, il y a ici quelques différences :","type":"text"}]},{"type":"bulletList","content":[{"type":"listItem","content":[{"type":"paragraph","content":[{"text":"DhAutomation.dll n'est pas un langage complet de programmation. Il ne sert qu'à envoyer des commandes Ole Automation. C'est votre programme DIVA qui doit exécuter l'algorithme de programmation, générer les commandes Ole Automation et les faire exécuter via DhAutomation.","type":"text"}]}]}]},{"type":"paragraph","content":[{"type":"hardBreak"}]},{"type":"bulletList","content":[{"type":"listItem","content":[{"type":"paragraph","content":[{"text":"DhAutomation ne gère pas de tableaux ni de structures. Il ne travaille qu'avec des variables simples telles les variables alpha-numériques ou numériques.","type":"text"}]}]}]},{"type":"paragraph","content":[{"type":"hardBreak"}]},{"type":"bulletList","content":[{"type":"listItem","content":[{"type":"paragraph","content":[{"text":"DhAutomation ne contient pas la commade With de Visual Basic. Lorsqu'on écrit, dans Visual Basic :","type":"text"}]}]}]},{"type":"paragraph","content":[{"text":"With fe","type":"text","marks":[{"type":"strong"}]},{"text":" ","type":"text"},{"type":"hardBreak"},{"text":".Cells (1 , 1) = 10","type":"text","marks":[{"type":"strong"}]},{"type":"hardBreak"},{"text":".Cells (2 , 1) = 20","type":"text","marks":[{"type":"strong"}]},{"type":"hardBreak"},{"text":"EndWith","type":"text","marks":[{"type":"strong"}]},{"text":" ","type":"text"},{"type":"hardBreak"},{"text":"Il faut écrire dans DhAutomation :","type":"text"},{"type":"hardBreak"},{"text":"fe.Cells (1 , 1) = 10","type":"text","marks":[{"type":"strong"}]},{"type":"hardBreak"},{"text":"fe.Cells (2 , 1) = 20","type":"text","marks":[{"type":"strong"}]}]},{"type":"bulletList","content":[{"type":"listItem","content":[{"type":"paragraph","content":[{"text":"L'appel de la fonction Each est différente. En Visual Basic, on peut écrire :","type":"text"}]}]}]},{"type":"paragraph","content":[{"text":"dim c","type":"text","marks":[{"type":"strong"}]},{"type":"hardBreak"},{"text":"For Each c in xl.WorkSheets","type":"text","marks":[{"type":"strong"}]},{"text":" ;liste des feuilles de calculs","type":"text"},{"type":"hardBreak"},{"text":"c.Name","type":"text","marks":[{"type":"strong"}]},{"text":" ;lecture du nom de la feuille","type":"text"},{"type":"hardBreak"},{"text":"Next c","type":"text","marks":[{"type":"strong"}]},{"text":" ","type":"text"},{"type":"hardBreak"},{"text":"Dans DhAutomation, il faut écrire :","type":"text"},{"type":"hardBreak"},{"text":"dim c","type":"text","marks":[{"type":"strong"}]},{"type":"hardBreak"},{"text":"dim idx","type":"text","marks":[{"type":"strong"}]},{"type":"hardBreak"},{"text":"dim col","type":"text","marks":[{"type":"strong"}]},{"type":"hardBreak"},{"text":"col = xl.WorkSheets","type":"text","marks":[{"type":"strong"}]},{"text":" ;objet liste des feuilles de calculs","type":"text"},{"type":"hardBreak"},{"text":"Each col idx","type":"text","marks":[{"type":"strong"}]},{"text":" ;idx contient maintenant un énumérateur de liste","type":"text"},{"type":"hardBreak"},{"text":"Next idx c","type":"text","marks":[{"type":"strong"}]},{"text":" ;on récupère le 1er de la liste","type":"text"},{"type":"hardBreak"},{"text":"c.Name","type":"text","marks":[{"type":"strong"}]},{"text":" ;lecture du nom de la 1ère feuille","type":"text"},{"type":"hardBreak"},{"text":"Next idx c","type":"text","marks":[{"type":"strong"}]},{"text":" ;on récupère le 2ème de la liste","type":"text"},{"type":"hardBreak"},{"text":"c.Name","type":"text","marks":[{"type":"strong"}]},{"text":" ;lecture du nom de la 2ème feuille","type":"text"},{"type":"hardBreak"},{"text":"etc.;tant que ","type":"text"},{"text":"Next","type":"text","marks":[{"type":"strong"}]},{"text":" ne sort pas en erreur","type":"text"}]},{"type":"bulletList","content":[{"type":"listItem","content":[{"type":"paragraph","content":[{"text":"Il existe plusieurs Visual Basic : Le Visual Basic général, langage de programmation pour écrire des applications générales et Visual Basic pour Application, module Visual Basic intégré dans une application comme Word ou Excel. Dans Visual Basic pour Excel, on peut écrire :","type":"text"}]}]}]},{"type":"paragraph","content":[{"text":"dim fe","type":"text","marks":[{"type":"strong"}]},{"type":"hardBreak"},{"text":"fe = ActiveSheet","type":"text","marks":[{"type":"strong"}]},{"text":" ","type":"text"},{"type":"hardBreak"},{"text":"On s'aperçoit qu'il manque l'ouverture de l'objet Excel ainsi que la variable","type":"text"},{"type":"hardBreak"},{"text":"contenant le lien vers Excel devant le mot clé ActiveSheet. En fait, Visual","type":"text"},{"type":"hardBreak"},{"text":"Basic pour Excel considère que s'il n'y a rien devant une commande, c'est","type":"text"},{"type":"hardBreak"},{"text":"qu'on travaille avec l'objet principal (ici Excel) et qu'il est déjà ouvert (car","type":"text"},{"type":"hardBreak"},{"text":"c'est Excel qui exécute le programme Visual Basic). ","type":"text"},{"type":"hardBreak"},{"text":"Dans DhAutomation, il faut d'abord se connecter à un objet et écrire :","type":"text"},{"type":"hardBreak"},{"text":"dim xl","type":"text","marks":[{"type":"strong"}]},{"type":"hardBreak"},{"text":"dim fe","type":"text","marks":[{"type":"strong"}]},{"type":"hardBreak"},{"text":"xl = CreateObject ( \"Excel.Application\" )","type":"text","marks":[{"type":"strong"}]},{"type":"hardBreak"},{"text":"fe = xl.ActiveSheet","type":"text","marks":[{"type":"strong"}]},{"text":" ","type":"text"},{"type":"hardBreak"},{"type":"hardBreak"},{"text":"II. Liste des instructions de DhAutomation","type":"text","marks":[{"type":"strong"}]},{"text":" ","type":"text"},{"type":"hardBreak"},{"text":"Remarques préliminaires :","type":"text"}]},{"type":"bulletList","content":[{"type":"listItem","content":[{"type":"paragraph","content":[{"text":"La liste qui suit peut être obtenue par la commande ","type":"text"},{"text":"Help","type":"text","marks":[{"type":"strong"}]},{"text":" du programme automa.dhop, elle est toujours plus complète que la liste ci dessous","type":"text"}]}]}]},{"type":"paragraph","content":[{"type":"hardBreak"}]},{"type":"bulletList","content":[{"type":"listItem","content":[{"type":"paragraph","content":[{"text":" indique que le mot clé n'est valable qu'en début de ligne.","type":"text"}]}]}]},{"type":"paragraph","content":[{"type":"hardBreak"}]},{"type":"bulletList","content":[{"type":"listItem","content":[{"type":"paragraph","content":[{"text":"Le nom des fonctions peut être écrit indifféremment en minuscules ou en majuscules.","type":"text"}]}]}]},{"type":"paragraph","content":[{"type":"hardBreak"},{"text":"ATTENTION : lorsqu'on passe des paramètres numériques dans une fonction, il faut laisser un blanc autour de chaque virgule. Exemples :","type":"text"},{"type":"hardBreak"},{"text":"fonction x (1,2);=> il s'agit d'une fonction x avec 1 seul","type":"text"},{"type":"hardBreak"},{"text":";paramètre de valeur décimale 1,1","type":"text"},{"type":"hardBreak"},{"text":"fonction x (1 , 2); => fonction x avec deux paramètres : 1 et 2 ","type":"text"},{"type":"hardBreak"},{"type":"hardBreak"},{"text":"Définitions de variables ","type":"text"},{"type":"hardBreak"},{"text":"Dim","type":"text","marks":[{"type":"strong"}]},{"type":"hardBreak"},{"text":"( * ) Allocation d'une variable (30 variables maximum).","type":"text"},{"type":"hardBreak"},{"text":"Exemple :","type":"text"},{"type":"hardBreak"},{"text":"Dim","type":"text","marks":[{"type":"strong"}]},{"text":" var","type":"text"},{"type":"hardBreak"},{"text":"var = \"bonjour\"","type":"text"},{"type":"hardBreak"},{"text":"var = 128 ","type":"text"},{"type":"hardBreak"},{"text":"var = 128.56","type":"text"},{"type":"hardBreak"},{"text":"var = 128,56","type":"text"},{"type":"hardBreak"},{"text":"var = -128,56 ","type":"text"},{"type":"hardBreak"},{"text":"var = CreateObject ( \"Excel.Application\" ) ","type":"text"},{"type":"hardBreak"},{"text":"Ul1","type":"text","marks":[{"type":"strong"}]},{"type":"hardBreak"},{"text":"La variable prédéfinie ul1 contient le chemin de l'unité logique Divalto","type":"text"},{"type":"hardBreak"},{"text":"numéro 1 (par exemple, c:\\divalto).","type":"text"},{"type":"hardBreak"},{"text":"Exemple :","type":"text"},{"type":"hardBreak"},{"text":"Dim a","type":"text"},{"type":"hardBreak"},{"text":"a = fcConcat (","type":"text"},{"text":"ul1","type":"text","marks":[{"type":"strong"}]},{"text":" , \"\\sys\\constantes.txt\")","type":"text"},{"type":"hardBreak"},{"text":"LoadConst a ","type":"text"},{"type":"hardBreak"},{"text":"Variant","type":"text","marks":[{"type":"strong"}]},{"text":" ","type":"text"},{"type":"hardBreak"},{"text":"( * ) utilisez ","type":"text"},{"text":"dim","type":"text","marks":[{"type":"strong"}]},{"text":" à la place. ","type":"text"},{"type":"hardBreak"},{"text":"Object","type":"text","marks":[{"type":"strong"}]},{"type":"hardBreak"},{"text":"(","type":"text"},{"text":")utilisez *dim","type":"text","marks":[{"type":"strong"}]},{"text":" à la place. ","type":"text"},{"type":"hardBreak"},{"text":"Array","type":"text","marks":[{"type":"strong"}]},{"type":"hardBreak"},{"text":"( * ) Declaration d'un tableau , voir la commande HELP dans automa.dhop ","type":"text"},{"type":"hardBreak"},{"text":"Affectations ","type":"text"},{"type":"hardBreak"},{"text":"Set","type":"text","marks":[{"type":"strong"}]},{"type":"hardBreak"},{"text":"( * ) Affectation (facultatif).","type":"text"},{"type":"hardBreak"},{"text":"Exemples : ","type":"text"},{"type":"hardBreak"},{"text":"Set","type":"text","marks":[{"type":"strong"}]},{"text":" a = 10","type":"text"},{"type":"hardBreak"},{"text":"a = 10","type":"text"},{"type":"hardBreak"},{"text":"a = \"bonjour\"","type":"text"},{"type":"hardBreak"},{"text":"Set","type":"text","marks":[{"type":"strong"}]},{"text":" a = 'bonjour' ","type":"text"},{"type":"hardBreak"},{"text":":=","type":"text","marks":[{"type":"strong"}]},{"type":"hardBreak"},{"text":"Affectation dans une fonction ou une méthode.","type":"text"},{"type":"hardBreak"},{"text":"Exemple : obj.Quit (SaveChanges ","type":"text"},{"text":":=","type":"text","marks":[{"type":"strong"}]},{"text":" 0) ","type":"text"},{"type":"hardBreak"},{"type":"hardBreak"},{"text":"Gestion des constantes ","type":"text"},{"type":"hardBreak"},{"text":"Const","type":"text","marks":[{"type":"strong"}]},{"type":"hardBreak"},{"text":"( * ) Allocation d'une constante.","type":"text"},{"type":"hardBreak"},{"text":"Exemples : ","type":"text"},{"type":"hardBreak"},{"text":"Const","type":"text","marks":[{"type":"strong"}]},{"text":" OUI = 1 ","type":"text"},{"type":"hardBreak"},{"text":"Const","type":"text","marks":[{"type":"strong"}]},{"text":" NON = 0 ","type":"text"},{"type":"hardBreak"},{"text":"Const","type":"text","marks":[{"type":"strong"}]},{"text":" FICHIER = \"c:\\divalto\\sys\\fichier.txt\" ","type":"text"},{"type":"hardBreak"},{"text":"ListConst","type":"text","marks":[{"type":"strong"}]},{"type":"hardBreak"},{"text":"( * ) Liste des constantes. ","type":"text"},{"type":"hardBreak"},{"text":"FreeAllConst","type":"text","marks":[{"type":"strong"}]},{"text":" ","type":"text"},{"type":"hardBreak"},{"text":"( * ) Supprime toutes les constantes. ","type":"text"},{"type":"hardBreak"},{"text":"LoadConst obj","type":"text","marks":[{"type":"strong"}]},{"type":"hardBreak"},{"text":"( * ) Charge les constantes d'un objet. Souvent, on trouve des constantes dans","type":"text"},{"type":"hardBreak"},{"text":"les fonctions des objets. Exemple dans Excel : xlRows, xlWorkSheet, etc.","type":"text"},{"type":"hardBreak"},{"text":"On peut charger la valeur de ces constantes en faisant :","type":"text"},{"type":"hardBreak"},{"text":"dim obj","type":"text"},{"type":"hardBreak"},{"text":"obj = CreateObject (\"Excel.Application\")","type":"text"},{"type":"hardBreak"},{"text":"LoadConst","type":"text","marks":[{"type":"strong"}]},{"text":" obj","type":"text"},{"type":"hardBreak"},{"text":"ListConst","type":"text"},{"type":"hardBreak"},{"text":"obj = null ","type":"text"},{"type":"hardBreak"},{"text":"LoadConst fic","type":"text","marks":[{"type":"strong"}]},{"type":"hardBreak"},{"text":"( * ) Charge les constantes à partir d'un fichier.","type":"text"},{"type":"hardBreak"},{"text":"Exemples :","type":"text"},{"type":"hardBreak"},{"text":"LoadConst","type":"text","marks":[{"type":"strong"}]},{"text":" \"c:\\divalto\\sys\\constantes.txt\" ","type":"text"},{"type":"hardBreak"},{"text":"Dim a ","type":"text"},{"type":"hardBreak"},{"text":"a = \"c:\\divalto\\sys\\constantes.txt\"","type":"text"},{"type":"hardBreak"},{"text":"LoadConst","type":"text","marks":[{"type":"strong"}]},{"text":" a ","type":"text"},{"type":"hardBreak"},{"text":"SaveConst fic","type":"text","marks":[{"type":"strong"}]},{"type":"hardBreak"},{"text":"( * ) Sauvegarde les constantes dans un fichier.","type":"text"},{"type":"hardBreak"},{"text":"Exemple :","type":"text"},{"type":"hardBreak"},{"text":"dim obj","type":"text"},{"type":"hardBreak"},{"text":"obj = CreateObject (\"Excel.Application\")","type":"text"},{"type":"hardBreak"},{"text":"LoadConst obj","type":"text"},{"type":"hardBreak"},{"text":"SaveConst","type":"text","marks":[{"type":"strong"}]},{"text":" \"c:\\ divalto \\sys\\constantes.txt\" ","type":"text"},{"type":"hardBreak"},{"type":"hardBreak"},{"text":"Création et chargement d'un objet ","type":"text"},{"type":"hardBreak"},{"text":"CreateObject (nom de l'objet)","type":"text","marks":[{"type":"strong"}]},{"type":"hardBreak"},{"text":"Création d'un nouvel objet.","type":"text"},{"type":"hardBreak"},{"text":"Exemple : ","type":"text"},{"type":"hardBreak"},{"text":"dim obj","type":"text"},{"type":"hardBreak"},{"text":"obj = ","type":"text"},{"text":"CreateObject","type":"text","marks":[{"type":"strong"}]},{"text":" (\"Excel.Application\") ","type":"text"},{"type":"hardBreak"},{"text":"Le nom des objets est en général du type \"nom de l'objet.Application\" mais il","type":"text"},{"type":"hardBreak"},{"text":"peut être en plus référencé dans la base de registres de Windows sous le nom","type":"text"},{"type":"hardBreak"},{"text":"ou les noms : \"nom de l'objet.Application.version\". ","type":"text"},{"type":"hardBreak"},{"text":"Exemple :","type":"text"},{"type":"hardBreak"},{"text":"obj = ","type":"text"},{"text":"CreateObject","type":"text","marks":[{"type":"strong"}]},{"text":" (\"Excel.Application.8\");=> Excel 97 ","type":"text"},{"type":"hardBreak"},{"text":"A utiliser lorsqu'on doit charger impérativement une version précise d'un objet","type":"text"},{"type":"hardBreak"},{"text":"(par exemple, si on utilise des fonctions qui n'existent que dans cette version).","type":"text"},{"type":"hardBreak"},{"text":"Si l'objet installé n'est pas de cette version, OU S'IL NE SAIT PAS EMULER CETTE VERSION, ","type":"text"},{"type":"hardBreak"},{"text":"on aura une erreur au chargement indiquant que l'on ne","type":"text"},{"type":"hardBreak"},{"text":"peut pas se connecter à cet objet. ","type":"text"},{"type":"hardBreak"},{"text":"GetObject (fichier , nom de l'objet)","type":"text","marks":[{"type":"strong"}]},{"type":"hardBreak"},{"text":"Chargement d'un objet déjà existant en mémoire ou sur disque.","type":"text"},{"type":"hardBreak"},{"text":"Le premier paramètre indique le nom du fichier à ouvrir.","type":"text"},{"type":"hardBreak"},{"text":"Le deuxième paramètre indique le nom de l'objet à ouvrir. ","type":"text"},{"type":"hardBreak"},{"text":"Exemples : ","type":"text"},{"type":"hardBreak"},{"text":"Syntaxe 1 ","type":"text"},{"type":"hardBreak"},{"text":"dim","type":"text","marks":[{"type":"strong"}]},{"text":" obj","type":"text"},{"type":"hardBreak"},{"text":"obj = ","type":"text"},{"text":"GetObject","type":"text","marks":[{"type":"strong"}]},{"text":" ( \"c:\\divalto\\sys\\fichier.xls\") ","type":"text"},{"type":"hardBreak"},{"text":"On a indiqué ici uniquement le premier paramètre. Windows charge","type":"text"},{"type":"hardBreak"},{"text":"l'objet sachant gérer ce type de fichier (il se base sur l'extension du","type":"text"},{"type":"hardBreak"},{"text":"nom du fichier passé en paramètre ; par exemple, .xls pour Excel).","type":"text"},{"type":"hardBreak"},{"text":"Windows cherche quel programme lancer dans la base de registres. ","type":"text"},{"type":"hardBreak"},{"text":"Syntaxe 2 ","type":"text"},{"type":"hardBreak"},{"text":"dim obj","type":"text"},{"type":"hardBreak"},{"text":"obj = ","type":"text"},{"text":"GetObject","type":"text","marks":[{"type":"strong"}]},{"text":" ( , \"Excel.Application\") ","type":"text"},{"type":"hardBreak"},{"text":"On a indiqué ici uniquement le deuxième paramètre. Windows cherche ","type":"text"},{"type":"hardBreak"},{"text":"dans la base de registres quel programme il doit lancer (ici Excel).","type":"text"},{"type":"hardBreak"},{"text":"Windows vérifie si le programme Excel est déjà chargé en mémoire ; ","type":"text"},{"type":"hardBreak"},{"text":"si ce n'est pas le cas, il renvoie une erreur. ","type":"text"},{"type":"hardBreak"},{"text":"Syntaxe 3","type":"text"},{"type":"hardBreak"},{"text":"dim obj","type":"text"},{"type":"hardBreak"},{"text":"obj = ","type":"text"},{"text":"GetObject","type":"text","marks":[{"type":"strong"}]},{"text":" (\"c:\\divalto\\sys\\fichier.xls\" , \"Excel.Application\") ","type":"text"},{"type":"hardBreak"},{"text":"On a ici indiqué les deux paramètres, le nom du fichier et l'objet qui le","type":"text"},{"type":"hardBreak"},{"text":"gère. Cette syntaxe permet de charger un fichier en forçant l'objet à","type":"text"},{"type":"hardBreak"},{"text":"utiliser. Elle évite une éventuelle ambiguïté lorsque deux logiciels","type":"text"},{"type":"hardBreak"},{"text":"utilisent la même extension (par exemple, .doc qui est utilisée à la fois","type":"text"},{"type":"hardBreak"},{"text":"par Wordpad et par Word). ","type":"text"},{"type":"hardBreak"},{"type":"hardBreak"},{"text":"Déconnexion d'un objet ","type":"text"},{"type":"hardBreak"},{"text":"Null","type":"text","marks":[{"type":"strong"}]},{"type":"hardBreak"},{"text":"Nothing","type":"text","marks":[{"type":"strong"}]},{"type":"hardBreak"},{"text":"Valeur nulle, effacement d'une variable.","type":"text"},{"type":"hardBreak"},{"text":"Exemple :","type":"text"},{"type":"hardBreak"},{"text":"obj = ","type":"text"},{"text":"Null","type":"text","marks":[{"type":"strong"}]},{"text":" ","type":"text"},{"type":"hardBreak"},{"text":"obj = ","type":"text"},{"text":"Nothing","type":"text","marks":[{"type":"strong"}]},{"text":" ","type":"text"},{"type":"hardBreak"},{"text":"Attention : Il faut effacer un pointeur sur un objet lorsque vous ne l'utilisez","type":"text"},{"type":"hardBreak"},{"text":"plus. Ceci permet à un objet de se fermer si plus personne ne l'utilise. Sinon,","type":"text"},{"type":"hardBreak"},{"text":"on risque de laisser des objets \"fantômes\" en mémoire. ","type":"text"},{"type":"hardBreak"},{"text":"Exemple : ","type":"text"},{"type":"hardBreak"},{"text":"dim xl","type":"text"},{"type":"hardBreak"},{"text":"dim fe","type":"text"},{"type":"hardBreak"},{"text":"xl = GetObject ( , \"Excel.Application\") ","type":"text"},{"type":"hardBreak"},{"text":"fe = xl.ActiveSheet ","type":"text"},{"type":"hardBreak"},{"text":"fe.cells (1 , 1);lecture de la cellule ligne 1 colonne 1","type":"text"},{"type":"hardBreak"},{"text":"fe.cells (1 , 1) = \"bonjour\";mise à jour de cette cellule","type":"text"},{"type":"hardBreak"},{"text":"fe.cells (2 , 1) = 10","type":"text"},{"type":"hardBreak"},{"text":"fe.cells (2 , 1) = 20","type":"text"},{"type":"hardBreak"},{"text":"fe.cells (3 , 1) = \"=A2+A3\"","type":"text"},{"type":"hardBreak"},{"text":"fe = ","type":"text"},{"text":"null","type":"text","marks":[{"type":"strong"}]},{"text":" ;commencer par l'objet de plus bas niveau (feuille Excel)","type":"text"},{"type":"hardBreak"},{"text":"xl = ","type":"text"},{"text":"null","type":"text","marks":[{"type":"strong"}]},{"text":" ;terminer par l'objet de plus haut niveau (objet Excel) ","type":"text"},{"type":"hardBreak"},{"type":"hardBreak"},{"text":"Informations sur un objet ","type":"text"},{"type":"hardBreak"},{"text":"TypeLib obj fic","type":"text","marks":[{"type":"strong"}]},{"text":" ","type":"text"},{"type":"hardBreak"},{"text":"( * ) Copie la liste des méthodes et des propriétés du programme obj","type":"text"},{"type":"hardBreak"},{"text":"dans le fichier fic. ","type":"text"},{"type":"hardBreak"},{"text":"Exemple :","type":"text"},{"type":"hardBreak"},{"text":"dim obj","type":"text"},{"type":"hardBreak"},{"text":"obj = CreateObject (\"Excel.Application\")","type":"text"},{"type":"hardBreak"},{"text":"TypeLib","type":"text","marks":[{"type":"strong"}]},{"text":" obj \"c:\\divalto\\sys\\excel.txt\" ","type":"text"},{"type":"hardBreak"},{"text":"TypeInfo obj","type":"text","marks":[{"type":"strong"}]},{"type":"hardBreak"},{"text":"( * ) Affiche la liste des méthodes et des propriétés de l'objet obj.","type":"text"},{"type":"hardBreak"},{"text":"Exemple :","type":"text"},{"type":"hardBreak"},{"text":"dim obj","type":"text"},{"type":"hardBreak"},{"text":"obj = CreateObject (\"Excel.Application\")","type":"text"},{"type":"hardBreak"},{"text":"TypeInfo","type":"text","marks":[{"type":"strong"}]},{"text":" obj ","type":"text"},{"type":"hardBreak"},{"text":"TypeInfo obj fic","type":"text","marks":[{"type":"strong"}]},{"text":" ","type":"text"},{"type":"hardBreak"},{"text":"( * ) Copie la liste des méthodes et des propriétés de l'objet obj","type":"text"},{"type":"hardBreak"},{"text":"dans le fichier fic.","type":"text"},{"type":"hardBreak"},{"text":"Exemple :","type":"text"},{"type":"hardBreak"},{"text":"dim obj","type":"text"},{"type":"hardBreak"},{"text":"obj = CreateObject (\"Excel.Application\")","type":"text"},{"type":"hardBreak"},{"text":"TypeInfo","type":"text","marks":[{"type":"strong"}]},{"text":" obj \"c:\\divalto\\sys\\excel.txt\" ","type":"text"},{"type":"hardBreak"},{"type":"hardBreak"},{"text":"Gestion d'une collection d'objets ","type":"text"},{"type":"hardBreak"},{"text":"Une collection est un objet qui contient une liste d'autres objets.","type":"text"},{"type":"hardBreak"},{"text":"Après avoir créé un pointeur sur l'objet, il faut lui demander le pointeur sur sa liste d'objets. ","type":"text"},{"type":"hardBreak"},{"text":"Each coll index","type":"text","marks":[{"type":"strong"}]},{"type":"hardBreak"},{"text":"Next index obj","type":"text","marks":[{"type":"strong"}]},{"type":"hardBreak"},{"text":"( * ) Each coll index : appel de la liste d'une collection.","type":"text"},{"type":"hardBreak"},{"text":"( * ) Next index obj : appel de l'élément suivant.","type":"text"},{"type":"hardBreak"},{"text":"Exemple : ","type":"text"},{"type":"hardBreak"},{"text":"dim obj","type":"text"},{"type":"hardBreak"},{"text":"dim idx","type":"text"},{"type":"hardBreak"},{"text":"dim fe","type":"text"},{"type":"hardBreak"},{"text":"dim ww","type":"text"},{"type":"hardBreak"},{"text":"obj = GetObject ( , \"Excel.Application\")","type":"text"},{"type":"hardBreak"},{"text":"fe = obj.Worksheets;pointeur sur la liste des feuilles de calculs ","type":"text"},{"type":"hardBreak"},{"text":"Each","type":"text","marks":[{"type":"strong"}]},{"text":" fe idx;idx contient un énumérateur de liste","type":"text"},{"type":"hardBreak"},{"text":";on peut maintenant récupérer le premier","type":"text"},{"type":"hardBreak"},{"text":";élément de la liste","type":"text"},{"type":"hardBreak"},{"text":"Next","type":"text","marks":[{"type":"strong"}]},{"text":" idx ww;ww contient le premier objet de la liste","type":"text"},{"type":"hardBreak"},{"text":"ww.Name;on peut l'utiliser pour lire le nom de la","type":"text"},{"type":"hardBreak"},{"text":";feuille de calcul ","type":"text"},{"type":"hardBreak"},{"text":";lecture de l'élément suivant","type":"text"},{"type":"hardBreak"},{"text":"Next","type":"text","marks":[{"type":"strong"}]},{"text":" idx ww;ww contient maintenant l'élément suivant","type":"text"},{"type":"hardBreak"},{"text":"ww.Name ","type":"text"},{"type":"hardBreak"},{"text":"etc.;tant que ","type":"text"},{"text":"Next","type":"text","marks":[{"type":"strong"}]},{"text":" ne sort pas en erreur ","type":"text"},{"type":"hardBreak"},{"type":"hardBreak"},{"text":"Fonctions sur les chaînes de caractères ","type":"text"},{"type":"hardBreak"},{"text":"Ces fonctions permettent de travailler sur de très longues chaînes. ","type":"text"},{"type":"hardBreak"},{"text":"fcConcat (chaîne , chaîne , chaîne , ... )","type":"text","marks":[{"type":"strong"}]},{"type":"hardBreak"},{"text":"Concatène n chaînes de caractères. ","type":"text"},{"type":"hardBreak"},{"text":"fcMid (chaîne , position , longueur)","type":"text","marks":[{"type":"strong"}]},{"type":"hardBreak"},{"text":"Renvoie une sous-chaîne en fonction des positions et longueurs indiquées. ","type":"text"},{"type":"hardBreak"},{"text":"fcLeft (chaîne , longueur)","type":"text","marks":[{"type":"strong"}]},{"type":"hardBreak"},{"text":"Renvoie les caractères de gauche d'une chaîne. ","type":"text"},{"type":"hardBreak"},{"text":"fcRight (chaîne , longueur)","type":"text","marks":[{"type":"strong"}]},{"type":"hardBreak"},{"text":"Renvoie les caractères de droite d'une chaîne. ","type":"text"},{"type":"hardBreak"},{"text":"fcLength (chaîne)","type":"text","marks":[{"type":"strong"}]},{"type":"hardBreak"},{"text":"Renvoie la longueur d'une chaîne. ","type":"text"},{"type":"hardBreak"},{"text":"fcString (chaîne à chercher , chaîne , position)","type":"text","marks":[{"type":"strong"}]},{"type":"hardBreak"},{"text":"Renvoie la position d'une chaîne dans une autre (en partant de ). ","type":"text"},{"type":"hardBreak"},{"type":"hardBreak"},{"text":"Fonctions sur les valeurs numériques ","type":"text"},{"type":"hardBreak"},{"text":"fcAdd (v1 , v2)","type":"text","marks":[{"type":"strong"}]},{"type":"hardBreak"},{"text":"v1 + v2. ","type":"text"},{"type":"hardBreak"},{"text":"fcSub (v1 , v2)","type":"text","marks":[{"type":"strong"}]},{"type":"hardBreak"},{"text":"v1 - v2. ","type":"text"},{"type":"hardBreak"},{"text":"fcMul (v1 , v2)","type":"text","marks":[{"type":"strong"}]},{"type":"hardBreak"},{"text":"v1 * v2. ","type":"text"},{"type":"hardBreak"},{"text":"fcDiv (v1 , v2)","type":"text","marks":[{"type":"strong"}]},{"type":"hardBreak"},{"text":"v1 / v2. ","type":"text"},{"type":"hardBreak"},{"text":"fcEnt (v1)","type":"text","marks":[{"type":"strong"}]},{"type":"hardBreak"},{"text":"Partie entière de v1. ","type":"text"},{"type":"hardBreak"},{"text":"fcMin (v1 , v2)","type":"text","marks":[{"type":"strong"}]},{"type":"hardBreak"},{"text":"Minimum de v1 et v2. ","type":"text"},{"type":"hardBreak"},{"text":"fcMax (v1 , v2)","type":"text","marks":[{"type":"strong"}]},{"type":"hardBreak"},{"text":"Maximum de v1 et v2. ","type":"text"},{"type":"hardBreak"},{"text":"fcTest (v1 , v2)","type":"text","marks":[{"type":"strong"}]},{"type":"hardBreak"},{"text":"-1 si v1 < v2 ;","type":"text"},{"type":"hardBreak"},{"text":"0 si v1 = v2 ;","type":"text"},{"type":"hardBreak"},{"text":"+1 si v1 > v2. ","type":"text"},{"type":"hardBreak"},{"type":"hardBreak"},{"text":"Fonctions diverses ","type":"text"},{"type":"hardBreak"},{"text":"Help","type":"text","marks":[{"type":"strong"}]},{"type":"hardBreak"},{"text":"( * ) Appel de l'aide. ","type":"text"},{"type":"hardBreak"},{"text":"Rem","type":"text","marks":[{"type":"strong"}]},{"type":"hardBreak"},{"text":"( * ) Ligne de commentaires.","type":"text"},{"type":"hardBreak"},{"text":"Exemple :","type":"text"},{"type":"hardBreak"},{"text":"Rem","type":"text","marks":[{"type":"strong"}]},{"text":" ceci est un commentaire ","type":"text"},{"type":"hardBreak"},{"text":";","type":"text","marks":[{"type":"strong"}]},{"type":"hardBreak"},{"text":"Commentaires.","type":"text"},{"type":"hardBreak"},{"text":"Exemple :","type":"text"},{"type":"hardBreak"},{"text":"fe = null ","type":"text"},{"text":";","type":"text","marks":[{"type":"strong"}]},{"text":"ceci est un commentaire ","type":"text"},{"type":"hardBreak"},{"text":"Version xxx","type":"text","marks":[{"type":"strong"}]},{"type":"hardBreak"},{"text":"( * ) Demande que DhAutomation utilise la version du langage xxx.","type":"text"},{"type":"hardBreak"},{"text":"Exemple :","type":"text"},{"type":"hardBreak"},{"text":"Version","type":"text","marks":[{"type":"strong"}]},{"text":" 101 ","type":"text"},{"type":"hardBreak"},{"text":"Dialog","type":"text","marks":[{"type":"strong"}]},{"type":"hardBreak"},{"text":"( * ) Avec affichage de la boîte de dialogue des erreurs.","type":"text"},{"type":"hardBreak"},{"text":"Exemple :","type":"text"},{"type":"hardBreak"},{"text":"Dialog","type":"text","marks":[{"type":"strong"}]},{"text":" ","type":"text"},{"type":"hardBreak"},{"text":"NoDialog","type":"text","marks":[{"type":"strong"}]},{"type":"hardBreak"},{"text":"( * ) Sans affichage de la boîte de dialogue des erreurs.","type":"text"},{"type":"hardBreak"},{"text":"Exemple :","type":"text"},{"type":"hardBreak"},{"text":"NoDialog","type":"text","marks":[{"type":"strong"}]},{"text":" ","type":"text"},{"type":"hardBreak"},{"text":"Lang Francais","type":"text","marks":[{"type":"strong"}]},{"type":"hardBreak"},{"text":"Lang Anglais","type":"text","marks":[{"type":"strong"}]},{"type":"hardBreak"},{"text":"( * ) Code langue à utiliser pour Ole Automation = français ou anglais.","type":"text"},{"type":"hardBreak"},{"text":"Exemples :","type":"text"},{"type":"hardBreak"},{"text":"Lang Francais","type":"text","marks":[{"type":"strong"}]},{"type":"hardBreak"},{"text":"Lang Anglais","type":"text","marks":[{"type":"strong"}]},{"text":" ","type":"text"},{"type":"hardBreak"},{"text":"Attention : il faut commencer votre script par Lang francais (ou anglais) si vos","type":"text"},{"type":"hardBreak"},{"text":"commandes sont en français (ou en anglais). Sinon, l'objet risque de prendre","type":"text"},{"type":"hardBreak"},{"text":"un autre type de langue lors de son ouverture et de ne pas comprendre les","type":"text"},{"type":"hardBreak"},{"text":"commandes que vous lui envoyez. ","type":"text"},{"type":"hardBreak"},{"text":"Lang val1 , val2","type":"text","marks":[{"type":"strong"}]},{"text":" ","type":"text"},{"type":"hardBreak"},{"text":"( * ) Code langue à utiliser pour Ole Automation = val1,val2 ","type":"text"},{"type":"hardBreak"},{"text":"Exemples : ","type":"text"},{"text":"Lang","type":"text","marks":[{"type":"strong"}]},{"text":" 4 , 9","type":"text"},{"type":"hardBreak"},{"text":"Lang","type":"text","marks":[{"type":"strong"}]},{"text":" 0 , 0","type":"text"},{"type":"hardBreak"},{"text":"Lang","type":"text","marks":[{"type":"strong"}]},{"text":" 0 ","type":"text"},{"type":"hardBreak"},{"text":"Cette commande permet d'indiquer un autre type de langue que Francais ou","type":"text"},{"type":"hardBreak"},{"text":"Anglais. ","type":"text"},{"type":"hardBreak"},{"text":"True","type":"text","marks":[{"type":"strong"}]},{"type":"hardBreak"},{"text":"Renvoie la valeur vrai. ","type":"text"},{"type":"hardBreak"},{"text":"False","type":"text","marks":[{"type":"strong"}]},{"type":"hardBreak"},{"text":"Renvoie la valeur faux. ","type":"text"},{"type":"hardBreak"},{"text":"M","type":"text","marks":[{"type":"strong"},{"type":"em"}]},{"text":" ou ","type":"text","marks":[{"type":"strong"}]},{"text":"P","type":"text","marks":[{"type":"strong"},{"type":"em"}]},{"type":"hardBreak"},{"text":"m","type":"text","marks":[{"type":"strong"},{"type":"em"}]},{"text":" ou ","type":"text","marks":[{"type":"strong"}]},{"text":"p","type":"text","marks":[{"type":"strong"},{"type":"em"}]},{"type":"hardBreak"},{"text":"Force le mode Méthode ou Propriété.","type":"text"},{"type":"hardBreak"},{"text":"Exemples : ","type":"text"},{"type":"hardBreak"},{"text":"A l'exécution de la commande : obj.Add, si la commande sort en erreur ","type":"text"},{"type":"hardBreak"},{"text":"\"Add n'est pas une propriété de l'objet obj\" ","type":"text"},{"type":"hardBreak"},{"text":"essayez la commande : obj.Add ( ","type":"text"},{"text":"m","type":"text","marks":[{"type":"strong"},{"type":"em"}]},{"text":" ) ","type":"text"},{"type":"hardBreak"},{"text":"A l'exécution de la commande : obj.Name, si la commande sort en erreur ","type":"text"},{"type":"hardBreak"},{"text":"\"Name n'est pas une méthode de l'objet obj\" ","type":"text"},{"type":"hardBreak"},{"text":"essayez la commande : obj.Name ( ","type":"text"},{"text":"p","type":"text","marks":[{"type":"strong"},{"type":"em"}]},{"text":" ) ","type":"text"},{"type":"hardBreak"},{"text":"[mot_clé]","type":"text","marks":[{"type":"strong"}]},{"type":"hardBreak"},{"text":"Une paire de crochets encadrant un identificateur indique que celui-ci n'est pas","type":"text"},{"type":"hardBreak"},{"text":"une instruction mais un mot clé de l'objet.","type":"text"},{"type":"hardBreak"},{"text":"Exemple : Imaginons qu'un serveur ait une fonction nommée CreateObject !","type":"text"},{"type":"hardBreak"},{"text":"Si on écrit : obj.CreateObject ( ...), DhAutomation sortira une erreur, considérant ","type":"text"},{"type":"hardBreak"},{"text":"que c'est l'instruction CreateObject que l'on veut appeler.","type":"text"},{"type":"hardBreak"},{"text":"On écrira alors : obj.[CreateObject] ( ...) ","type":"text"},{"type":"hardBreak"},{"type":"hardBreak"},{"text":"III Utilisation de DhAutomation.dll dans un programme DIVA","type":"text","marks":[{"type":"strong"}]},{"text":" ","type":"text"},{"type":"hardBreak"},{"text":"Le fichier Include ","type":"text"},{"text":"zoleaut.dhsp","type":"text","marks":[{"type":"strong"}]},{"text":" contient les fonctions de chargement de la dll DhAutomation et d'appel des fonctions d'un objet Ole Automation. Le programme ","type":"text"},{"text":"automa.dhop","type":"text","marks":[{"type":"strong"}]},{"text":" permet de taper directement des commandes Ole Automation (","type":"text"},{"text":"Le source du programme automa.dhop se trouve dans le fichier automa.dhsp","type":"text","marks":[{"type":"strong"}]},{"text":"). ","type":"text"},{"type":"hardBreak"},{"type":"hardBreak"},{"text":"1. Ouverture de la dll DhAutomation","type":"text","marks":[{"type":"strong"}]},{"text":" ","type":"text"},{"type":"hardBreak"},{"text":"Le chargement de la DhAutomation se fait par la fonction ","type":"text"},{"text":"OleOpen","type":"text","marks":[{"type":"strong"}]},{"text":". Exemple : ","type":"text"},{"type":"hardBreak"},{"text":"include zoleaut.hsp","type":"text","marks":[{"type":"strong"}]},{"text":" ","type":"text"},{"type":"hardBreak"},{"text":"1 mess 256","type":"text"},{"type":"hardBreak"},{"text":"1 i X ","type":"text"},{"type":"hardBreak"},{"text":"i = ","type":"text"},{"text":"OleOpen","type":"text","marks":[{"type":"strong"}]},{"text":";open de DhAutomation","type":"text"},{"type":"hardBreak"},{"text":"if i <> 0","type":"text"},{"type":"hardBreak"},{"text":"display \"Erreur open Ole Automation\"","type":"text"},{"type":"hardBreak"},{"text":"i = ","type":"text"},{"text":"OleMessage","type":"text","marks":[{"type":"strong"}]},{"text":"(mess);récupère le texte du message d'erreur","type":"text"},{"type":"hardBreak"},{"text":"display left (mess,length(mess))","type":"text"},{"type":"hardBreak"},{"text":"i = ","type":"text"},{"text":"OleClose","type":"text","marks":[{"type":"strong"}]},{"text":";ATTENTION, il faut qd même refermer DhAutomation","type":"text"},{"type":"hardBreak"},{"text":"ProgramExit","type":"text"},{"type":"hardBreak"},{"text":"endif ","type":"text"},{"type":"hardBreak"},{"type":"hardBreak"},{"text":"On peut afficher le numéro de version de DhAutomation.dll et celui du langage par : ","type":"text"},{"type":"hardBreak"},{"text":"display \"Version de DhAutomation.dll \" 0","type":"text"},{"type":"hardBreak"},{"text":"display ","type":"text"},{"text":"OleVersionDll","type":"text","marks":[{"type":"strong"}]},{"type":"hardBreak"},{"text":"display \"Version du langage \" 0","type":"text"},{"type":"hardBreak"},{"text":"display ","type":"text"},{"text":"OleVersionLang","type":"text","marks":[{"type":"strong"}]},{"text":" ","type":"text"},{"type":"hardBreak"},{"type":"hardBreak"},{"text":"2. Exécution d'une commande Ole Automation","type":"text","marks":[{"type":"strong"}]},{"text":" ","type":"text"},{"type":"hardBreak"},{"text":"L'exécution d'une commande Ole Automation se commande par la fonction OleExec.","type":"text"},{"type":"hardBreak"},{"text":"Exemple : ","type":"text"}]},{"type":"codeBlock","content":[{"text":"1 buffer 256 \nbuffer = \"texte de la commande\"\ni = OleExec (buffer)\nif i <> 0\n;le code de l'erreur se trouve dans OleErr\ni = OleMessage(mess)\ndisplay left(mess,length(mess))\nelse\n...\nendif","type":"text"}]},{"type":"paragraph","content":[{"type":"hardBreak"},{"type":"hardBreak"},{"type":"hardBreak"},{"text":"3. Affichage du résultat d'une commande","type":"text","marks":[{"type":"strong"}]},{"text":" ","type":"text"},{"type":"hardBreak"},{"text":"On peut chercher le résultat d'une commande par la fonction OleExecResult.","type":"text"},{"type":"hardBreak"},{"text":"Exemple :","type":"text"}]},{"type":"codeBlock","content":[{"text":"1 buffer 256 ;lg maximum d'une ligne de commande\n1 mess 256 ;lg maximum d'une ligne de message\n1 resultat 256 ;lg maximum d'une ligne de résultat\n1 taille 13,0\n1 taille2 13,0\n\n buffer = \"texte de la commande\"\n i = OleExec (buffer)\n if i <> 0\n ;le code de l'erreur se trouve dans OleErr\n i = OleMessage(mess)\n\tdisplay left(mess,length(mess))\n else\n\ti = OleExecResult(mess,resultat,taille,taille2)\n\tif i <> 0\n\t display \"Resultat [\" & left(resultat,length(resultat)) & \"]\"\n display \"Type du résultat [\" & left(mess,length(mess)) & \"]\"\n display \"Taille du résultat [\" & taille & \"]\"\n display \"Lg réelle du résultat [\" & taille2 & \"]\"\n endif\n endif\n","type":"text"}]},{"type":"paragraph","content":[{"type":"hardBreak"}]},{"type":"paragraph","content":[{"type":"hardBreak"},{"text":"La longueur maximale d'un résultat dans DhAutomation est par defaut de 256 caractères,","type":"text"},{"type":"hardBreak"},{"text":"Mais on peut l'agrandir a volonté, en agrandissant les champs et en mettant ","type":"text"},{"type":"hardBreak"},{"text":"OleLgMaxi256 = taille maxi de votre buffer ","type":"text"},{"type":"hardBreak"},{"text":"La fonction ","type":"text"},{"text":"OleExecResult","type":"text","marks":[{"type":"strong"}]},{"text":" renvoie le type du résultat :","type":"text"},{"type":"hardBreak"},{"text":"0 = pas de résultat","type":"text"},{"type":"hardBreak"},{"text":"1 = numérique","type":"text"},{"type":"hardBreak"},{"text":"2 = alpha-numérique","type":"text"},{"type":"hardBreak"},{"text":"3 = date","type":"text"},{"type":"hardBreak"},{"text":"4 = code d'erreur","type":"text"},{"type":"hardBreak"},{"text":"5 = pointeur objet de type DISPATCH (interface vers un objet)","type":"text"},{"type":"hardBreak"},{"text":"6 = booléen","type":"text"},{"type":"hardBreak"},{"text":"7 = pointeur objet de type UNKOWN (idem 5 mais vers un interface non connu)","type":"text"},{"type":"hardBreak"},{"text":"autre = inconnu ou sans signification pour le programme DIVA. ","type":"text"},{"type":"hardBreak"},{"type":"hardBreak"},{"text":"4. Fermeture de la dll DhAutomation","type":"text","marks":[{"type":"strong"}]},{"text":" ","type":"text"},{"type":"hardBreak"},{"text":"Après avoir exécuté les commandes Ole Automation, il faut décharger la dll ","type":"text"},{"text":"DhAutomation","type":"text","marks":[{"type":"strong"}]},{"text":" par la fonction : ","type":"text"},{"type":"hardBreak"},{"text":"i = ","type":"text"},{"text":"OleClose","type":"text","marks":[{"type":"strong"}]},{"text":" ","type":"text"},{"type":"hardBreak"},{"type":"hardBreak"},{"text":"5. Liste des erreurs","type":"text","marks":[{"type":"strong"}]},{"text":" ","type":"text"},{"type":"hardBreak"},{"text":"Erreurs au chargement de la dll (la fonction ","type":"text"},{"text":"OleMessage","type":"text","marks":[{"type":"strong"}]},{"text":" permet de récupérer le texte de l'erreur) : ","type":"text"},{"type":"hardBreak"},{"text":"1 - Erreur Ole x Ole non initialisé.","type":"text"},{"type":"hardBreak"},{"text":"2 - Erreur Ole x La version de compobj.dll n'est pas valide pour la dll Ole2.dll.","type":"text"},{"type":"hardBreak"},{"text":"3 - Erreur Ole x Plus de mémoire.","type":"text"},{"type":"hardBreak"},{"text":"4 - Erreur Ole x Argument invalide.","type":"text"},{"type":"hardBreak"},{"text":"5 - Erreur Ole x Erreur inconnue. ","type":"text"},{"type":"hardBreak"},{"type":"hardBreak"},{"text":"Erreurs à l'exécution d'une commande Ole Automation (la fonction ","type":"text"},{"text":"OleMessage","type":"text","marks":[{"type":"strong"}]},{"text":" permet de récupérer le texte de l'erreur) : ","type":"text"},{"type":"hardBreak"},{"text":"1 - Erreur Ole x Ole non initialisé","type":"text"},{"type":"hardBreak"},{"text":"2 - Plus de mémoire","type":"text"},{"type":"hardBreak"},{"text":"3 - Erreur Ole x Impossible de créer l'objet (CreateObject)","type":"text"},{"type":"hardBreak"},{"text":"4 - Il manque un paramètre","type":"text"},{"type":"hardBreak"},{"text":"5 - Fin de ligne rencontrée trop tôt","type":"text"},{"type":"hardBreak"},{"text":"6 - Texte trop grand","type":"text"},{"type":"hardBreak"},{"text":"7 - Caractère ou mot inconnu","type":"text"},{"type":"hardBreak"},{"text":"8 - Variable inconnue","type":"text"},{"type":"hardBreak"},{"text":"9 - Nom de variable trop grand (maxi=31)","type":"text"},{"type":"hardBreak"},{"text":"10 - Table des variables pleine (32 variables maximum)","type":"text"},{"type":"hardBreak"},{"text":"11 - Pile de travail pleine (32 niveaux)","type":"text"},{"type":"hardBreak"},{"text":"12 - Mot clé ou constante texte attendue","type":"text"},{"type":"hardBreak"},{"text":"13 - Erreur Ole x Erreur dans la fonction get dispatch","type":"text"},{"type":"hardBreak"},{"text":"14 - Variable attendue","type":"text"},{"type":"hardBreak"},{"text":"15 - Pointeur sur un objet attendu","type":"text"},{"type":"hardBreak"},{"text":"16 - Constante texte attendue","type":"text"},{"type":"hardBreak"},{"text":"17 - Affectation impossible","type":"text"},{"type":"hardBreak"},{"text":"18 - Erreur Ole x Erreur dans la fonction propertyput","type":"text"},{"type":"hardBreak"},{"text":"19 - Fonction ou mot clé non implémenté","type":"text"},{"type":"hardBreak"},{"text":"20 - Nombre de paramètres faux","type":"text"},{"type":"hardBreak"},{"text":"21 - Constante numérique attendue","type":"text"},{"type":"hardBreak"},{"text":"22 - Variable déjà définie","type":"text"},{"type":"hardBreak"},{"text":"23 - Variable portant le même nom qu'un mot clé","type":"text"},{"type":"hardBreak"},{"text":"24 - Code Langue inconnu","type":"text"},{"type":"hardBreak"},{"text":"25 - Constante numerique simple ou texte attendu","type":"text"},{"type":"hardBreak"},{"text":"26 - Erreur Ole x Erreur à l'appel de next ( * )","type":"text"},{"type":"hardBreak"},{"text":"27 - Erreur %d pointeur UNKOWN attendu","type":"text"},{"type":"hardBreak"},{"text":"28 - Erreur Ole x Erreur à l'appel de each","type":"text"},{"type":"hardBreak"},{"text":"29 - Erreur %d Erreur Ole x pointeur Enum attendu","type":"text"},{"type":"hardBreak"},{"text":"30 - Plus d'objet dans la fonction next ( * )","type":"text"},{"type":"hardBreak"},{"text":"31 - Erreur Ole x Impossible de trouver l'objet (GetObject)","type":"text"},{"type":"hardBreak"},{"text":"32 - Erreur Ole x Impossible de créer l'objet (CreateObject)","type":"text"},{"type":"hardBreak"},{"text":"33 - Erreur Ole x Impossible de créer l'objet (CreateObject)","type":"text"},{"type":"hardBreak"},{"text":"34 - Erreur Ole x Impossible de créer l'objet (CreateObject)","type":"text"},{"type":"hardBreak"},{"text":"35 - Erreur Ole x Impossible de trouver l'objet (GetObject)","type":"text"},{"type":"hardBreak"},{"text":"36 - Erreur Ole x Impossible de trouver l'objet (GetObject)","type":"text"},{"type":"hardBreak"},{"text":"37 - Erreur Ole x Impossible de trouver l'objet (GetObject)","type":"text"},{"type":"hardBreak"},{"text":"38 - Erreur Ole x Impossible de trouver l'objet (GetObject)","type":"text"},{"type":"hardBreak"},{"text":"39 - Erreur Ole x Impossible de trouver l'objet (GetObject)","type":"text"},{"type":"hardBreak"},{"text":"40 - Erreur Ole x Impossible de trouver l'objet (GetObject)","type":"text"},{"type":"hardBreak"},{"text":"41 - Erreur Ole x Impossible de trouver l'objet (GetObject)","type":"text"},{"type":"hardBreak"},{"text":"42 - Erreur Ole x Impossible de trouver l'objet (GetObject)","type":"text"},{"type":"hardBreak"},{"text":"43 - Erreur Ole x Impossible de trouver l'objet (GetObject)","type":"text"},{"type":"hardBreak"},{"text":"44 - Erreur Ole x Impossible de trouver l'objet (GetObject)","type":"text"},{"type":"hardBreak"},{"text":"45 - Erreur Ole x Impossible de trouver l'objet (GetObject)","type":"text"},{"type":"hardBreak"},{"text":"46 - Version langue incompatible (version langue xxx) ","type":"text"},{"type":"hardBreak"},{"text":"47 - Type de paramètre invalide","type":"text"},{"type":"hardBreak"},{"text":"48 - Erreur x à l'ouverture du fichier x","type":"text"},{"type":"hardBreak"},{"text":"49 - Erreur Ole x Impossible de charger la description de cet objet","type":"text"},{"type":"hardBreak"},{"text":"50 - Erreur Ole x Impossible de charger la description de cet objet","type":"text"},{"type":"hardBreak"},{"text":"51 - La syntaxe de Const est Const motcle = valeur","type":"text"},{"type":"hardBreak"},{"text":"52 - Une constante ne peut être que de type texte ou numérique","type":"text"},{"type":"hardBreak"},{"text":"53 - La syntaxe de Const est : Const motcle = valeur","type":"text"},{"type":"hardBreak"},{"text":"54 - Cette constante existe déjà","type":"text"},{"type":"hardBreak"},{"text":"55 - Mot clé Const attendu","type":"text"},{"type":"hardBreak"},{"text":"62 - Variable vide","type":"text"},{"type":"hardBreak"},{"text":"autre - Erreur Ole x Erreur inconnue ","type":"text"},{"type":"hardBreak"},{"text":"( * ) Cas particulier des erreurs 26 (Erreur Ole x Erreur à l'appel de next) et 30 (Plus d'objet dans la fonction next) : il ne s'agit pas forcément d'une erreur, ces codes indiquent simplement qu'il n'y a plus d'objet dans la liste des objets en lecture d'une collection d'objets.","type":"text"}]}],"version":1}

Navigateur non pris en charge