Citation :
AIDE DE WORD :
Chaque application prenant en charge Automation 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, attribuez l'objet renvoyé par la fonction CreateObject à une variable objet :
' Déclare une variable objet destinée à contenir la ' référence de l'objet. Dim as Object entraîne une ' liaison à l'exécution.
Dim ExcelSheet As Object
Set ExcelSheet = CreateObject("Excel.Sheet" )
Ce code lance l'application qui crée l'objet, dans le cas présent, une feuille de calcul Microsoft Excel. Une fois l'objet créé, vous y faites référence 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 la variable objet, ExcelSheet, et d'autres objets Microsoft Excel, notamment l'objet Application et la collection Cells.
' Rend Excel visible au travers de l'objet Application.
ExcelSheet.Application.Visible = True
' Place du texte dans la première cellule de la feuille.
ExcelSheet.Application.Cells(1, 1).Value = "This is column A, row 1"
' Enregistre la feuille dans le répertoire C:\test.xls.
ExcelSheet.SaveAs "C:\ TEST.XLS"
' Ferme Excel en appliquant la méthode Quit sur l'objet Application.
ExcelSheet.Application.Quit
' Supprime la variable objet.
Set ExcelSheet = Nothing
|