CreateObject, fonction

---

Description

Crée et renvoie une référence à un objet Automation.

Syntaxe

CreateObject(servername.typename [, location])

La syntaxe de la fonction CreateObject comprend les éléments suivants :

Élément	Description
servername	Requis. Le nom de l'application fournissant l'objet.
typename	Requis. Le type ou la classe de l'objet à créer.
location	Facultatif. Le nom du serveur réseau sur lequel l'objet doit être créé. Cette fonction est disponible à partir de la version 5.1.

Notes

Les serveurs Automation fournissent au moins un type d'objet. Par exemple, une application de traitement de texte peut fournir un objet d'application, un objet de document et un objet de barre d'outils.

Pour créer un objet Automation, affectez l'objet renvoyé par CreateObject à une variable objet :

Dim ExcelSheet
Set ExcelSheet = CreateObject("Excel.Sheet")

Ce code démarre l'application qui crée l'objet (dans ce cas, une feuille de calcul Microsoft Excel). Une fois qu'un objet a été créé, faites référence à ce dernier dans le code en utilisant la variable objet définie. Comme l'indique l'exemple suivant, vous pouvez accéder aux propriétés et aux méthodes du nouvel objet à l'aide de la variable objet, ExcelSheet, et d'autres objets Excel, notamment l'objet Application et la collection ActiveSheet.Cells.

' Rend Excel visible par l'intermédiaire de l'objet Application.
ExcelSheet.Application.Visible = True
' Place du texte dans la première cellule de la feuille.
ExcelSheet.ActiveSheet.Cells(1,1).Value = "Colonne A, ligne 1"
' Enregistre la feuille.
ExcelSheet.SaveAs "C:.XLS"
' Ferme Excel avec la méthode Quit sur l'objet Application.
ExcelSheet.Application.Quit
' Libère la variable objet.
Set ExcelSheet = Nothing

Vous pouvez uniquement créer un objet sur un serveur distant lorsque la sécurité Internet est désactivée. Pour ce faire, il convient de transmettre le nom de la machine à l'argument servername de la fonction CreateObject. Dans un nom de partage, ce nom correspond à la partie réservée au nom de la machine. Par exemple, dans le nom de partage réseau "\\myserver\public", le nom du serveur (servername) correspond à "myserver". En outre, vous pouvez spécifier l'argument servername au format DNS ou sous la forme d'une adresse IP.

Le code suivant renvoie le numéro de version d'une instance d'Excel qui s'exécute sur un ordinateur réseau distant appelé "myserver" :

Function GetVersion
  Dim XLApp
  Set XLApp = CreateObject("Excel.Application", "MyServer")
  GetVersion = XLApp.Version
End Function

Une erreur se produit si le serveur distant spécifié est inexistant ou introuvable.

---