lancer une macro excel en vb6

bonsoir, je cale sur le probleme suivant. ma connection a excel est ok.mais je n'arrive pas a lancer ma macro excel depuis vb6. voici le code employe et l'erreur suivante : erreur d'execution "1004" erreur definit par l'application ou par l'objet.

Code:

---

1 2 3 4 5 6 7 8 9

Dim var As Label ' ici je ne sais pas si c'est correcte Dim xls As Excel.Workbook ' déclaration d'une variable objet de type classeur Excel Dim objWorkbook As Workbook Dim objExcel As Object 'Set xls = GetObject("course.xls") Set objExcel = CreateObject("Excel.Application") 'Set objWorkbook = objExcel.Workbooks.Open("C:\turfprono\Projet\course.xlsm") objExcel.Run "macro1"

---

lorsque la macro sera lancer, je voudrais recupere certaine information de excel pour les afficher dans des label. :oops::oops::oops:
merci d'avance de votre aide

Dans le bout de code que tu donnes, il n'y a pas de déclaration à une instance de "Excel Application".
Cela peut venir de là !

Sinon, dans l'ordre :
il faut ouvrir le bon fichier
se posistionner correctement
lancer la bonne macro (macro1 ne veut pas dire grand choses si tu as fait des essais)
;)

salut khany, et merci de ta reponse et je vais chercher sur excel application
apres plusieur recherche aussi bien sur excel que sur vb6. j'ai trouvé dans excel la commande suivante auto_open qui lance la macro automatique. est ce que cela peut il fonctionnée comme ca. Et comment fait t'on pour importer des celulle dans un label. je n'ai rien trouvée dessus pour l'instant. mais je je continue mes recherche.

bon week end et encore merci :king::king::king:

dans le code posté l'ouverture de ton classeur est mis en commentaire..!

Code:

---

1 2	'Set objWorkbook = objExcel.Workbooks.Open("C:\turfprono\Projet\course.xlsm")

---

est-ce le cas dans le code utilisé ..?

rajoute aussi ..

Code:

---

objExcel.visible = true

---

histoire de voir ce qui ce passe...

comme dit Khany ce sera plus simple si tu rajoute une référence à excel à ton projet... voir :

Utiliser Excel à partir de Visual Basic pour le principe ;)

salut, et merci des conseille que vous m'apporte. :cry::cry::cry::cry:
il etait en commentaire par ce que je j'ai fait des essaies est cela me permet de re rapellée de ce que je fait.

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12

Dim var As Label ' ici je ne sais pas si c'est correcte Dim xls As Excel.Workbook ' déclaration d'une variable objet de type classeur Excel Dim objWorkbook As Workbook Dim objExcel As Object Dim Excel As Excel.Application   Set Excel = GetObject(, "course.xlsm") Set objExcel = CreateObject("Excel.Application") Set objWorkbook = objExcel.Workbooks.Open("C:\turfprono\Projet\course.xlsm") objExcel.Visible = True objExcel.Run "auto_open"

---

message erreur 429 le composant activeX ne peut crée l'objet.
merci de l'aide que vous m'apporterais.:cry::cry::cry:

:koi: ...

eu la tu mélange un peu tout ... ton Excel et on ObjExcel c'est la même chose ....

Code:

---

1 2 3 4 5 6 7 8

Dim xls As Excel.Workbook ' déclaration d'une variable objet de type classeur Excel Dim objWorkbook As Workbook Dim objExcel As new Excel.Application objExcel.Visible = True Set objWorkbook = objExcel.Workbooks.Open("C:\turfprono\Projet\course.xlsm")   objExcel.Run "auto_open"

---

commence déjà par cela .. après ... l'on verra pour ton label ( il n'as pas à être déclaré dans le code.. tu le "dessine" seulement sur ta Form)

une question ..: ta macro ... elle fait quoi ..? pourquoi veut-tu appeler une macro depuis VB6 plutôt qu'une fois le classeur ouvert agir directement sur les cellules... de ce classeur..?

