Insertion Tableau Excel dans un Slide (VBA)

Bonjour,

Je viens vers vous car je bloque sur un bout de code VBA.

En effet je souhaite, à partir d'un fichier Excel, constituer une présentation PowerPoint.
Jusque là j'ai réussit à mettre en place le code me permettant de remplacer du texte contenu dans des shapes par des valeurs contenues dans des cellules de mon fichier Excel. Là où je bloque c'est lorsque je souhaite importer des tableaux Excel dans un slide.

J'ai regardé pas mal de discutions à ce sujet mais aucune n'a pu répondre à mes attentes.

ma version excel et ppt : 2003.

Pour résumer : j'ai un tableau (nommé) dans un onglet excel et je dois l'insérer dans un slide. Le tableau doit garder la même mise en forme que dans le fichier Excel.

Je vous remercie d'avance pour votre aide et continue mes recherches.
:?

Alors je pense avoir trouvé la démarche:

Code:

---

1 2 3 4

Range(ma_plage).Copy pptPres.Slides(x).Select pptApp.ActiveWindow.View.paste

---

Seul soucis maintenant, c'est que le tableau n'est pas centré et surtout il reste modifiable à la main, ce que je ne souhaite pas.

J'ai testé le collage spécial (bipmap) mais l'image est de mauvaise qualité sur le powerpoint.

Avez-vous une idée ?

Bonsoir,

Et si tu copiais le tableau sur Excel et le colles (collage spécial) avec liaison en tant que "Feuille de calcul sur MS Excel" sur ta diapositive, tu résoudrais le problème sans VBA.
Lorsque tu modifieras le contenu du tableau sur Excel, le contenu de la diapositive sera automatiquement mise à jour. De plus, tu auras une bonne qualité d'image.

A+

Bonjour

Voici un exemple de code que je viens de faire :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21

Public Sub CopieTableau()   ' déclaration Dim ApplPPT As PowerPoint.Application Dim objPres As PowerPoint.Presentation Dim objSld As PowerPoint.Slide Dim objSheet As Worksheet   ' affectation Set ApplPPT = CreateObject("Powerpoint.Application") Set objPres = ApplPPT.Presentations.Add Set objSld = objPres.Slides.Add(1, ppLayoutBlank) Set objSheet = ActiveWorkbook.Worksheets(1)   objSheet.Range("A1:E7").Copy objSld.Shapes.PasteSpecial ppPasteOLEObject   ApplPPT.Visible = True     End Sub

---

Je récupères les données et le formatage de la feuille 1 de A1 à E7, et je fais une copie dans le premier slide du fichier PowerPoint que je viens de créer.

Edit J'ai vu ton message après sur le forum (avant que je fasses la fusion), essayes les différents paramètres du collage spécial pour voir celui qui te convient.

Philippe

Merci à vous pour votre aide,

@lorenzole+bo : En fait je ne souhaite pas lier le powerpoint à la feuille de calcul Excel.

@Philippe JOCHMANS : Merci pour le morceau de code, effectivement avec ce collage les tableau sont un peu mieux proportionnés. Après il reste à les centrer et les agrandir mais je pense pouvoir trouver.

Par contre, en manipulant mon powerpoint, j'ai trouver un nouveau problème. Il ne s'agit plus de tableau mais de texte.

sur plusieurs slides j'ai du texte de cette forme là:

• titre1
  <!--texte1-->
• titre2
  <!--texte2-->
• titre3
  <!--texte3-->
• titre4
  <!--texte4-->

<!--textex--> : correspond à des balises que je remplace par des valeurs contenues dans la feuille Excel.

Mon soucis est le suivant : il se peut que la valeur de la balise soit Nulle ("") dans ce cas je souhaite supprimer le titre accompagné de la puce, malheureusement je n'y arrive pas.

pour le moment j'utilise le code suivant :

Code:

---

1 2 3 4

With pptPres.Slides(INT_SLIDE).Shapes(INT_Shape).TextFrame.TextRange .Replace STR_Balise, "" End With

---

merci d'avance pour votre aide.

Re

La deuxième question doit être faite dans une autre discussion, car le sujet est différent, et là c'est du PPT pur, donc dans le bon forum avec tous les détails ;)

Si cette discussion est résolue, merci de cliquer sur le bouton :resolu: ;)

Philippe

Ok je pense avoir finalisé mon Import de tableau.

Après avoir essayé plusieurs type de collage spécial je me suis positionné sur celui ci:

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12

Range(ma_plage).Copy pptPres.Slides(INT_SLIDE).Select pptApp.ActiveWindow.View.PasteSpecial ppPasteMetafilePicture   With pptApp.ActiveWindow.Selection.ShapeRange .Fill.Transparency = 0# .Height = 210.5 .Width = 466.38 .IncrementLeft -31.62 .IncrementTop -63.25 End With

---

Ensuite je joue avec la taille du tableau et son positionnement dans la diapositive.

Merci pour votre aide ^^