Confusion de reference range d'un autre fichier

Bonjour,

Afin de réaliser des compilations de données, j'ai créé un fichier référence que je duplique à chaque nouveau projet.
Tout mes titres d'onglets sont référencés sous un nom type "titre1" pour l'onglet 1, "titre2" pour le 2e, etc.
Ceci permet au responsable de projet de personnaliser soit le contenu des titre, soit le nom de l'obglet, mes macros faisant alors référence à chacun par le code

Code:

---

feuille = range("titreX").worksheet.name

---

.
Cependant j'ai un problème quand je lance une compilation de tous les projets.
Ma logique voulait que je me réfère à des feuilles précises de chaque projet (fichier) grâce à la référence de leur titre avec un procédure de ce type :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14

chemin = chemin & "\" ChDir chemin monfichier = Dir(chemin & "*.xls") Workbooks.Open chemin & monfichier Workbooks(monfichier).Activate   While monfichier <> "" with activeworkbook ' le fichier projet est activé workbook("synthese").worksheets(1).cells (3 + k, 2 ) = worksheets(range("titre3").worksheet.name).cells(10,6).value end with wend monfichier = Dir$ Workbooks(nom_fichier).Activate

---

Problème : le fichier "synthèse" dispose lui aussir de référence "titre1", "titre2", etc. Mais les feuilles ne portent pas le même nom que ceux des fichiers de projet. La macro se lance du fichier synthèse et il semble donc que malgré la procédure "with", ce soit le nom de la feuille "titre1" du fichier "synthèse" qui soit retenue.
Voyez vous une parade ? Merci

Bonjour,

je ne comprends peut-être pas tout mais ça

Code:

---

1 2 3

with activeworkbook ' le fichier projet est activé workbook("synthese").worksheets(1).cells (3 + k, 2 ) = worksheets(range("titre3").worksheet.name).cells(10,6).value end with

---

ça n'active pas ton projet et ne sert à rien dans le code

J'ai du mal à comprendre mais si le problème se pose sur

Code:

---

with activeworkbook

---

pourquoi ne pas essayer

Code:

---

Workbooks("MonFichier")

---

Yep... j'ai essayé de simplier le basard, mais du coup, cela perturbe plus que cela n'arrange.

Autre illustration du probleme.
J'ai un fichier référence que je dupplique à chaque nouveau projet que j'ai.
Il y a 3 onglets.
Le contenu de chaque titre d'onglet et le nom de chaque onglet peuvent varier un peu en fonciton du projet.
C'est pourquoi je crée la référence titre1, titre2, titre3 au niveau de la cellule de chaque titre pour pouvoir me référencer à l'onglet désiré sans me soucier de la dénomination exacte de la page, ni de l'index de la feuille (car elle peut changer lors de la duplication....).
J'ai un document de synthèse avec aussi titre1, titre2, titre3 comme référence.
L'objectif est de centraliser et de faire un grand nombre de calcul en partant des information de chaque projet pour les rapporter sur le document de synthèse.

Tant que je joue les macros dans un seul fichier, tout va bien.
Mais si je veux compiler les informations de chaque onglet "titre2" par exemple, y a des soucis car le nom de la page remontée est celui du fichier d'où la macro se joue. Si le nom de l'onglet a été modifié, ca plante (ce qui est contre la philosophie de la programmation effectuée).
Voila le contexte compliqué....

