Remplacer formules par leurs valeurs dans les graphiques Fermé

Question

Bonjour, 

Je suis sur PowerPoint 2013. J'aimerais mettre à jour des graphiques powerpoint. Ces derniers reposent sur des feuilles excel incorporées contenant des formules pointant vers un fichier excel extérieur; je les mets à jour par ce code que j'ai trouvé et qui marche nickel :

Sub ChangeChartData()    Dim pptChart As Chart    Dim pptChartData As ChartData    Dim xlWorkbook As Object    Dim sld As Slide    Dim shp As Shape    For Each sld In ActivePresentation.Slides        For Each shp In sld.Shapes            If shp.HasChart Then                Set pptChart = shp.Chart                Set pptChartData = pptChart.ChartData                pptChartData.Activate                Set pptWorkbook = pptChartData.Workbook                On Error Resume Next                'update first link                pptWorkbook.UpdateLink pptWorkbook.LinkSources(1)                On Error GoTo 0                pptWorkbook.Close True                            End If        Next    Next    Set pptWorkbook = Nothing    Set pptChartData = Nothing    Set pptChart = NothingEnd Sub 


Néanmoins le code préserve les formules dans les feuilles excel incorporées tandis que j'aimerais les remplacer par leurs valeurs pour rendre le powerpoint indépendant. J'ai essayé d'incorporer un :

ChartData.SelectSelection.CopyPasteSpecial Paste:=xlPasteValues

dans la macro mais ça ne marche évidemment pas.

Auriez-vous une idée de comment faire ?

Merci !


Configuration: Windows 7 / Internet Explorer 9.0

m@rina · Answer

Bonjour,

En gros, tu incorpores un fichier Excel lui-même lié à un autre fichier Excel. 
Et tu utilises une macro pour la mise à jour.
Jusque là OK

Mais après tu dis "le code préserve les formules dans les feuilles excel incorporées "... Ben oui, c'est le principe de la liaison. Si tu remplaces les formules par leur valeur dans le classeur incorporé, cela signifie qu'il ne sera plus lié. 

Donc,
soit c'est lié et tu peux faire tes mises à jour.
soit ça ne l'est pas et les mises ne sont plus faisable.

De plus, je n'ai pas compris ce qui est lié dans le classeur incorporé : le tableau de chiffres ou bien le graph ?

Mais peut être n'ai-je rien compris du tout ! :s

m@rina

Le_Nuss · Answer

Bonjour, voici le process :

1) Mon ppt_v1 est lié à l'excel

2) Je mets à jour ppt_v1 et le "délie" grâce à la macro, puis enregistre sous "ppt_semaine1"

3) J'envoie ppt_semaine1 

4) Dans une semaine, je rouvre ppt_v1, refais la même chose et envoie ppt_semaine2

m@rina · Answer

Bonjour

C'est plus clair.
Néanmoins, je ne vois pas que ta macro ôte les liens. Je vois juste qu'elle fait une mise à jour.

Cela étant, je ne procéderais pas de cette façon. Voici comment je ferais :

- Un classeur Excel dans lequel tu travailles, tu entre tes données et tu fais tes graphs, etc.
- Un second classeur Excel : lorsque le premier est fait, j'enregistre et j'enregistre aussi sous le nom du second classeur, donc en l'écrasant. Le nom de ce classeur ne bougera donc pas.
Je crée une macro qui enlève toutes les formules de classeur. Et à chaque enregistrement, je lance la macro.
- Le fichier PowerPoint qui est lié à ce second classeur Excel sans formules. Les liaisons dans le fichier PowerPoint seront mis à jour automatiquement, puisque dernier sera toujours lié avec le même classeur Excel.

Mais tu parlais d'incorporation, il n'y en a pas, que des liaisons.

m@rina

Le_Nuss · Answer

Bon ok je viens de comprendre.

1) J'ai créé mes graphes sur powerpoint
2) Dans mon powerpoint actuel, les données de mes graphes sont des résultats de formules
3) Ces formules contiennent le nom d'un fichier excel externe à mon powerpoint
4) J'aimerais que pour chacun des graphes, la macro remplace les formules derrière le graphe par leurs valeurs

Je m'excuse d'avoir parlé d'incorporation de liaison, ces mots ont en effet un autre sens dans le lexique de MS

Néanmois: si c'est plus simple d'aboutir au résultat que je veux (update automatique de nombreux graphes à partir d'un excel, possibilité pour mon destinataire de ne recevoir que le powerpoint et d'être quand même capable de modifier la donnée), je peux passer à une autre méthode !

Le_Nuss · Answer

J'ai passé des heures dessus ! Tout ce que je trouve sur le net, c'est justement le cas de fichier excel incorporés ou liés. Ce que je ne comprends vraiment pas, c'est pourquoi les commandes que je rajoute dans ma boucle (la boucle est bien exécutée puisque la condition est vérifiée) ne marchent pas:

J'ai essayé en copiant tout et en collant juste les valeurs
J'ai essayé un ActiveWorkbook.BreakLink

Bref toute sorte de commandes qui marchent nickel quand j'exécute ma macro dans excel et qui ne marche pas dans mon powerpoint !!

Remplacer formules par leurs valeurs dans les graphiques

5 réponses

Discussions similaires