Discussion :

[jurgh]

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 :

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

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 :

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

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

[diude54]

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 :

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

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 :

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

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

[Fvandermeulen]

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+

[jurgh]

Merci à vous deux.
Cordialement
Jurgh