lancer excel depuis VB6Résolu

Question

bonjour,
je souhaite lancer un fichier Excel depuis mon programme en VB6.
tout fonctionne sauf  le lancement de la macro auto_open du fichier Excel.

dans VB :

Set obexcelapp = CreateObject("excel.application")   'lance excel
obexcelapp.application.Visible = True                                'excel visible depuis l'application
obexcelapp.workbooks.Open ("c:\classeur1.xls")    'ouvre le fichier qui comporte la macro

ma question :
Comment ouvrir la macro auto_open du fichier excel ?

merci pour votre aide

Julien237 · Accepted Answer

Salut !
Essaye ca :
obexcelapp.Workbooks("c:\classeur1.xls").RunAutoMacros(XlRunAutoMacro.xlAutoOpen)

Ou bien aussi
obexcelapp.Application.Run("auto_open")

Julien.

cs_casy · Answer

Il faut que tu utilise la fonction suivante juste après l'ouverture de ton classeur :
ActiveWorkbook.RunAutoMacros xlAutoOpen

---- Sevyc64  (alias Casy) ----<hr size="2" width="100%" /># LE PARTAGE EST NOTRE FORCE #

Julien237 · Answer

Zut me suis fait eu... Faut que j'm'entraine, je tappe trop lentement :p

Julien.

cs_casy · Answer

lol ça bugge

je disais 

---- Sevyc64  (alias Casy) ----<hr size="2" width="100%" /># LE PARTAGE EST NOTRE FORCE #

daf42 · Answer

déjà essayé,
çà ne marche pas !

merci

Julien237 · Answer

Le jour où vb te renvoie une erreur "Ca ne marche pas" je croit que tu auras l'air bête pour débugger... Si tu veux qu'on t'aide donne le message d'erreur...

Julien.

daf42 · Answer

obexcelapp.Application.Run("auto_open")


cette commande fonctionne


 


merci

Lancer excel depuis VB6

7 réponses

Votre réponse

Discussions similaires