Discussion :

[ToxiK]

Bonjour,

Je veux écrire dans une cellule Excel à partir de VB6

Je veux en fait écrire une fonction:

Code :

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

=ATGetCurrVal(457854; """"; """"; 1040; 1; 0)

POur écrire dans la cellule je fais :

Code :

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

F_Excel.Cells(1,1).Value = "ATGetCurrVal(457854; """"; """"; 1040; 1; 0)"

Mais ca ne marche pas :

Run-time error '1004'
Application-defined or object-definied error

Comment dois-je faire ?

[SfJ5Rpw8]

F_Excel c'est bien ta feuille excel ?

remplace le .value par .Formula (ou .FormulaLocal, en français..)

et rajoute le = qui manque..

[Vesta]

Code :

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

F_Excel.Cells(1,1).FormulaLocal = "=ATGetCurrVal(457854, """", """", 1040, 1, 0)"

Si F_Excel est une feuille... Ca je n'en sais rien mais je le devine...

[ToxiK]

Merci ca marche

Code :

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

1
2
F_Excel_Tags.Cells(i, 3).FormulaLocal =
"=ATGetCurrVal(456213; """"; """"; 1040; 1; 0)"

par contre je n'arrive pas à composer avec dse variables

Code :

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

Tag = F_Excel_Tags.Cells(i, 1).Value

Code :

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

1
2
F_Excel_Tags.Cells(i, 3).FormulaLocal =
"=ATGetCurrVal(" & Tag & "; """"; """"; 1040; 1; 0)"

Et je n'arrive pas à recuperer la valeur du champ ou j'ai envoyer la fonction

Code :

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

Rs_Tags!Current = F_Excel_Tags.Cells(i, 3).Value

F_Excel_Tags est bien une feuille

et Rs_Tags est un recordset ^^

[zazaraignée]

Salut

Et si tu lui poussait un

Code :

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

F_Excel_Tags.Calculate

avant de récupérer la valeur de ta cellule?

[ToxiK]

Ca avance :

J'arrive à metter la formule dans excel

Code :

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

1
2
FormuleCurrent =
CStr("=ATGetCurrVal(""45F085""; """"; """"; 1040; 1; 0)")

Code :

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

F_Excel_Tags.Cells(i, 3).FormulaLocal = FormuleCurrent

Par contre que je mette le .Calculate ou pas ca ne change rien...

Code :

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

F_Excel_Tags.Calculate

J'ai essayé sur la cellule aussi ...

Code :

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

F_Excel_Tags.Cells(i,3).Calculate

Mais aucun résultat non plus


Sinon j'arrive à récupere le résultat en découpant l'action :

Code :

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

Recup = CIntF_Excel_Tags.Cells(i, 3).Value

Code :

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

Rs_Tags!Current = Recup

Mais la valeur qui arrive dans mon recordset est toujours 2029, (je précise que c'est pas la valeur que la fonction, retourne sur Excel non plus)

--> Trouvé c'est en fait Error 2029 parce que le champs excel affiche #NOM?
car la fonction est écrite mais n'est pas calculée


Et je n'arrive pas à mettre une variable dans ma formule; comme ceci :

Code :

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

Tag = CStr("24FD033")

Code :

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

1
2
FormuleCurrent =
CStr("=ATGetCurrVal( & Tag & ; """"; """"; 1040; 1; 0)")

2 choses :

- Comment composer la fonctions avant de l'envoyer sur Excel

- Comment faiore pour actualiser la feuille, ou simplement la cellule une fois qu'elle contient la fonction, pour ensuite recupérer le résultat.

[zazaraignée]

Il sert à quoi to recordset? Tu envoie le résultat dans une base de données Access?

[ToxiK]

Non c'est pour afficher dans un datagrid, et aussi car j'en ai besoin dans une autre feuille.

Je ne comprends tjs pas pourquoi je n'arrive pas ça composer la fonction avec des variables ...

Code :

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

Tag = CStr("24FD033")

Code :

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

1
2
3
 
FormuleCurrent =
CStr("=ATGetCurrVal( & Tag & ; """"; """"; 1040; 1; 0)")

[SfJ5Rpw8]

te manquerai pas des ".. ?

Code :

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

...FormulaLocal  = "=ATGetCurrVal( " & Tag & "; """"; """"; 1040; 1; 0)"