Discussion :

[deubelte]

Bonjour
Je voudrais communiquer entre deux fichiers excel, mais l'un reste ferme l'autre est bien sur ouvert, mais surtout ces deux fichiers sont dans des chemins d'acces differents

Prenons un exemple. Le fichier ouvert est Book1 le fichier ferme est book2.
Ces deux fichiers se trouvent dans le chemin d'acces su
C:\Documents and Settings\Desktop

Si je fais ca:

Code :

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

1
2
ChDir "C:\Documents and Settings\Desktop"
a = Workbooks("Book2.xls").Sheets("Data CHECK").Range("A19")

Ca ne fonctionne pas

Comment faire pour communiquer entre deux fichiers dont l'un est ferme?

Merci

[ouskel'n'or]

Regarde ici, SilkyRoad donne "une" solution.
En fait, j'en ai vu passer une autre plus simple sur le forum, utilisable pour récupérer une donnée isolée. Si je la retrouve, je te la mets.
A+

Edit
Trouvé !
Regarde ici

[deubelte]

Voila ce que j'ai fait:
Quand je lance la macro, ca m'ouvre un truc qui s'appelle Update Value qui me demande quel fichier je dois ouvrir.
Ensuite, il ya une erreur 2023.

Code :

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

1
2
3
4
5
6
7
8
9
10
 
 Dossier = "C:\Documents and Settings\gazzanp\Desktop"
 Fichier = "Book2.xls"
 Feuille = "Data CHECK"
 Cellule = "A19"
 
    Dossier = Replace(Dossier, "'", "''")
    Fichier = Replace(Fichier, "'", "''")
    Argument = "'" & Dossier & "[" & Fichier & "]" & Feuille & "'!" & Range(Cellule).Address(, , xlR1C1)
    ExtraireValeur = ExecuteExcel4Macro(Argument)

[tomy7]

Code :

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

1
2
3
Private Sub Workbook_Open()
    Application.AskToUpdateLinks = False
end sub

test ceci

[ouskel'n'or]

Déjà, le nom de ton dossier doit comporter un "\" en fin de nom.
Ça, c'est pour le répertoire.
Tu peux déjà tester en modifiant ça ?
A+

PS - Je serais intéressé de savoir si, dans ton exemple, le code que donne Polska (que je comprends) change quelque chose (ce que je ne sais pas)
Merci

[deubelte]

ca ne fonctionne pas
car quand il me demande d'Updater les values, c'est le book2 (cest a dire celui qui est ferme) qui est concerne
j'ai copie ton bout de code dans les deux fichier( celui qui est ouvert et celui qui est ferme).

[deubelte]

Ca fonctione merci

[tomy7]

copie ca juste dans celui qui est ferme
et mets:
Dossier = "C:\Documents and Settings\gazzanp\Desktop\"

et non : Dossier = "C:\Documents and Settings\gazzanp\Desktop"

[ouskel'n'or]

Pourrais-tu nous dire ce que tu as changé ?
Merci

[deubelte]

j'ai mis le slash a la fin du chemin d'acces et j'ai mis la macro
Application.AskToUpdateLinks = False

[tomy7]

as tu essaye sans Application.AskToUpdateLinks = False?

peut etre que ca fonctionne aussi?

[deubelte]

En fait, j'aimerais apporter une modification a ce fichier
Il se peut que le fichier excel qui doit rester fermé n'existe pas

il faut donc que je mette un test pour savoir si le fichier excel existe ou non

comment tester lexistence d'un fichier?
merci

[ouskel'n'or]

Code :

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

1
2
3
4
5
6
7
8
Sub test()
NomFich = "coucou.xls"
Chemin = "D:\Rep\"
If Dir(Chemin & NomFich) = "" Then
    MsgBox "Fichier " & NomFich & " inexistant dans " & Rep
    Exit sub
Endif
End Sub

[deubelte]

merci