Lancer excel depuis VB6

Résolu
Messages postés
3
Date d'inscription
mardi 14 février 2006
Statut
Membre
Dernière intervention
28 août 2006
-
Messages postés
3
Date d'inscription
mardi 14 février 2006
Statut
Membre
Dernière intervention
28 août 2006
-
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

7 réponses

Messages postés
883
Date d'inscription
vendredi 3 novembre 2000
Statut
Membre
Dernière intervention
3 mars 2009
7
Salut !
Essaye ca :
obexcelapp.Workbooks("c:\classeur1.xls").RunAutoMacros(XlRunAutoMacro.xlAutoOpen)

Ou bien aussi
obexcelapp.Application.Run("auto_open")

Julien.
Messages postés
7741
Date d'inscription
mercredi 1 septembre 2004
Statut
Membre
Dernière intervention
24 septembre 2014
41
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 #
Messages postés
883
Date d'inscription
vendredi 3 novembre 2000
Statut
Membre
Dernière intervention
3 mars 2009
7
Zut me suis fait eu... Faut que j'm'entraine, je tappe trop lentement :p

Julien.
Messages postés
7741
Date d'inscription
mercredi 1 septembre 2004
Statut
Membre
Dernière intervention
24 septembre 2014
41
lol ça bugge

je disais

---- Sevyc64  (alias Casy) ----<hr size="2" width="100%" /># LE PARTAGE EST NOTRE FORCE #
Messages postés
3
Date d'inscription
mardi 14 février 2006
Statut
Membre
Dernière intervention
28 août 2006

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

merci
Messages postés
883
Date d'inscription
vendredi 3 novembre 2000
Statut
Membre
Dernière intervention
3 mars 2009
7
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.
Messages postés
3
Date d'inscription
mardi 14 février 2006
Statut
Membre
Dernière intervention
28 août 2006

obexcelapp.Application.Run("auto_open")


cette commande fonctionne


 


merci