logo UsualSoft   Skip Navigation Links
Accueil
Références
Formations
TutorielsExpand Tutoriels
Liens téléchargements

Contact : cgruchet@hotmail.com - Tél: 06 22 82 90 55
Microsoft Certified Professional
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