Créer un objet

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

Structure

CreateObject(nom_serveur.type [, emplacement])

Paramètres

nom du serveur - obligatoire. Le nom de l'application qui fournit l'objet.

typename - obligatoire. Le type ou la classe de l'objet à créer.

emplacement - facultatif. Le nom du serveur réseau sur lequel l'objet doit être créé.

Description

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

Exemple

Pour créer un objet Automation, affectez l'objet renvoyé par CreateObject à une variable d'objet. Ce code lance l'application qui crée l'objet (dans ce cas, une feuille de calcul Microsoft Excel). Une fois l'objet créé, faites-y référence dans le code à l'aide de la variable d'objet que vous avez définie. Comme le montre l'exemple suivant, vous pouvez accéder aux propriétés et aux méthodes du nouvel objet à l'aide de la variable d'objet ExcelSheet, ainsi qu'à d'autres objets Excel, notamment l'objet Application et la collection ActiveSheet.Cells :

Dim ExcelSheet

Set ExcelSheet = CreateObject("Excel.Sheet")

' Afficher Excel via l'objet Application.

ExcelSheet.Application.Visible = True

' Saisissez du texte dans la première cellule de la feuille.

ExcelSheet.ActiveSheet.Cells(1,1).Value = "C'est la colonne A, ligne 1"

« Enregistrez la feuille. »

ExcelSheet.SaveAs "C:\DOCS\TEST.XLS"

Fermez Excel à l'aide de la méthode Quit de l'objet Application.

ExcelSheet.Application.Quit

Libérer la variable objet.

Définir ExcelSheet = Nothing

La création d'un objet sur un serveur distant n'est possible que si la sécurité Internet est désactivée. Vous pouvez créer un objet sur un ordinateur distant en réseau en transmettant le nom de cet ordinateur à l'argument servername de la fonction CreateObject. Ce nom correspond à la partie du nom de partage qui correspond au nom de l'ordinateur. Pour un partage réseau nommé « \myserver\public », le nom du serveur est « myserver ». De plus, vous pouvez indiquer le nom du serveur au format DNS ou sous forme d'adresse IP.

Le code suivant renvoie le numéro de version d'une instance d'Excel exécutée sur un ordinateur réseau distant nommé « myserver » :

Fonction GetVersion

Dim XLApp

Set XLApp = CreateObject("Excel.Application", "MyServer")

GetVersion = XLApp.Version

End Function

Une erreur se produit si le serveur distant indiqué n'existe pas ou ne peut être trouvé. |