XL 2013 Lire le champ d'un autre fichier.

S

st007

XLDnaute Barbatruc

• 6 Février 2016

• #2

Re : Lire le champ d'un autre fichier.

Bonsoir,
indirect est fait pour toi, ....

 

Vote positif 0 Vote négatif

S

st007

XLDnaute Barbatruc

• 6 Février 2016

• #3

Re : Lire le champ d'un autre fichier.

Bonsoir,
indirect est fait pour toi, ....
ou bien encore ce post :
https://www.excel-downloads.com/threads/lire-dans-un-fichier-ferme.20005049/
pour éviter le indirect.ext de laurent longre

 

Vote positif 0 Vote négatif

F

fredqc31

XLDnaute Nouveau

• 6 Février 2016

• #4

Re : Lire le champ d'un autre fichier.

Mais si j'utilise indirect, le fichier où se trouve la donnée doit être ouvert, c'est bien ça?

Quelle genre de code VB devrais-je entrer pour pouvoir le faire mais avec le fichier source fermé?

 

Dernière modification par un modérateur: 6 Février 2016

Vote positif 0 Vote négatif

S

st007

XLDnaute Barbatruc

• 6 Février 2016

• #5

Re : Lire le champ d'un autre fichier.

tout à fait....

 

Vote positif 0 Vote négatif

F

fredqc31

XLDnaute Nouveau

• 6 Février 2016

• #6

Re : Lire le champ d'un autre fichier.

Accepteriez-vous de me donner un indice sur comment m'y prendre en VB? je suis pas très famillier avec VB.

 

Vote positif 0 Vote négatif

S

st007

XLDnaute Barbatruc

• 7 Février 2016

• #7

Re : Lire le champ d'un autre fichier.

Un peu comme ceci .

 

Pièces jointes

• fredqc31.xlsm

  15.3 KB · Affichages: 28
• fredqc31.xlsm

  15.3 KB · Affichages: 26

Vote positif 0 Vote négatif

F

fredqc31

XLDnaute Nouveau

• 8 Février 2016

• #8

Re : Lire le champ d'un autre fichier.

Incroyable! exactement ce que je cherche à faire! Merci beaucoup st007!!! tu as visé juste!

Maintenant tout ce que j'ai à faire c'est d'ajouter des procédures VB autant que je veux afin de recevoir le même genre de résultats dans d'autres cellules:

Par exemple si je souhaites que dans la cellule E6 on affiche la valeur de $C$19 du même fichier j'aurais juste à ajouter le code suivant à la suite du premier?


Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, [A1]) Is Nothing Then _
[E6] = "='C:\temp2\[" & [A1] & ".xlsx]Feuil1'!$C$19"
End Sub

c'est bien ça? et ce pour toutes les cellules que j'ai besoin?

 

Vote positif 0 Vote négatif

S

st007

XLDnaute Barbatruc

• 8 Février 2016

• #9

Re : Lire le champ d'un autre fichier.

Ce fichier donne quoi ?

 

Pièces jointes

• fredqc31.xlsm

  15.5 KB · Affichages: 25
• fredqc31.xlsm

  15.5 KB · Affichages: 25

Vote positif 0 Vote négatif

F

fredqc31

XLDnaute Nouveau

• 9 Février 2016

• #10

Re : Lire le champ d'un autre fichier.

Ca dit:

 

Pièces jointes

• error.jpg

  24.6 KB · Affichages: 23

Vote positif 0 Vote négatif

S

st007

XLDnaute Barbatruc

• 9 Février 2016

• #11

Re : Lire le champ d'un autre fichier.

Et ?

Code:

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, [A1]) Is Nothing Then
  [E5] = "='C:\temp2\[" & [A1] & ".xlsx]Feuil1'!$C$18"
  [E6] = "='C:\temp2\[" & [A1] & ".xlsx]Feuil1'!$C$19"
  [E7] = "='C:\temp2\[" & [A1] & ".xlsx]Feuil1'!$C$20"
  End If
End Sub

 

Vote positif 0 Vote négatif

F

fredqc31

XLDnaute Nouveau

• 11 Février 2016

• #12

Re : Lire le champ d'un autre fichier.

Ca fonctionne... Il manquait juste le end IF à ce que je peux voir... N'est-ce pas?

 

Vote positif 0 Vote négatif