lien entre fichiers excel fermés

[dou129]

Bonjour,

J'ai parcouru le forum et j'ai trouvé de nombreux sujet en relation avec mon problème sans parvenir à faire ce que je voulais. Je suis peut-être trop bête.

Je souhaite récupérer des valeurs de cellules de différents fichiers excel "annexe" dans un fichier excel "principal".
Tous mes fichiers excel annexes on le même principe de dénomination (nom1, nom2, nom3...) et sont situés dans un même dossier.

Pour la compilation des données dans mon fichier principal je souhaite que le lien soit crée à partir d'une chaine de caractère (comme ça je peux modifier facilement les info que je souhaite récupérer).

Dans mon fichier principal le chemin d'accès serait spécifié dans différentes cellules :
la cellule A1 contiendrait "chemin d'accès (C:\dossier1\dossier2\)"
la cellule A2 contiendrait "nom1.xlsx"
la cellule A3 contiendrait "nom de la feuille (feuil1)"
la cellule A3 contiendrait "nom de la cellule (B2)"

j'ai ensuite une cellule récapitulative qui concatènerait toute ces infos et irai chercher la valeur requise.

J'arrive à faire ça avec INDIRECT, mais cela ne fonctionne que quand les fichiers "annexes" sont ouverts.
Avez vous une méthode pour faire ça avec des fichiers "annexes" fermés.

Je précise que je souhaiterai faire ça sans macro.

Merci d'avance pour votre aide.

 

[david84]

Re : lien entre fichiers excel fermés

Bonjour,
je ne pense pas que tu puisses le faire comme tu le souhaites en ayant les différentes informations dans des cellules différentes (ou même dans une cellule) sans passer par une macro.
Par formule

='C:\Users\xxx\Desktop\[MonClasseur.xls]Feuil1'!$A$1

te ramène la valeur de la cellule. L'utilisation de RECHERCHEV te la ramène également :

=RECHERCHEV('C:\Users\xxx\Desktop\[MonClasseur.xls]Feuil1'!$A$1;'C:\Users\xxx\Desktop\[MonClasseur.xls]Feuil1'!$A$1:$A$10;1)

mais dans les deux cas le chemin doit être inscrit en dur.

Par macro l'utilisation d'une macro XL4 peut le faire :

Sub Val_classeur_fermé()
Dim chemin As String, classeur As String, feuille As String, cellule As String
chemin = Range("A1").Value
classeur = Range("A2").Value
feuille = Range("A3").Value
cellule = Range("A4").Value 'inscrire les coordonnées de la cellule en R1C1 (par exemple pour A1 mettre R1C1)
Range("A5").Value = ExecuteExcel4Macro("'" & chemin & "[" & classeur & "]" & feuille & "'!" & cellule)
End Sub

Ou alors passer par ADO.
Mais peut-être que quelqu'un trouveras une solution par formule.
A+

 

[job75]

Re : lien entre fichiers excel fermés

Bonjour dou129, David,

Téléchargez sur le web la macro complémentaire Morefunc de Laurent Longre, c'est gratuit.

Pour l'installer sur Excel 2010 cherchez comment faire sur XLD.

C'est une bibliothèque de fonctions qui contient entre autres INDIRECT.EXT qui fonctionne même si le classeur est fermé.

Utilisez-la avec la formule :

=INDIRECT.EXT("'"&A1&"["&A2&"]"&A3&"'!"&A4)

A+

 

[dou129]

Re : lien entre fichiers excel fermés

Merci pour vos réponses.
Je vais donc faire une macro.

 

[BOISGONTIER]

Re : lien entre fichiers excel fermés

Bonsoir,


Ecriture dynamique d'une formule pour accéder à une information d'un classeur fermé variable

http://boisgontierjacques.free.fr/fichiers/Tableur/RecupClasseurFermeRechercheV2.xls

Récup info dans classeur fermé

Fonction LitUneCellule avec ADO

JB