Transferer Feuille excel dans diapo ppt

Résolu
Signaler
Messages postés
61
Date d'inscription
dimanche 11 novembre 2007
Statut
Membre
Dernière intervention
18 septembre 2010
-
Messages postés
61
Date d'inscription
dimanche 11 novembre 2007
Statut
Membre
Dernière intervention
18 septembre 2010
-
bonjour,

j'ai un petit souci : j'ai dans le même dossier un fichier presentation.ppt et un fichier feuille.xls. Il faut qu'à partir d'une macro dans Excel j'envoie les données des cellules A2 à K12 du ficher feuille.xls au centre de la troisieme diapo du fichier presentation.ppt

est-ce que quelqu'un peut m'aider svp?!?!

6 réponses

Messages postés
1854
Date d'inscription
jeudi 23 mai 2002
Statut
Membre
Dernière intervention
24 juin 2018
26
Re,

Const cFile = "D:\SCRIPTS\Fichiers\monfichier.ppt"
Dim objPPT, objPresentation
Set objPPT = CreateObject("PowerPoint.Application")
objPPT.Visible = True 
Set objPresentation = objPPT.Presentations.Open(cFile)
objPresentation.Slides(2).Select

te positionne sur la 2ème diapo.
Maintenant, que faut-il remplacer dans cette diapo?

jean-marc
Messages postés
1854
Date d'inscription
jeudi 23 mai 2002
Statut
Membre
Dernière intervention
24 juin 2018
26
Re,

Pour info, c'est mon baptème du ppt.
Une première approche me permet d'obtenir:

Const XLSFile = "D:\SCRIPTS\Fichiers\Exemple.xls"
Const PPTFile = "D:\SCRIPTS\Fichiers\Exemple.ppt"

Dim objExcel, objClasseur
Set objExcel = CreateObject("Excel.Application")
Set objClasseur = objExcel.WorkBooks.Open(XLSFile)
objExcel.DisplayAlerts = True
objExcel.Application.Visible = False
objExcel.Range("B2:D4").Copy
objExcel.ActiveWorkbook.Close

Dim objPPT, objPresentation
Set objPPT = CreateObject("PowerPoint.Application")
objPPT.Visible = True
Set objPresentation = objPPT.Presentations.Open(PPTFile)
objPresentation.Slides(2).Select
objPresentation.Slides(2).Shapes.Paste

MsgBox "verif ppt"

objPresentation.SaveAs(PPTFile)
objPresentation.Close

objExcel.Quit
objPPT.Quit
Set objExcel = Nothing
Set objPresentation = Nothing
Set objPPT = Nothing

Les cellules excel sont copiées dans une shape de powerpoint.
Reste à trouver la synthaxe du replace.
le lien http://forum.hardware.fr/hfr/Programmation/VB-VBA-VBS/resolu-excel-powerpoint-sujet_95567_1.htm
est instructif.

jean-marc
Messages postés
1854
Date d'inscription
jeudi 23 mai 2002
Statut
Membre
Dernière intervention
24 juin 2018
26
 Bonjour à tous,

Questions, où se situe le problème:
- ouverture powerpoint ?
- quelle structure ? presentation est-il issu d'un template ?
- problème slide/shape ?
- extraction excel et copie ?

jean-marc
Messages postés
61
Date d'inscription
dimanche 11 novembre 2007
Statut
Membre
Dernière intervention
18 septembre 2010

bonjour,
Etant debutant je ne comprends pas toutes les question : Structure??,
Depuis excel 2002, je fait Alt + F11

Mon problème ce situe à l'extraction des cellule (A1 :J50) vers centre de la troisieme diapo du doc ppt existant.
voici ou j'en suis:
si  quelq'un peut me guider
code:

#function ppt()
#'ouverture de l'appli ppt qui existe
#PowerPoint.Application.Presentations.Open "\mapresentation.ppt"
#ActiveWorkbook.Sheets.Copy ??????? c'est ici que je seche depuis 2 jours
#?????????
#?????????
#End Function

Merci d'avance
Messages postés
61
Date d'inscription
dimanche 11 novembre 2007
Statut
Membre
Dernière intervention
18 septembre 2010

Merci pour cette partie,

maintenant je cherche :
1:supprimer le contenu de la diapo N°2 (pour qu'elle soit vierge mais  les autre diapos ne doivent pas etre modifier.
2:Inserer au centre de la diapo N°2 les cellules allant de A1 à J50 de ma feuille2 du fichier: mon fichier.xls
3:sauvegarder le fichier ppt
4: l'envoyer par mail a: [mailto:toto@labas.fr toto@labas.fr]
5:fermet l'appli ppt

Je trouve des bouts de code petit a petit mais la merci pour la parti qui me positionne sur la bonne diapo car a taton j'avance pas bien vite.

Merci
Messages postés
61
Date d'inscription
dimanche 11 novembre 2007
Statut
Membre
Dernière intervention
18 septembre 2010

Merci d'etre aussi rapide tu m'as deja bien aidé et je vais aire un tour sur le site donne en reference.

Benoît