fonction GetValueWithADO

Bonjour,

Difficile de te répondre sans voir le listing mais le mieux serait de demander à Fred Sigonneau lui_même sur son site ou sur le MPFE...


Maintenant, si tu n'as qu'une seule cellule à recopier (c'est le but de cette fonction de Fred) tu peux le faire en une ligne avec la macro XL4 de John Walkenbach dont voici un copier-coller tiré d'un fil sur ce forum:

Range('e20').Value = ExecuteExcel4Macro(''C:\\[fichier_a.xls]Feuil1'!R2C13')

A+
Michel

Bonjour Michel, le forum,

je te remercie Michel pour ton conseil,mais je ne comprend pas trop pourquoi 'R2C13' dans la formule, est une bourde ou y a il une raison. Dans ce cas comment défini t'on les coordonnés de la cellule?
@+
Ludovic

Re

Ce n'est pas une bourde, mais la forme anglaise de L2C13 (dans XL4, les colonnes étaient désignées par un nombre)

Il faut donc que tu écrives DR en nombre soit 122

tu peux alors affecter une variable mettons 'macell' avec R...C...
macell='R' & (1380+ct) & 'C' & 122

que tu écris dans la ligne avec' & macell &' au lieu de R1C1



Michel

Re Michel, le forum,

Je me doutais bien que c'en était pas une, étant donné mon aisance dans le système de notation, d'ailleur, comment je note le nom de mon fichier, qui est une variable:
Range('e20').Value = ExecuteExcel4Macro('mon_fichierFeuil1'!macell')
Désollé pour la pauvreté de mes connaissances.
@+
Ludovic