Discussion :

[docdre]

Bonjour à tous,

Je cherche à créer une macro permettant de mettre à jour des liaisons d'un fichier Excel vers powerpoint.

En effet j'ai créer une macro sur excel qui édite des tableaux excel sur powerpoint. Le problème est que les tableaux ne se mettent pas à jour sur ppt et donc je suis obligé d'effectuer un clic droit sur chacun des tableaux.

Je cherche donc à automatiser la, liaison à l'ouverture.
A priori de ce que j'ai lu, il faut utiliser les macros auto_open et updatelinks

Je précise que j'ai cocher l'option mis a jour automatique des liaisons mais cela ne fonctionne pas

Etant novice sur vba, pourriez vous m'aider à construire le code ?

Merci aux âmes charitables !

[78chris]

Bonjour

Cela est contradictoire avec ton fil http://www.developpez.net/forums/d13...au-powerpoint/

où tu dis que la mise à jour de la liaison est bien proposée à l'ouverture du PPT.

Si les deux fichiers Excel et PPT sont ouverts, la mise à jour se fait naturellement.

L'auto-open ne marche pas sans un complément qui permet le la prise en charge des événements par Powerpoint.

Si tu expliquais concrètement le pourquoi de tout cela... cela éviterait de tourner en rond...

[docdre]

Bonjour Chris,

Comme je le précisais dans mon précédent mail sur le forum d'excel, la liaison se fait si j'ouvre directement ppt ( du moins il me demande à l’ouverture si je souhaite mette jour les liaisons).

Cependant la liaison ne se fait pas automatiquement si j’ouvre mon fichier ppt via ma macro excel (bouton qui ouvre powerpoint) et c'est dans ce cas que je dois faire un clic droit sur mon tableau pour mettre à jour des liaisons.

Concernant auto_open et update_links j'ai effectivement téléchargé 2 compléments : auto-events et donc update links

Comment puis je les insérer dans un macro?

Le but étant comme tu l'as certainement compris que les liaisons se mettent à jour automatiquement à l'ouverture de ppt en passant par mon bouton d'édition sur excel.

Bien à toi et merci de tes réponses

[78chris]

Bonjour

Le complément (ppa) doivent être ouvert avant le ppt.

Je ne suis pas sûre que les macros se déclenchent en mode édition : en général on les utilise en mode projection.

Néanmoins ce que je n'ai toujours pas saisi c'est l'objectif concret d'ouvrir le PPT depuis Excel pour y afficher des éléments contenus dans Excel.

Ce n'est pas un jugement de valeur mais j'aimerais juste comprendre quel est le processus opérationnel qui te mène à ce besoin.

[docdre]

Bonjour Chris,

L'objectif est de simplifier la tâche aux utilisateurs.

S'agissant de mon fichier excel, en réalité il s'agit d'un tableau qui compare le cout pour une entreprise du versement de 2 primes différentes.
plus clairement , combien va couter à l'employeur le versement de cette prime et le versement de l'autre.

L'utilisateur rentre une donnée à savoir le budget qu'il souhaite consacré à la prime. A partir de cette donnée, un calcul se fait automatiquement et permet de voir à cout entreprise équivalent, combien il reste dans la poche du salarié selon la prime versée.

Il y a donc un tableau à 2 colonnes. Ce même tableau que l'on utilise dans nos études sous format ppt.

L'idée est que l'utilisateur rentre une donnée, obtient le résultat et puisse éditer le tableau sous format ppt avant ensuite d'avoir simplement à copier la slide dans leur étude.

L' objectif premier est donc la simplicité : l'utilisateur n'a pas besoin une fois les calculs réalisés, d'ouvrir manuellement le fichier ppt et de mettre à jour les liaisons.
Tout est automatisé via une macro qui ouvre le fichier ppt ( en cliquant sur un bouton nommé " édition") et ensuite j'aimerai que la MAJ de la liaison se fasse automatiquement à l'ouverture mais c'est là que je coince...

En espérant avoir été clair.

Bien à toi.

[docdre]

J'ai fini par trouver !

Voici le code pour ceux qui en auraient besoin !

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Sub TestPowerPoint()

' On déclare une variable de type Application PowerPoint
Dim ppt As PowerPoint.Application
Set ppt = CreateObject("PowerPoint.Application")

ppt.Visible = True ' Indispensable, sinon il ne peut pas ouvrir de fichier (Erreur)

' On crée maintenant un objet Presentation
Dim Pres As PowerPoint.Presentation

' Et on lui dit de quelle présentation il s'agit :
Set Pres = ppt.Presentations.Open(Filename:=" indiquer l'emplacement du fichier
' Mise à jour de la slide
Pres.UpdateLinks
End Sub

Merci à Chris78 pour le temps qu'il m'a consacré

[Sepia]

Salut docdre,

N'oublie pas de cliquer sur lorsque la discussion est close.

@+