Discussion :

[patou60110]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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.
merci d'avance de votre aide

[khany]

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)

[patou60110]

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

[SfJ5Rpw8]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

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

rajoute aussi ..

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[patou60110]

salut, et merci des conseille que vous m'apporte.
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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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.

[SfJ5Rpw8]

...

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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..?