Inserer données Excel dans powerpoint

Bonjour,

Je suis toujours sur mon projet planning qui avance à grand pas grace au forum, je voudrai créer une présentation Powerpoint en prenant des données dans mon classeur excel.

Mon classeur est constitué de 31 pages correspondant au jour du mois, dans chaque page dans la colonne A se trouve les heures de Rendez-vous, en colonne C les noms de clients. Je voudrais afficher dans une présentation powerpoint a l'heure du rendez vous le nom du client.

Je met un exemple de mon classeur(exemple déja utilisé pour une autre question) en pièce jointe qui sera plus compréhensible.

Merci pour vos réponses

Exact Amadéus! voici le bon

Bonjour

Juste pour te signaler que tu n'as pas pris le bon fichier avec la bonne formule pour les couleurs des onglets relatifs aux jours de congés sur

https://forum.excel-pratique.com/excel/colore-des-cellules-sous-conditions-t24198.html

Le bon fichier est dans le Zip

Cordialement

Salut le forum

Olca, merci de donner suite à tes questions : Insérer un Gif animé

Et pour ta question d'utiliser un Powerpoint, je n'en vois pas trop l'utilité...

Mytå

Bonjour Myta,

Oups!j'avais effectivement oublié de cocher.L'exportation vers powerpoint existe déja sous forme de logiciel cela s'

appelle un slide show. l'utilité est d'afficher l'heure ou les clients ont RDV afin de mieux gérer l'attente, bon nombre arrive sans RDV et ne comprenne pas que l'on s'occupe d'eux de suite, avec une présentation sur écran télé, les clients sont informés de l'attente et de leur heure de passage.

Re le forum

Essaye le code suivant pour commencer le débat

Sub TestPowerPoint()
  ' Nécessite d'activer la référence Microsoft Powerpoint Object Library
  ' On déclare une variable de type Application PowerPoint
  Dim ppt As PowerPoint.Application
  Set ppt = CreateObject("PowerPoint.Application")
  ppt.Visible = True
  ' On crée maintenant un objet Presentation
  Dim Pres As PowerPoint.Presentation
  ' Et on lui dit de quelle présentation il s'agit :
  ppt.Presentations.Add
  Set Pres = ppt.ActivePresentation
  ' On copier la plage de cellules
  Sheets("Feuil1").Range("B2:K10").Copy
  ' Et on le colle dans la première diapositive de la présentation :
  Pres.Slides.Add Index:=1, Layout:=ppLayoutBlank
  Pres.Slides(1).Shapes.Paste
   Set ppt = Nothing
End Sub

Mytå

merci Myta,

Je pense être bloqué par ma version de Power point qui ne me permet que de lire les PP, j'attends une license pour effectuer l'essai.

Bonjour,

J'ai une erreur a l execution de la macro sur la ligne

Dim ppt As PowerPoint.Application

bizarre car même avec ma version vérrouillée Powerpoint s'ouvrait et bloquait après, alors que la il ne s ouvre pas!

c'est bien sur la feuille 1 qu'il faut copier le code?

merci

Salut le forum

As-tu bien déclarer la référence ?

Nécessite d'activer la référence Microsoft Powerpoint Object Library

Depuis la fenêtre VBA (Alt + F11) Outils > Référence

Mytå

Bonjour myta,

effectivement j'avais pas activé sur mon pc perso, je l'avais juste coché sur le pc du boulot.

par contre j'ai un message d'erreur sur excel une fois que Powerpoint s'ouvre

erreur systeme &H80048240 (-2147188160).

Merci.

Re le forum

Quelle ligne est en erreur sur Excel ?

Quelle version de PowerPoint ?

L'erreur semble être du à un problème de Collection inexistante.

Mytå

bonjour,

La version de Powerpoint est 14.0.5.128.5000 (Powerpoint 2010)

Concernant l'erreur, je n'ai pas de ligne qui se met en surbrillance comme les erreurs macro habituel,

une fenêtre s'ouvre et indique ce message d'erreur, d'ailleur l'accès à Excel est bloqué tant que je n'ai pas valider le message.

Je met le fichier exemple en pièce jointe.

merci

Re le forum

Allons-y pour une nouvelle tentative

Mytå

Merci Myta ça fonctionne, plus qu'a l'adapter. Je m'y met dès mon retour de congé.