|
Trucs et Astuces : Visual-Basic
|
Lancer une macro Excel à partir de VB6
|
|
Claude Gruchet
|
|
|
|
Cet exemple vous dira comment :
- Lancer Excel à partir de code source Visual-basic (la façon de procéder est la même pour
Word, Outlook ou tout programme Office)
- Ouvrir un classeur existant et y insérer une macro dont le code source est contenu
dans un fichier texte
- Exécuter la macro
- Sauver le classeur créé et quitter Excel.
NB : Le
classeur que nous ouvrirons s'appelle TestMacro.xls et se trouve dans le
répertoire C:\Mes Documents\
Le texte de la
macro (code source VBA) se trouve dans un fichier texte C:\Mes Documents\MacroXL.bas.
Pour que ce code
puisse fonctionner, il vous faudra référencer la bibliothèque "Excel" à
l'aide de la commande "Références" du menu "Projet".
|
Sub ExecXlMacro()
Dim lobjXl As Excel.Application
Set lobjXl = New Excel.Application
With lobjXl
.Workbooks.Open "C:\Mes Documents\TestMacro.xls"
.Visible = true
' Rend visible la fenêtre Excel (facultatif)
.ActiveWorkbook.VBProject.VBComponents.Import("C:\Mes Documents\MacroXL.bas")
.Run macro:="MaMacro"
.Save
.Quit
End With
Set lobjXl = Nothing
End Sub
|
|
|