1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26
| #include <ComObj.hpp>
#include <io.h>
#include "Class_Excel.h"
Variant XL_Classeur, XL_TousClasseurs;
Variant XL_Excel, XL_Instance;
Variant vFileName;
Variant vComposant;
//ouverture d'excel
XL_Instance = CreateOleObject("Excel.Application");
XL_Instance.OlePropertySet("Visible",false);
XL_TousClasseurs = XL_Instance.OlePropertyGet("Workbooks");
//recupere le nom du fichier
vFileName = "D:\\Simulateur SEPT\\Exe\\BDV\\BDV_SEPT.xls";
//ouverture du fichier
XL_Classeur = XL_TousClasseurs.OleFunction("Open", vFileName);
// installation du Module
vComposant = XL_Classeur.OlePropertyGet("VBProject").OlePropertyGet("VBComponents");
vComposant.OleProcedure("Import", "D:\\Simulateur SEPT\\Exe\\BDV\\traduction.mac");
// execution de la macro
XL_Instance.OleProcedure("Run", "traduction");
// destruction de la macro
vComposant.OleFunction("Remove", vComposant.OleFunction("Item", "Module1"));
// à partir d'ici il n'y a plus de macro n'y Module |
Partager