Lire une cellule dans un autre fichier

Hello
mon programme 'test' se trouve sous:S:\SAT-DOC\macros
mon fichier mesdonnées se trouve aussi sous:S:\SAT-DOC\macros

Le code ci-dessous fonctionne même quand j'appelle test depuis un fichier ne se trouvant pas sur le disque S: (ce qui m'étonne)

Code:

---

1 2	Sub test() Cells(1, 1).Value = Workbooks("mesdonnées").Worksheets("TXT").Cells(2, 2).Value

---

est-ce parce que 'test' et 'mesdonnées' se trouvent au même endroit?

par contre le code ci-dessous ne fonctionne pas alors que je donne le chemin complet

Code:

---

1 2	Cells(1, 1).Value = Workbooks("S:\SAT-DOC\macros\mesdonnées").Worksheets("TXT").Cells(2, 2).Value End Sub

---

et je ne comprends pas pourquoi

Quand tu lance la première macro, est ce que le fichier ou tu vas lire la cellule est ouvert, auquel cas c'est normal;
Si ce fichier sera tjs ouvert au moment ou tu lance ta macro tu peux laisser tel quel. Sinon tu peux identifier le fichier en demandant à l'utilisateur de le selectionner:

Code:

---

1 2 3

Dim Fsource as Excel.Workbook Set Fsource=Application.GetOpenFilename("Fichiers Excel (*.xls), *.xls", , , , True) Fsource.Range("A2").value= "ce que tu veux"

---

Sinon tu peux donner directement le chemin et l'ouvrir:

Code:

---

set Fsource= Workbooks.Open Filename:="S:\SAT-DOC\macros\mesdonnées.xls"

---

Salut jurgh (salut Diude54),
Pour une fois j'ai fais le refresh à temps, alors pour dire quelque chose d'autre que Diude54, voici le lien vers un Tuto pour éviter d'ouvrir le fichier...pour le sport ;)
http://silkyroad.developpez.com/VBA/ClasseursFermes/
A+

Merci à vous deux.
Cordialement
Jurgh