Plage de données d'un graphique - Comment insérer une formule pour indiquer le nom du fichier

Bonjour,

Je construis un indicateur à l'aide d'une macro installée dans ClasseurMacro (Fichier Macro - RTF-CpySheet.xlsm).
Ce classeur comprend 4 feuilles : "Bouton macro", "BaseDeDonnées", "TableGraphes", "Graphes".
La dernière étape de la macro a pour objectif d'exporter les résultats dans un nouveau fichier (copier/coller des onglets "TableGraphes" et "Graphes").
Le nouveau fichier est nommé "Indicateur"+ date et heure du jour.

Le constat : Le graphe du nouveau fichier pointe sur la plage de donnée du fichier d'origine (ClasseurMacro).
Le besoin : J'aimerais qu'il pointe sur la plage de donnée exportée dans le nouveau fichier, pour rendre les 2 classeurs indépendants.

La tentative de solution :
Mon idée est de modifier le libellé de la plage de données du graphique, en remplaçant le nom du fichier d'origine (en rouge ci-dessous), par une formule dont le résultat est le nom du fichier.
Plage de données:

Code:

---

='[Fichier Macro - RTF-CpySheet.xlsm]TableGraphes'!$A$1:$A$13;'[Fichier Macro - RTF-CpySheet.xlsm]TableGraphes'!$C$1:$E$13

---

Par exemple :
formule :

Code:

---

=STXT(K5;TROUVE("[";CELLULE("nomfichier";A1))+1;NBCAR(CELLULE("nomfichier";A1))-TROUVE("[";CELLULE("nomfichier";A1))-8)

---

Cette formule transforme :

Citation:

---

C:\Users\bonvarmn\OneDrive - bioMérieux SA\2019 - Support QP\RFT - Maquette 4 - Import QP et OOS et Invalides - En cours\[Indicateur_RFT_15-mars-2019_08-39-13.xlsx]Graphes

---

en :

Citation:

---

Indicateur_15-mars-2019_08-39-13.xlsx (c'est le nom d'un "nouveau fichier")

---

Mon idée ne fonctionne pas pour l'instant - Message : "références externes non valides"

Question:
Mon idée est-elle possible à réaliser
Si oui, comment intègre-t-on cette formule (ou une autre)?


Merci d'avance pour votre aide,
Cordialement,
Marino

La seule solution est d'utiliser la fonction INDIRECT().
Mais ça ne fonctionnera que si le fichier source est ouvert, INDIRECT() ne permettant pas de créer des liaisons vers des références externes.

Bonjour,

la formule Cellule je l'utilise sur beaucoup de classeur à mon travail

donc oui l'idée est bonne

ton message apparait à quel moment exactement ?

à bientôt

Bonjour,

Méthode cheap ;

Pour la dernière étape,
Enregistrer le classeur d'origine
faire un déplacement d'onglet sans copie vers un nouveau classeur puis faire un SaveAs avec l'emplacement et le nom désiré.
Le fermer.
Enfin fermer le classeur d'origine sans enregistrer.

A moduler selon le besoin.

Au plaisir,
SM

Menhir, Igloobel, Supermichou

Merci beaucoup pour votre intérêt porté à ma question.
Supermichou,
Je viens de voir ta suggestion qui porte sur la macro et vais la tester sans tarder.

Voilà ce que je viens de tester la suggestion de Menhir (sans succès pour l'instant):

Le fichier d'origine est ouvert

Dans le nouveau fichier:
- la formule qui renvoie le nom du fichier est posée en cellule I1 de la feuille "Graphes"

Code:

---

=STXT(CELLULE("nomfichier";A1);TROUVE("[";CELLULE("nomfichier";A1))+1;NBCAR(CELLULE("nomfichier";A1))-TROUVE("[";CELLULE("nomfichier";A1))-8)

---

- au niveau de la Plage de donnée du graphique, j'ai essayé 4 syntaxes :

Code:

---

1 2 3 4

='[Indirect(I1)]TableGraphes'!$A$1:$A$13;'[Indirect(I1)]TableGraphes'!$C$1:$E$13 ='[=Indirect(I1)]TableGraphes'!$A$1:$A$13;'[=Indirect(I1)]TableGraphes'!$C$1:$E$13 ='[=(Indirect(I1))]TableGraphes'!$A$1:$A$13;'[=(Indirect(I1))]TableGraphes'!$C$1:$E$13 ='[(=Indirect(I1))]TableGraphes'!$A$1:$A$13;'[(=Indirect(I1))]TableGraphes'!$C$1:$E$13

---

Toutes ces syntaxes renvoient le message "Références non valides"

Menhir,
Pourrais-tu m'indiquer comment utiliser la fonction Indirect() dans la syntaxe de la plage de donnée ?

Bonjour,

Citation:

---

J'aimerais qu'il pointe sur la plage de donnée exportée dans le nouveau fichier, pour rendre les 2 classeurs indépendants.

---

Au plus simple, faire un SaveCopyAs et supprimer les onglets inutiles

Bonjour,

La solution de Supermichou a résolu mon problème : déplacer plutôt que copier les feuilles du tableau et des graphes à exporter

Dans la dernière étape de la macro (ex. pour la feuille graphe - même modif pour les autres onglets à exporter):

Code:

---

Graphes.Copy Before:=Indicateur.Sheets(1)

---

est remplacé par

Code:

---

Graphes.Move Before:=Indicateur.Sheets(1)

---

et la plage de donnée du graphe exporté pointe sur la tableau exporté (et non plus sur celui du classeur d'origine)

Affaire classée !
Merci beaucoup à tous trois, :)
Cordialement,
Marino

Hello

La solution de Patrice740 marche très bien aussi !

Encore merci à tous,
Marino

Citation:

---

Envoyé par Marino69

- la formule qui renvoie le nom du fichier est posée en cellule I1 de la feuille "Graphes"

Code:

---

=STXT(CELLULE("nomfichier";A1);TROUVE("[";CELLULE("nomfichier";A1))+1;NBCAR(CELLULE("nomfichier";A1))-TROUVE("[";CELLULE("nomfichier";A1))-8)

---

Pourrais-tu m'indiquer comment utiliser la fonction Indirect() dans la syntaxe de la plage de donnée ?

---

Il faut monter le paramètre de INDIRECT comme une chaine de caractères.
Par exemple :

Code:

---

INDIRECT("["&I1&"]TableGraphes'!$A$1:$A$13")

---