YANN-56
XLDnaute Barbatruc
Bonjour à ceux qui passeront par ici,
Lors d'un échange avec JNP dans cette discussion:
https://www.excel-downloads.com/thr...-de-cellules-dans-des-fichiers-fermes.173339/
J'ai bien noté son aide qui fonctionne parfaitement après avoir rédigé un chemin précis.
Mais je patine grave car mon Chemin est Variable, ainsi que le nom de la Feuille.
(Je suis obligé de nettoyer mes lunettes à chaque essai à cause des ", des ' des [, et des !)
J'utilise la propriété "Mots-Clés" du Classeur maître où est rédigé le Chemin d'une base de données.
Exemple: I:\TRAVAUX\EN_COURS\BASE\
Dans le Dossier "BASE, on vient chercher le Sous-dossier "MACHIN",
puis extirper le contenu de certaines Cellules de la Feuille "FICHE" du Classeur "DONNEES" qui y est présent.
Et voici ou le bât blesse:
Je joins, par ailleurs, un Classeur qui me semble bien instructif que j'ai retrouvé dans mes Archives)
(On ne sait jamais! Même si je n'ai pas de réponse, il pourra toujours servie à quelqu'un bien-comprenant!)
Est-ce en raison de mes limites neuronesques dues à mon âge ou innées?
Je n'y pige pas grand-chose dans les premières lignes. Pourtant indispensables pour aller plus loin!
Si vous pouvez m'aider quant à la bonne syntaxe du code, je vous en serai énormément reconnaissant.
Yann
Lors d'un échange avec JNP dans cette discussion:
https://www.excel-downloads.com/thr...-de-cellules-dans-des-fichiers-fermes.173339/
J'ai bien noté son aide qui fonctionne parfaitement après avoir rédigé un chemin précis.
Code:
For i = 1 To 2
MsgBox ExecuteExcel4Macro("'C:\Users\JNP\Desktop\[Téléphone.xls]JNP'!R" & i & "C1")
Next i
(Je suis obligé de nettoyer mes lunettes à chaque essai à cause des ", des ' des [, et des !)
J'utilise la propriété "Mots-Clés" du Classeur maître où est rédigé le Chemin d'une base de données.
Exemple: I:\TRAVAUX\EN_COURS\BASE\
Dans le Dossier "BASE, on vient chercher le Sous-dossier "MACHIN",
puis extirper le contenu de certaines Cellules de la Feuille "FICHE" du Classeur "DONNEES" qui y est présent.
Et voici ou le bât blesse:
Code:
REPERTOIRE_CHOISI = ThisWorkbook.Keywords
For i = 1 To 2
ThisWorkbook.Worksheets("Feuil1").Cells(i, 1).Value = ExecuteExcel4Macro("REPERTOIRE_CHOISI & MACHIN\[DONNEES.xls]FICHE'!R" & i & "C1")
Next i
(On ne sait jamais! Même si je n'ai pas de réponse, il pourra toujours servie à quelqu'un bien-comprenant!)
Est-ce en raison de mes limites neuronesques dues à mon âge ou innées?
Je n'y pige pas grand-chose dans les premières lignes. Pourtant indispensables pour aller plus loin!
Si vous pouvez m'aider quant à la bonne syntaxe du code, je vous en serai énormément reconnaissant.
Yann