bbil por repondre a ta question la macro telecharge un tableau depuis une page web, et je tri le tableau pour ne selectionné que se que donc j'ai besoin. et le classeur excel doit reste fermet.
j'ai effectuer les modif et la probleme il me lance excel et apres il me met le message suivant erreur d'execution 1004 impossible d'ouvrit le fichier course.xlsm car sont extention n'est pas valide.verifiez que le fichier n'est pas endommagé et que sont extension correspond bien au format du fichier.

merci de ton aide

et Excel .. il l'ouvre bien ton classeur..?

comment sont organisées les données que tu dois récupérer sur le Web ..?

non il me lance excel et j'ai un ecran bleu et m'affiche le message citeé plus haut

les donnée sont organisé sont forme de tableau.

quand je fait debuger, il me met cette ligne en jeaune

Code:

---

Set objWorkbook = objExcel.Workbooks.Open("C:\turfprono\Projet\course.xlsm")

---

ok ca roule. j'ai relancer le pc et maintenant sa fonction.:king::king::king::king:
maintenant il faut que je recuper les info des celulle et que je les met dans mes label.

Citation:

---

Envoyé par bbil

et Excel .. il l'ouvre bien ton classeur..?

comment sont organisées les données que tu dois récupérer sur le Web ..?

---

Merci bbli de toute l'aide que tu m'a apporter aujourd'huit.:king::king::king::king:
une derniere question, j'ai trouvé ce code est cela fonctionne, mais est il stable et a tu des suggestion a me faire. car je suis preneur. encore merci:king::king::king:

Code:

---

Me.Label6 = Range("A" & 1)

---

bbil desoler de te deranger encore
l'erreur 1004 est revenue de nouveau, j'ai ralumer le pc ver 18 h et la le probleme etait revenu. ne faut il pas libere les ressources .

merci

et bien .. une fois que tu as récupérer tes données..
il te faut fermer ton classeur excel... quel code utilise tu ...? Il doit y avoir tout ce qui faut dans le lien que je t'ai transmis.. plus haut..!



sinon ... j'ai pas eu ma réponse sur la façon dont tu récupérai tes données sur internet..? c'est quoi que tu "télé-charge" par ta macro excel .. ? une feuille excel..?
si tu n'as pas besoin de ces données sous excel.. ne peu-tu pas les récupérer directement sans utiliser excel ..?

bbil merci du temps que tu me consacre
un tableau htlm

je te redonne le code

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20

Dim xls As Excel.Workbook ' déclaration d'une variable objet de type classeur Excel Dim objWorkbook As Workbook Dim objExcel As New Excel.Application Dim wsExcel As Excel.Worksheet 'Feuille Excel   objExcel.Visible = True Set objWorkbook = objExcel.Workbooks.Open("C:\turfprono\Projet\course.xlsm") 'Récupération de la feuille par défaut Set wsExcel = objWorkbook.ActiveSheet 'On lance la macro auto-open de excel objExcel.Run "auto_open"   xls.Close 'Fermeture du classeur Excel objExcel.Quit 'Fermeture de l'application Excel   'Désallocation mémoire Set wsExcel = Nothing Set xls = Nothing Set objExcel = Nothing

---

j'espere que je n'ai pas trop merde dans le code.

ferme ton classeur sans sauver :

Code:

---

1 2	xls.Close false'Fermeture du classeur Excel

---

bonjours bbil, le probleme reste le memes.

Citation:

---

Envoyé par patou60110

bonjours bbil, le probleme reste le memes.

---

Je persiste à croire que tu n'as pas besoin d'excel....
En attendant, examine ta macro Excel.. et vérifie qu'elle referme bien tous les fichiers qu'elle ouvre..;)








PS: pas la peine de m'adresser directement tes messages, on n'est pas sur un "chat", je suis pas le seul à pouvoir te répondre..;)