Lancer une macro excel depuis vb 2005
Zachs
Messages postés
202
Date d'inscription
mardi 14 novembre 2006
Statut
Membre
Dernière intervention
10 février 2009
-
9 oct. 2007 à 14:32
Zachs Messages postés 202 Date d'inscription mardi 14 novembre 2006 Statut Membre Dernière intervention 10 février 2009 - 10 oct. 2007 à 08:27
Zachs Messages postés 202 Date d'inscription mardi 14 novembre 2006 Statut Membre Dernière intervention 10 février 2009 - 10 oct. 2007 à 08:27
2 réponses
caco64
Messages postés
69
Date d'inscription
jeudi 27 septembre 2007
Statut
Membre
Dernière intervention
14 décembre 2007
9 oct. 2007 à 19:51
9 oct. 2007 à 19:51
ton problème c'est de lancer excel ou de lancer la macro contenue dans excel ?
La haine aveugle n'est pas sourde
La haine aveugle n'est pas sourde
Zachs
Messages postés
202
Date d'inscription
mardi 14 novembre 2006
Statut
Membre
Dernière intervention
10 février 2009
10 oct. 2007 à 08:27
10 oct. 2007 à 08:27
Mon probleme c'était de lancer une macro vu que mon projet est un excel add ins, donc excel est lancé de base.
Mais c'est bon j'ai reussis voila le code pour ceux qui aurait le même problème:
Dim
exc
As Excel.Application =
Me.Worksheets.Application
Dim LeftShape
As
Integer
Dim TopShape
As
Integer
Dim WidthShape
As
Integer
Dim HeightShape
As
Integer
Dim TextShape
As
String
LeftShape = 2
TopShape = 10
WidthShape = 195
HeightShape = 40
TextShape = "Yep"
exc.Run(
"InsertAShape", LeftShape, TopShape, WidthShape, HeightShape, TextShape)
--------------------->>
Ordi, frigo, dodo...
Quelle dur journée!
Mais c'est bon j'ai reussis voila le code pour ceux qui aurait le même problème:
Dim
exc
As Excel.Application =
Me.Worksheets.Application
Dim LeftShape
As
Integer
Dim TopShape
As
Integer
Dim WidthShape
As
Integer
Dim HeightShape
As
Integer
Dim TextShape
As
String
LeftShape = 2
TopShape = 10
WidthShape = 195
HeightShape = 40
TextShape = "Yep"
exc.Run(
"InsertAShape", LeftShape, TopShape, WidthShape, HeightShape, TextShape)
--------------------->>
Ordi, frigo, dodo...
Quelle dur journée!