Discussion :

[Marino69]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

Par exemple :
formule :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

Cette formule transforme :

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 :

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

[Menhir]

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.

[Igloobel]

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

[Supermichou]

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

[Marino69]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

=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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 ?

[Patrice740]

Bonjour,

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

[Marino69]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

est remplacé par

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[Marino69]

Hello

La solution de Patrice740 marche très bien aussi !

Encore merci à tous,
Marino

[Menhir]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

=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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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