Discussion :

[Swiper]

Bonjour à vous,

J'était heureux d'avoir pu passer autant de temps sans faire appel à la communauté, mais je dois le faire aujourd'hui.

J'aimerais s'il vous plait que vous m'aidiez pour ce petit soucis.

Alors ca n'as pas de rapport direct avec le code, bien que si mais voila.

Je travail sur un fichier (A) qui est un modèle, donc sans donnée. Une fois traité il est remplis de données.

J'ai un graphique dans (A) ses informations sont liés à ce classeur, plus précisemment, à 2 feuilles : "data" et "IMP" ; le graphique est dans "IMP". J'ai besoin de copier ses 2 feuilles dans un autre fichier excell (B), jusque là tout va bien.

Je copie donc ces feuilles sur (B), mais voila le graphique ne donne plus de bonnes informations, car le graphique est relié au classeur (A), et le classeur (A) n'as plus de bonnes informations vu qu'on la fermé sans enregistrer.

Alors pour que les informations soient bonnes, il faut aller dans les propriétés des éléments du graphique et enlevé la réfénrence à l'ancien classeur pour que les infos soient correctes.

J'aimerais savoir s'il y aurait un moyen d'aller chercher des données sans que, lors de la copie, le lien reste lié à l'ancien classeur, mais au nouveau.

Merci d'avance.

[ouskel'n'or]

J'ignore la syntaxe qu tu as utilisée mais avec celle-ci je n'ai pas ce problème.

Code :

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

    Workbooks("Classeur1").Sheets("Feuil1").Copy After:=Workbooks("Classeur2").Sheets(3)

Ceci dit, j'ai déjà rencontré ce phénomène mais je crois que c'est en copiant les cellules. Il existe effectivement une syntaxe pour indiquer que la liaison doit suivre la feuille mais là, tout de suite, je ne la retrouve pas.
Je teste la copie de cellules pour voir

[ouskel'n'or]

Edit
Je viens de tester.
Déjà, quand on copie les cellules d'une feuille au lieu de copier la feuille, les données sources restent bien liées au classeur d'origine. Donc, c'est la méthode qui n'est pas bonne.
Peux-tu copier la feuille à la place des cellules ?
A+

[Swiper]

Je copie donc ces feuilles sur (B)

J'ai bien utiliser ta syntaxe de COPY.
En fait, je copiais déja les feuilles dans mon classeur (B) et ce sont les données du graphique qui sont liés au classeur du début.

Code :

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

1
2
3
ActiveSheet.ChartObjects("Graphique 4").Activate
    ActiveChart.SeriesCollection(6).XValues = "=datas!R10C12:R58C12"
    ActiveChart.SeriesCollection(6).Values = "=datas!R10C13:R58C13"

Voici la syntaxe pour rentrer les zones de données dans le graphique.

En fait dans le classeur (A) j'ai la feuille "DATA", mais dans (B) aussi elle y est. Je ne comprends pas pourquoi une fois copié les références sont liés à l'ancien classeur.

[ouskel'n'or]

Tu peux toujours rétablir la bonne liaison

Code :

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

1
2
3
4
    Chemin = "D:\Ton Repertoire\"
    NewChemin = "C:\Un autre répertooire\"
    ActiveWorkbook.ChangeLink Name:=Chemin & "Classeur1.xls", NewName:= _
        NewChemin & "Classeur2.xls", Type:=xlExcelLinks

Tu testes, je ne l'ai pas fait

Edit
Ajoute

Code :

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

    Worksheets("NomDeLaFeuille").Calculate

... si la mise à jour n'est pas automatique

[Swiper]

En fait, j'ai réussi à trouver un subterfuge. J'avais mis les lignes du dessus avant la copie, et maintenant je les ai mises après comme ça je suis certain qu'il ne garde pas les références de l'ancien classeur.

OuselK'n'or, merci encore de ton aide, qui m'a aidé à bien réfléchir.