Comment lire dans un fichier ??

T

Tcho!

XLDnaute Junior

• 18 Mars 2005

• #2

=[''&A2]Sheet1!$A$1
en A2 la référence de ton fichier ???
Je ne suis pas sur que cela fonctionne

 

Vote positif 0 Vote négatif

M

Marcooo

Guest

• 18 Mars 2005

• #3

Eh non, cela ne marche pas

Merci quand pour le coup de main...

La question reste ouverte

 

Vote positif 0 Vote négatif

M

marcooo

Guest

• 21 Mars 2005

• #4

m'enfin, ça doit quand même exister non ?

:evil:

 

Vote positif 0 Vote négatif

_Thierry

XLDnaute Barbatruc

Repose en paix

• 21 Mars 2005

• #5

Bonjour Marco, Tcho

Tu pourras t'inspirer de cette démo, pour écrire par VBA des Formules en Dûres...

Lien supprimé

Ici il y a une variable 'An' pour les Feuilles, mais le principe serait le même pour des chemins et noms de fichiers... (J'ai aidé sur un truc comme çà, mais plus le temps de trouver)

Bonne Journée
@+Thierry

 

Vote positif 0 Vote négatif

M

Marcoo

Guest

• 21 Mars 2005

• #6

Merci Thierry,

Je vais y jeter une couille

Mais le truc, c'est que je voudrais le faire via une formule, et non par une macro. Je sais, je suis difficile, mais c'est dans un soucis de commodité.

...

 

Vote positif 0 Vote négatif

PascalXLD

XLDnaute Barbatruc

Modérateur

• 21 Mars 2005

• #7

Bonjour

essaies

=INDIRECT('[' &B1&']Feuil1!A1')

Avec en B1 le nom de ton classeur

Bon courage

 

Vote positif 0 Vote négatif

M

Marcoo

Guest

• 21 Mars 2005

• #8

ça ne marche pas :-(

il me renvoie #REF...

:S

 

Vote positif 0 Vote négatif

_Thierry

XLDnaute Barbatruc

Repose en paix

• 21 Mars 2005

• #9

Re Bonjour Marco, Tcho, Bonjour Pascal, le Forum

Je ne suis pas spécialiste de Formule, mais Indirect, utilisé avec ta syntax, Pascal, ça fonctionne, mais uniquement si le Fichier en 'Link' est Ouvert...

J'ai essayé différents trucs :
= INDIRECT(''C:\\MesDocuments\\[' &B1& ']Sheet1!$A$1')

ou Encore (A2 contenant le Path)
=CONCATENATE('=''&A2&(INDIRECT('['&B2&']Sheet1!A1')))

Enfin je vous passe mes exemples qui n'ont aboutis à rien !! LOL mais je précise je ne suis absolument pas 'Formuliste'

Sinon En VBA, pour peu que tu aies les renseignements adéquates en Cellule 'A1'/'B1'/'C1'/'D1' ça donne çà :

Code:

Sub LinkBuilder()
Dim CellPath As String
Dim CellFile As String
Dim CellSheet As String
Dim CellRange As String
Dim TheCompletePath As String

    CellPath = Range('A1')  'Chemin  EG 'C:\\Mes Documents\\'
    CellFile = Range('B1')  'Fichier EG 'MonTest.xls'
    CellSheet = Range('C1') 'Feuille EG 'Feuil1'
    CellRange = Range('D1') 'Cellule EG 'A1'

TheCompletePath = ''' & CellPath & '[' & CellFile & ']' & CellSheet & ''!' & CellRange

ActiveCell.Formula = '=' & TheCompletePath

End Sub

Voilà, par contre Marco, je te conseille gentillement de maîtriser un petit peu les mots que tu emploies dans ce Forum, on est pas dans un Tchat ou je ne sais quelle foire.

Tu as notre Charte qui devrait t'aider à être un peu plus 'XLD-Compliant', merci d'avance.

Bonne Journée
@+Thierry

 

Vote positif 0 Vote négatif

PascalXLD

XLDnaute Barbatruc

Modérateur

• 21 Mars 2005

• #10

Re

exact Thierry il faut que le fichier soit ouvert

Voici ce que dit l'aide :

Si l'argument réf_texte fait référence à un autre classeur (une référence externe), ce dernier doit être ouvert. Si le classeur auxiliaire ne l'est pas, la fonction INDIRECT renvoie la valeur d'erreur #REF!

Toutes mes excuses

 

Vote positif 0 Vote négatif