CREATEOBJECT |
Création d'objet |
|---|---|
| Visual Basic | |
Syntaxe
| Function CREATEOBJECT(classe As String, Optional ByVal nomserveur As String) As Object |
Paramètres
| Nom | Description | |
|---|---|---|
| classe | Ce paramètre permet d'indiquer la classe d'objet à utilisé : | |
| Classe | Description | |
| ADODB.Command | Cette classe permet de définir l'objet envoyant des commandes SQL à une base de données | |
| ADODB.Connection | Cette classe permet de définir l'objet de connexion à une base de données | |
| ADODB.Recordset | Cette classe permet de définir l'objet d'enregistrement pour un objet de base de données | |
| Excel.Application | Cette classe permet de définir l'objet d'application de Microsoft Excel | |
| Outlook.Application | Cette classe permet de définir l'objet d'application de Microsoft Outlook | |
| Powerpoint.Application | Cette classe permet de définir l'objet d'application de Microsoft PowerPoint | |
| Scripting.FileSystemObject | Cette classe permet de définir l'objet permettant la gestion des fichiers systèmes | |
| ShockwaveFlash.ShockwaveFlash.3 | Cette classe permet de définir l'objet de version du Flash Shockwave version 3 | |
| ShockwaveFlash.ShockwaveFlash.4 | Cette classe permet de définir l'objet de version du Flash Shockwave version 4 | |
| ShockwaveFlash.ShockwaveFlash.5 | Cette classe permet de définir l'objet de version du Flash Shockwave version 5 | |
| ShockwaveFlash.ShockwaveFlash.6 | Cette classe permet de définir l'objet de version du Flash Shockwave version 6 | |
| ShockwaveFlash.ShockwaveFlash.7 | Cette classe permet de définir l'objet de version du Flash Shockwave version 7 | |
| Word.Application | Cette classe permet de définir l'objet d'application de Microsoft Word | |
| Word.Basic | Cette classe permet de définir l'objet de base du Microsoft Word. | |
| Word.Document | Cette classe permet de définir l'objet de document de Microsoft Word. | |
| ... | ... | |
| nomserveur | Ce paramètre permet d'indiquer le nom du serveur | |
Description
Cette fonction permet d'effectuer la création d'un objet ActiveX. Ainsi, vous pouvez créer une instance d'un objet OLE Automation (ActiveX). Avant d'appeler les méthodes, fonctions ou propriétés d'un objet, vous devez créer une instance de cet objet. Une fois qu'un objet est créé, vous le référencez dans le code à l'aide de la variable d'objet que vous avez définie.
Remarques
- Les serveurs d'automatisation fournissent 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 barre d'outils. Pour créer un objet Automation, affectez l'objet renvoyé par CreateObject à une variable d'objet :
- Si votre projet n'inclut pas de référence à l'objet, vous devez déclarer le type de variable d'objet comme Object; cela permet à la variable de référencer n'importe quel type d'objet.
- Si une instance de l'objet ActiveX est déjà en cours d'exécution, la fonction CreateObject peut démarrer une nouvelle instance lorsqu'il crée un objet du type requis.
Dim ExcelSheet
Set ExcelSheet = CreateObject("Excel.Sheet")
Ce code démarre l'application créant l'objet (dans ce cas, une feuille de calcul Microsoft Excel). Une fois qu'un objet est créé, vous y faites référence dans le code à l'aide de la variable d'objet que vous avez définie. Dans l'exemple suivant, vous accédez aux propriétés et aux méthodes du nouvel objet à l'aide de la variable d'objet, ExcelSheet et d'autres objets Excel, y compris l'objet Application et la collection ActiveSheet.Cells. Par exemple :
' Rendre Excel visible via l'objet Application.
ExcelSheet.Application.Visible = True
' Placez du texte dans la première cellule de la feuille.
ExcelSheet.ActiveSheet.Cells(1,1).Value = ""Ceci est la colonne A, ligne 1"
' Sauvegardez la feuille.
ExcelSheet.SaveAs "C:\DOCS\TEST.XLS"
' Ferme Excel avec la méthode Quit sur l'objet Application.
ExcelSheet.Application.Quit
' Relâchez la variable objet.
Set ExcelSheet = Nothing
Exemple
Voici un exemple permettant d'envoyer un courriel :
- Sub Main()
- Set monCourriel = CreateObject("CDO.Message")
- monCourriel.Subject = "Mon sujet"
- monCourriel.From = "job@gladir.com"
- monCourriel.To = "support@gladir.com"
- monCourriel.TextBody = "Corps de mon message"
- monCourriel.Send
- Set monCourriel=Nothing
- End Sub