Discussion :

[docdre]

Bonjour à tous,

J'ai créé un fichier excel de calcul et un fichier powerpoint comprenant un tableau vide.

L'objectif est que chaque cellule du tableau ppt fasse référence à une cellule d'excel.

Par ailleurs j'aimerai pourvoir éditer mon fichier powerpoint via excel.

Pour faire simple, je rentre des données dans mon fichier excel, je clique sur un bouton via une macro qui m'ouvre mon fichier powerpoint qui comprend un tableau faisant référence à mes cellules excel.

Etant novice sur vba, je vous remercie d'avance pour l'aide que vous m'apporterez !

Des explications sur le code sont les bienvenues

Merci à tous !

[Daniel.C]

Bonjour,

Pas du tout un expert; regarde cette page :

http://office.microsoft.com/fr-fr/po...005192794.aspx

[docdre]

Merci de ta réponse mais ton lien ne correspond pas exactement à mes attentes.

En tout cas merci de on intérêt

[78chris]

Bonjour

Merci de ta réponse mais ton lien ne correspond pas exactement à mes attentes...

Les liaisons sont néanmoins la seule solution viable à mon avis : c'est justement fait pour cela et réécrire quasiment la même chose en VBA alors que tu te dis novice...

[docdre]

Bonjour Chris,

Mon problème est que les liaisons ne marchent pas dans un tableau d'après l'aide Microsoft office et justement mon fichier ppt comprend un tableau...

Bien à toi.

[docdre]

Bonjour à tous,

Je vous joins 2 fichiers que j'ai fais rapido et qui expliqueront bien mieux que les mots mon problème.

Cela permettra à certains de réutiliser la macro ( trouvée sur le net) qui permet d'éditer un fichier ppt à partir d'excel ( il est nécessaire de modifier le chemin d'accès au fichier ppt dans la macro pour que cela fonctionne!!!).

S'agissant de mon pb, j'aimerai que les résultats du calcul de bonbons s'affichent dans le tableau mais j ne trouve toujours pas de solution.

Pour infos la liaison ne marche pas chez moi, sachant que je veux garder la mise en forme du tableau powerpoint.

Merci aux ames charitables

[Philippe Tulliez]

Bonjour,
Pour les liaisons entre Excel et PowerPoint as-tu été voir dans la faq de PowerPoint Comment créer un lien hypertexte vers une cellule d'un fichier Excel ?

[docdre]

Hello Philippe,

Merci de ta réponse !

J'ai crée un lien hypertexte via ppt et lorsque je fais un clic droit sur le lien et je clique sur " ouvrir le lien hypertexte", il m'ouvre bien mon fichier excel !

Cependant la modification ne s'opère pas ( mon fichier ppt continu de m'afficher le lien au lieu de m'afficher le chiffre présent dans la cellule)

Par ailleurs lorsqu'il ouvre le fichier, il se met en cellule K17 au lieu de la G14 renseignée.

Erreur de manip ???

Merci de ton retour.

Bien à toi.

[danixdb]

Bonjour Docdre, le Forum,

En ajoutant trois textbox pour chacune des cases et en les nommant avec l'addin Rename, puis en modifiant la macro comme suit, cela donne le résultat escompté.

Sub TestPowerPoint()

' On déclare une variable de type Application PowerPoint
Dim ppt As PowerPoint.Application
Dim dblBombonsAchetes As Double, dblBombonsManges As Double, dblBombonsRestant As Double


dblBombonsAchetes = Cells(6, 6).Value
dblBombonsManges = Cells(7, 6).Value
dblBombonsRestant = Cells(9, 6).Value

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 : indiquez l'emplacement du fichier !!!
Set Pres = ppt.Presentations.Open(Filename:="L:\Poubelle\Bonbons.ppt")

Pres.slides(1).Shapes("txtBombonsAchetes").TextFrame.TextRange.Text = dblBombonsAchetes
Pres.slides(1).Shapes("txtBombonsManges").TextFrame.TextRange.Text = dblBombonsManges
Pres.slides(1).Shapes("txtBombonsRestants").TextFrame.TextRange.Text = dblBombonsRestant

Pres.save
Pres.close
Set Pres = nothing

End Sub

Pièces jointes : Bombons.zip (PPT, XLS et Rename.ppa)

[docdre]

Merci grand maître du code

Je vais me plonger dedans parce que c'est encore très très flou pour moi.

En tout cas un grand merci !

[78chris]

Bonjour

Pourquoi ne pas tout simplement faire dans Excel un second tableau utilisant les cellules de l'onglet Feuil1 mais selon la disposition et la mise en forme du tableau Powerpoint puis lier ce second tableau dans une diapo sans tableau ?

[docdre]

Bonjour à vous 2 et merci pour vos idées.

Chris,

J'ai essayé ta méthode qui me parait à mon niveau plus abordable.

J'ai donc créé un deuxième tableau avec la mise en forme souhaitée et j'ai créé une liaison sur Powerpoint.

Le problème est que pour que la mise a jour de la liaison se fasse, je dois effectuer un clic droit sur mon tableau et cliquer sur " mise a jour des liaisons"

En revanche si j'ouvre directement le fichier ppt ( donc sans passer par ma macro édition excel), à l'ouverture il me propose de mettre à jour les liaisons.

Pourquoi je n'ai pas cette proposition en passant par mon fichier excel ?

Est-il possible d'automatiser la mise à jour dès l'ouverture du fichier ppt, avec une macro par exemple ???

Merci pour votre précieuse aide !

Bien à vous.

[78chris]

Bonjour

La mise à jour est toujours du côté de la copie liée et donc ici dans le PPT.
Seul le PPT "sait" qu'il a une liaison avec un classeur Excel : la liaison est ignorée côté Excel.

Le problème c'est que le VBA est plus limité sur Powerpoint : les événements comme l'ouverture ne sont pas gérés de façon native.