récupérer la valeur d'une cellule

[Sophie]

Bonsoir le forum,

je souhaiterai récupérer la valeur d'une cellule d'un autre Classeur, mais après plusieurs éssais, je n'y arrive toujours pas.
Pourriez vous m'aider s'il vous plait?

 

[Sophie]

Re bonsoir ou plutôt bonjour à tous,

Petit complément d'information, le classeur dans lequel je dois aller récupérer l'information n'est pas obligatoirement ouvert.

Merci à tous et bonne journée.

 

[andré]

Bonjour Sophie,

Je suis sous XP et XL2003

En donnant le chemin complet de la cellule sous la forme suivante :
='C:\nom_du_dossier\[nom_du_fichier.xls]nom_de_la_feuille'!référence de la cellule

Exemple : ='C:\xld\[toto.xls]Feuil1'!A1

Il se pourrait que cela ne fonctionne pas sous des versions antérieures.
Une formule a été donnée sur ce site, mais je n'en ai pas tenu copie (de mémoire mi-2002), et depuis redonnée à plusieurs reprises.
Il faudra que tu fasses une recherche en demandant "andré" comme auteur.

Ândré.

 

[Sophie]

Bonjour André,

j'avais essayée effectivement ce genre de chose:

Dim An as Variant
An = 'chemin complet\[nomdefichier.xls]Feuil1'!$A$1

sans succès. j'ai W2k+Office2003 ?
je vais voir ton autre poste et je te tiens au courant,
Merci.

 

[andré]

Resalut,

La solution que j'ai donnée est une formule, pas un code VBA !

Ândré.

 

[Sophie]

Bonsoir à tous,

j'ai fait le tour de tes méssages andré 'depuis toujours' mais cela n'a rien donné.
Dans mon dernier poste , il semblerai que j'ai une erreur de syntaxe à la ligne An=...

 

[genevieve]

Bonjour sophie,
j'ai la solution ,je vous l'envoie demain .il faut que je consulte mes fichiers .
mais je suis certaine que ça va marcher .patientez jusqu'à demain .

salut genevieve

 

[Sophie]

Bonjour Geneviève, le forum,

Je te remercie Geneviève, en attendant ta solution, je continue mes recherches.

 

[genevieve]

Bonjour,
je m'excuse pour le retard
voila la solution :
' la valeur qui se trouve dans la cellule A121 sera affectée à une variable

Dim monclasseur As Workbook
Set monclasseur = GetObject("Chemin vers le fichier\***.XLS")
unevariablex = monclasseur.Sheets(1).Cells(121, 1).Value
Cells(1, 1) = unevariable

bon chance

 

[genevieve]

Bonjour,

Je suis très gênée pour le retard . Je m’excuse encore une fois .

En fait la variable " monclasseur " représente votre classeur ( chemin \***.XLS ) sans l’ouvrir. Vous pouvez lire et modifier les données si vous voulez .
Exemple :

Dim monclasseur As Workbook
Set monclasseur = GetObject("Chemin vers le fichier\***.XLS")
Xij=monclasseur.sheet(" feuil1").Range("A5").Value


j'espère que ça va marcher pour vous , je viens de l'essayer sur mon PC.

dans message précédant ,j'ai fais une erreur dans la dernière ligne qui est elle même inutil :
cells(1,1)=unevariablex au lieu de unevariable