Discussion :

[fabiencal]

bonjour !

Voila c'est la première fois que je fais intervenir ppt dans mes macros excel donc je ne connais rien de chez rien de la prog entre les 2 !

Je m'explique...

J'ai tout simplement une feuille d'excel qui comporte des données etc...
La seule chose que je voudrais faire c'est copier une zone de cette feuille (on va dire de A1 a D12) et la coller dans un nouveau powerpoint

Le problème c'est que je ne sais pas s'il faut travailler depuis excel, ppt ... ni même lancer l'un à partir de l'autre, lol.

J'ai cru par contre comprendre qu'il fallait activé les bibliothèques "Microsoft activex ... 2.0" et "Microsoft office 11.0" ...


Voila je ne sais pas si tt est clair ?

Si quelqu'un avait quelque piste ça m'aiderait surement déjà bcp

[Chnoucky]

Le post http://www.developpez.net/forums/arc.../t-239175.html devrait t'éclairer sur le sujet..

Le code est commenté, tu ne devrais pas avoir de mal à trouver ton bonheur
Surtout la partie

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
Sub ModifierPresentationExistante()
Dim PptApp As PowerPoint.Application
Dim PptDoc As PowerPoint.Presentation
 
Set PptApp = CreateObject("Powerpoint.Application")
PptApp.Visible = True
Set PptDoc = PptApp.Presentations.Open("C:\LaPresentation.ppt")
 
With PptDoc
'copie la plage de cellules dans la feuille Excel active
Feuil1.Range("B1:H5").Copy
'Effectue un collage dans la 2eme diapositive
.Slides(2).Shapes.Paste
 
'(...)
 
End with
End sub

[fabiencal]

héhé merci beaucoup pour l'aide !

je tiens au courant de l'avancement

[yeahna]

Bonjour,

Ce code va beaucoup m'aider pour automatiser une procédure de copie d'excel sur ppt.
Cependant, je copie des celluls dans des "positions" (x,y) bien particulières de ppt.
Pourriez-vous m'aider sur ce point??

D'avance, un tout grand merci et une belle journée,

Jenna

Le post http://www.developpez.net/forums/arc.../t-239175.html devrait t'éclairer sur le sujet..

Le code est commenté, tu ne devrais pas avoir de mal à trouver ton bonheur
Surtout la partie

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
Sub ModifierPresentationExistante()
Dim PptApp As PowerPoint.Application
Dim PptDoc As PowerPoint.Presentation
 
Set PptApp = CreateObject("Powerpoint.Application")
PptApp.Visible = True
Set PptDoc = PptApp.Presentations.Open("C:\LaPresentation.ppt")
 
With PptDoc
'copie la plage de cellules dans la feuille Excel active
Feuil1.Range("B1:H5").Copy
'Effectue un collage dans la 2eme diapositive
.Slides(2).Shapes.Paste
 
'(...)
 
End with
End sub

[mromain]

Bonjour yeahna, le forum,

Une autre approche avec un une macro Excel qui complète un modèle de présentation PowerPoint.
Ainsi, la position des données à copier dans la présentation est définie dans le modèle.



Le fichier zip ci-joint contient un modèle de présentation PowerPoint et un fichier Excel avec des données et une analyse bidons à intégrer dans la présentation.

Le modèle de présentation peut recevoir deux types de variables :

1. des variables textes - qui sont représentées dans le modèle par le texte ${NomVariable}.
2. des variables zones - représentées dans le modèle par des formes contenant uniquement le nom de la varible dans le formalisme $Z{NomVariable}.
   Les zones peuvent être de deux types :
   • une plage de cellule - définie par le nom de la feuille et l'adresse de la zone. Il est possible d'utiliser les références structurées des tableaux, mais avec leur notation anglaise.
     Un tableau HTML est renvoyé dans le modèle PowerPoint à la place de la forme, centré et réduit si nécessaire.
   • un graphique - défini par le nom de la feuille et le nom du graphique.
     Une image est renvoyée dans le modèle PowerPoint à la place de la forme, centrée et réduite si nécessaire.

Le fichier Excel est composé de :

• une feuille de données ;
• une feuille d'analyse contenant des tableaux et graphiques à renvoyer vers PowerPoint et un bouton permettant de générer la présentation ;
• une feuille cachée (FeuilInt) utile à l'analyse (listes de validation et source de données d'un graphique) ;
• une feuille ParamPPT contenant le chemin du modèle PowerPoint (à adapter) ainsi que les variables du modèle avec leur valeur. Une fois paramétrée, cette feuille peut être cachée.
  Cette feuille contient également le code permettant de générer la présentation. Il y a une fonction publique (GenererPPT) qui génère la présentation et renvoie l'objet Presentation pour un éventuel traitement supplémentaire (enregistrer, générer un pdf, envoyer par mail...).

Pour mettre en œuvre cette solution dans un autre classeur, il suffit de créer un modèle PowerPoint, copier la feuille ParamPPT dans le classeur contenant les données à exporter, la paramétrer et utiliser la fonction GenererPPT.

A+

[Invité]

Trop Fort !
Bonjour, aurai tu d'autres exemples de se fichier, ou une méthode pour faire pareil mais en projetant plusieurs feuilles excel vers le ppt ?
Cordialement