CreateObject, fonction

Crée et retourne une référence à un objet ActiveX.

Syntaxe

CreateObject ( class [, servername] )

La syntaxe de la fonction CreateObject contient les arguments suivants :

La classeargument utilise la syntaxe appname.objecttype et contient les éléments suivants :

Remarques

Chaque application qui prend en charge l’automatisation fournit au moins un type d’objet. Par exemple, une application de traitement de texte peut fournir un objet Application , un objet Document et un objet Toolbar .

Pour créer un objet ActiveX, affectez l’objet retourné par CreateObject à un variable objet:

' Declare an object variable to hold the object 
' reference. Dim as Object causes late binding. 
Dim ExcelSheet As Object
Set ExcelSheet = CreateObject("Excel.Sheet")

Dans cet exemple, nous allons automatiser un objet de feuille de calcul Excel à partir d’une base de données Access. 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 est créé, vous le référencez dans le code à l’aide de la variable objet que vous avez définie. Dans l’exemple suivant, vous accédez aux propriétés et méthodes du nouvel objet à l’aide de la variable objet, ExcelSheetet d’autres objets Excel, y compris l’objet Application et la collection Cells .

' Make Excel visible through the Application object.
ExcelSheet.Application.Visible = True
' Place some text in the first cell of the sheet.
ExcelSheet.Application.Cells(1, 1).Value = "This is column A, row 1"
' Save the sheet to C:\test.xls directory.
ExcelSheet.SaveAs "C:\TEST.XLS"
' Close Excel with the Quit method on the Application object.
ExcelSheet.Application.Quit
' Release the object variable.
Set ExcelSheet = Nothing

La déclaration d’une variable objet avec la clause As Object crée une variable qui peut contenir une référence à n’importe quel type d’objet. Toutefois, l’accès à l’objet via cette variable est lié tardivement ; autrement dit, la liaison se produit lorsque votre programme est exécuté. Pour créer une variable objet qui entraîne une liaison anticipée, c’est-à-dire une liaison lors de la compilation du programme, déclarez la variable objet avec un ID de classe spécifique. Par exemple, vous pouvez déclarer et créer les références Excel suivantes :

Dim xlApp As Excel.Application 
Dim xlBook As Excel.Workbook
Dim xlSheet As Excel.WorkSheet
Set xlApp = CreateObject("Excel.Application")
Set xlBook = xlApp.Workbooks.Add
Set xlSheet = xlBook.Worksheets(1)

La référence via une variable à liaison anticipée peut offrir de meilleures performances, mais ne peut contenir qu’une référence aux classe spécifiées dans le déclaration.

Vous pouvez passer un objet retourné par la fonction CreateObject à une fonction qui attend un objet en tant qu’argument. Par exemple, le code suivant crée et transmet une référence à un objet Excel.Application :

Call MySub (CreateObject("Excel.Application"))

Vous pouvez créer un objet sur un ordinateur réseau distant en passant le nom de l’ordinateur à l’argument servername de CreateObject. Ce nom est identique à la partie Nom de l’ordinateur d’un nom de partage : pour un partage nommé « \\MyServer\Public », le nom du serveur est « MyServer ».

Le code suivant retourne le numéro de version d’un instance d’Excel exécuté sur un ordinateur distant nommé MyServer:

Dim xlApp As Object
Set xlApp = CreateObject("Excel.Application", "MyServer")
Debug.Print xlApp.Version

Si le serveur distant n’existe pas ou n’est pas disponible, une erreur d’exécution se produit.

Si un objet s’est inscrit en tant qu’objet instance unique, une seule instance de l’objet est créée, quel que soit le nombre d’exécutions de CreateObject.