Donc la question est en faite plus simple maintenant :
comment connaitre le nom de la page où figure une référence (ici par exemple "titre3" alors que la macro est lancée d'un autre fichier et qu'elle a aussi une référence qui s'appèle "titre3"...

Merci.

Bonjour,
je ne comprends pas non plus ton code car il est très spécial.

Essaie plutôt comme ceci, en espérant que j'ai compris ce que tu souhaites.

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14

chemin = chemin & "\" 'ChDir chemin ** INUTILE ** monfichier = Dir(chemin & "*.xls") Workbooks.Open chemin & monfichier 'Workbooks(monfichier).Activate *** INUTILE **   While monfichier <> "" with workbooks(monfichier) workbook("synthese").worksheets(1).cells (3 + k, 2 ) = .worksheets(range("titre3").worksheet.name).cells(10,6).value end with workbooks(monfichier).close monfichier = Dir wend

---

Il te manquait aussi le close de tes fichiers "monfichier".
Le Dir de fin doit être dans la boucle et pas en dehors.
Ton with était inutile car tu ne n'utilisais pas dans ton code. L'impact se fait sur les référence qui commence par .
Dans mon code, c'est après l'égal. C'est cela qui fait la différence avec le tien, car Ws("Titre3") dans ton code se réfère au fichier actif. dans le mien il, se réfère à mon fichier.

mais, tu as beau réexpliquer de la même manière, je ne suis quand même pas certain de comprendre.

NB : on peut aussi lire dans un fichier excel sans l'ouvrir (ADO).

J'aurais jamais du ecrire rapidement les ligne de ma première intervention, est nous distrait du propos.
Mais merci pour les optimisation, ca me donne de nouvelles idées pour autres choses.

Je vais encore racourcir la question.
Votre fichier de travail a une cellule de référence nommer "titre"
Par une macro, on parcoure d'autres fichiers qui dispose de la référence "titre" également.

Par quelle ligne de code peut on connaitre la page où se trouve la référence titre sur chacun des fichiers ?

PS : Godzestla tu dis qu on peut parcourir un fihcier xls sans l'ouvrir ?
tu peux m'expliquer, stp ?

Citation:

---

Envoyé par Gautheron

J'aurais jamais du ecrire rapidement les ligne de ma première intervention, est nous distrait du propos.

PS : Godzestla tu dis qu on peut parcourir un fihcier xls sans l'ouvrir ?
tu peux m'expliquer, stp ?

---

Waw, plus tu expliques, moins je comprends..... :aie:

Pour ce qui est de ta nouvelle question, regarde ici

[QUOTE=Gautheron;4136911]
Je vais encore racourcir la question.
Votre fichier de travail a une cellule de référence nommer "titre"
Par une macro, on parcoure d'autres fichiers qui dispose de la référence "titre" également.

Par quelle ligne de code peut on connaitre la page où se trouve la référence titre sur chacun des fichiers ?
QUOTE]

Dans ce cas, si titre figure dans les différents fichiers et qu on joue la macro contenu dans le fichier de travail, avec

Code:

---

1 2 3

with workbooks("autrefichier.xls") 'autrefichier n'est pas mon fichier de travail feuille = range("titre").worksheet.name

---

,
le code renvoie le nom de la feuille de travail, et non ^pas de autre fichier.
Comment faire pour etre sur que ce soit celui des l'autre fichier ?
j'ai essayé :

Code:

---

feuille = Workbooks("autrefichier.xls".range("titre").worksheet.name

---

mais ca ne semble pas marcher... quelsqu'un aurait il une meilleure idée ?

Citation:

---

Votre fichier de travail a une cellule de référence nommer "titre"

---

S'agit-il d'une plage nommée ?

Citation:

---

Envoyé par aalex_38

S'agit-il d'une plage nommée ?

---

oui

Pour accéder à une plage noméé utilises la collection names :

Code:

---

1 2 3

MsgBox ThisWorkbook.Names("titreII").RefersTo ' => me renvoi l'adresse de la plage nommée "titreII" , dans mon exemple ' =Feuil1!$H$15:$H$27

---

Merci Alex, c'est exactement la voie que je cherchais. Cette écriture semble écite les confusions entre des références de mêmes noms alors que les solutions que j'avais développé était des usines à gaz (la gestion des références lors de copie / renomination de fichier semble être hyper bordélique).

J'ajouterai les lignes suivantes pour nos comparses développeurs qui auraient les même préoccupation que moi

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20

Function feuille_titre(fichier_concerné, range_concerné) ref = Workbooks(fichier_concerné).Names(range_concerné).RefersTo 'la condition if est seulement une précaution contre les confusions de références de noms identifiques. Les refersto apparaissent alors avec tout le chemin du fichier, donc le ".xls" 'cette condition est normalement inutile If InStr(ref, ".xls") = 0 Then feuille_titre = Left(Right(ref, Len(ref) - 2), InStr(Right(ref, Len(ref) - 2), "'!") - 1)   End Function Function colonne_titre(fichier_concerné, range_concerné) ref = Workbooks(fichier_concerné).Names(range_concerné).RefersTo addresse = Right(ref, Len(ref) - InStr(ref, "!$") - 1) colonne_alphabet = Left(addresse, InStr(addresse, "$") - 1) colonne_titre = 26 * InStr("ABCDEFGHIJKLMNOPQRSTUVWXYZ", Left(colonne_alphabet, 1)) * (Len(colonne_alphabet) - 1) + InStr("ABCDEFGHIJKLMNOPQRSTUVWXYZ", Right(colonne_alphabet, 1)) 'comme Len(colonne_alphabet) ne peut etre supérieur à 2 jusqu'à excel 2003, (Len(colonne_alphabet) - 1) permet d'annuler cette première partie s'il s'agit d'une référence à colonne unique End Function Function ligne_titre(fichier_concerné, range_concerné) ref = Workbooks(fichier_concerné).Names(range_concerné).RefersTo addresse = Right(ref, Len(ref) - InStr(ref, "!$") - 1) ligne_titre = Right(addresse, Len(addresse) - InStr(addresse, "$")) End Function

---