Transfert de Ecxel vers PowerPoint !

[Machros]

Bonjour,
Je voulais savoir si il exister une possibilité en automatique de transférer une feuille Excel vers une diapo de PowerPoint ?

Merci d'avance, car je trouve pas beaucoup d'information sur le Web.....

Salutation,

Machros

 

[chris]

Bonjour
Oui et non.
Tu peux depuis Excel, sélectionner une plage, la copier et dans Powerpoint utiliser collage spécial avec liaison : ainsi toute évolution de la feuille Excel sera répercutée dans la diapo.
Mais il n'existe pas d'automatisme.
A moins de programmer quelque chose en vba...

 

[Machros]

Merci pour la réponsse.
Donc, c'est possible de le faire en VBA !

 

[MichelXld]

bonjour

en complément des informations données par Chris , un exemple qui permet de coller une plage de cellules dans le 2eme slide et de repositionner le tableau dans la page

Sub CollagePlageCellules_DansPowerPoint()
'necessite d'activer la reference Microsoft Powerpoint Object Library
Dim PPT As PowerPoint.Application
Dim PptDoc As PowerPoint.Presentation
Dim NbShpe As Byte

Set PPT = CreateObject('Powerpoint.Application') 'creation session PowerPoint
PPT.Visible = True
Set PptDoc = PPT.Presentations.Open('C:\\maPresentation.ppt') 'ouverture fichier ppt

Feuil1.Range('A1:H10').Copy 'copie plage cellules de la feuille active
PptDoc.Slides(2).Shapes.Paste 'collage dans le Slide 2 du document Power Point

'compte le nombre de shapes dans le 2eme slide
'le dernier objet inséré correspond à l'index le plus élevé
NbShpe = PptDoc.Slides(2).Shapes.Count

With PptDoc.Slides(2).Shapes(NbShpe)
.Name = 'monTableau' 'personnaliser le nom de l'objet inséré
.Left = 150 'position horizontale dans le slide
.Top = 100 'position verticale dans le slide
.Height = 300 'hauteur image
.Width = 400 'largeur image
End With

'PptDoc.Save 'sauvegarder les modifications
'PptDoc.Close 'fermer le document ppt
'PPT.Quit 'fermer l'application powerPoint
End Sub

bonne soiree
MichelXld

Message édité par: MichelXld, à: 14/06/2005 05:51

 

[ThomasR]

Bonsoir à tous, le forum,

Super cette macro MichelXld, elle marche tres bien.

mais si je mets PPT.Visible = False j'ai un bug. est ce normal ?

là j'ai fait sur Office 2003. demain je ferais le test sous 97.

(je dis cela juste pour info, car mois le True me va tres bien )

Bientot il sera possible de créer un document PPT complet via Excel.

si au passage quelqu'un connait un moyen de coller une cellule dans un titre ce serait le Top.

Bonne nuit (demain travail )
Thomas®

 

[MichelXld]

bonjour Thomas

merci pour ton message et pour la rectification


tu as raison ,je n'avais pas testé et j'ai dis une bétise dans mon premier message

PPT.Visible = False

ne fonctionne pas


j'ai donc modifié la macro dans mon message précédent

merci
et bonne journée
MichelXld

Message édité par: MichelXld, à: 14/06/2005 06:14

 

[ThomasR]

Bonjour MichelXLD

Merci à toi pour toute ces infos :woohoo:

Bonne journée
Thomas®

 

[Machros]

Merci pour le code.
Je vais m'en servir mais j'aurais une question:
Est il possible d'utiliser a la place de « .Copy » une commande qui fait un copie spéciale style image bmp !

@+
Machros

 

[MichelXld]

bonsoir

tu peux tester


...
Feuil1.Range('A1:H10').Copy 'copie plage cellules de la feuille active
PptDoc.Slides(2).Shapes.PasteSpecial ppPasteBitmap
...


bonne soiree
MichelXld

 

[cycy55]

Bonjour, j'ai retranscris le code de MichelXld et j'ai ce message d'erreur et je ne comprend pas pourquoi....
ça plante au niveau de "PptDoc.Slides(2).Shapes.Paste "
Si quelqu'un peut m'aider...

 

[Yurperqod]

Bonjour le forum

Dans les commentaire du code VBA de MichelXLD, on lit:
'necessite d'activer la reference Microsoft Powerpoint Object Library
Est-ce que tu as activé cette référence ?

 

[cycy55]

Bonjour à vous

Oui cette référence est activée...

 

[cycy55]

C'est bon ! j'ai précisé le type de collage est ça marche maintenant : PptDoc.Slides(2).Shapes.PasteSpecial ppPasteBitmap

Merci le forum