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

[patou60110]

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

[SfJ5Rpw8]

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

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

[patou60110]

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 :

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

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

[patou60110]

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

[patou60110]

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

Code :

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

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

[patou60110]

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

[SfJ5Rpw8]

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

[patou60110]

bbil merci du temps que tu me consacre
un tableau htlm

je te redonne le code

Code :

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

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.

[SfJ5Rpw8]

ferme ton classeur sans sauver :

Code :

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

1
2
 
xls.Close false'Fermeture du classeur Excel

[patou60110]

bonjours bbil, le probleme reste le memes.

[SfJ5Rpw8]

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