Ouvrir un fichier powerpoint a partir d'Exce& Fermé

Question

Bonjour, 
Je recherche à écrire une macro sous excel qui me permet douvrir un fichier powerpoint 
J'ai un fichier excel nommé Base.xls je veux en appyant sur un bouton ouvrir un fichier Presentation.ppt
Qui pourrait m'aider??
Merci d'avance 
signé un nul sans doute

néné · Answer

Bonjour, 
voici un code

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:="C:\Mes Documents\MaPresentation.ppt")
  ' On active, sélectionne et copie le Graphique Graphique 1 de Excel :
  ActiveSheet.ChartObjects("Graphique 1").Activate
  ActiveChart.ChartArea.Select
  ActiveChart.ChartArea.Copy
  ' Et on le colle dans la première diapositive de la présentation :
  Pres.Slides(1).Shapes.Paste
  ' On enregistre la présentation PowerPoint :
  Pres.Save
  ' Et on quitte PowerPoint proprement :
  ppt.Quit
  Set ppt = Nothing
End Sub

eriiic · Answer

Bonjour,

Sinon sans bouton et sans macro tu peux tout simplement mettre un lien hypertexte vers ton (tes) fichier(s)
Clic-droit sur ta cellule puis 'Lien hypertexte'. Tu choisis ton fichier .ppt et en haut tu peux modifier le texte à afficher avant de valider.
Le mieux est que les .ppt soient dans le même répertoire que le .xls

eric

alainrezé · Answer

Sub LancePresentation()
'


        
Dim FichierPpt, pwpt, presppt
Set pwpt = CreateObject("PowerPoint.Application")
pwpt.Visible = True '

Set presppt = pwpt.presentations.Open(Filename:="L:\Prisca\Tableau de BordPaysdeLoire\PrésentationPower\PresentationDd44.ppt")
   
pwpt.Visible = True
presppt.SlideShowSettings.Run


  End Sub

Voilà un code de macro qui permet d'ouvrir un powerPoint à partir d'une fiche Excell et de l'afficher plein écran .Donc depuis hier mon problème a été en parti mais seulement en partie résoulu . Or, Le powerPoint a été construit avec des liaisons sur de fichier excel. Zt là je me heurte à un problème la mise à jour ne se fait pas .

Peut être l'un d'entre vous a un solution
/Merci d'avance pour vos réponse

Ouvrir un fichier powerpoint a partir d'Exce&

3 réponses

Discussions similaires