Discussion :

[yanelo09]

Je souhaite ouvrir un modèle de powerpoint depuis VBA Excel. j'arrive à ouvrir celui-ci mais seulement pour un slide alors que dans mon modèle j'ai quatre slides différents...
Je vous remercie.


Voici mon code:

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
19
20
ElseIf Format(extention, ">") = "POT" Then
'### Constante à adapter ###
Const CHEMIN_MODELE As String = "U:\PPI\Macro_power point\TEST.pot"
'###########################
 
Dim PP As Object    'PowerPoint.Application
Dim PRES As Object  'PowerPoint.Presentation
Dim slid As Object  'PowerPoint.Slide
 
Set PP = CreateObject("Powerpoint.Application")
Set PRES = PP.Presentations.Add(msoTrue)
Set slid = PRES.Slides.Add(1, 2)   '2 = ppLayoutText
 
PRES.ApplyTemplate Filename:=CHEMIN_MODELE
PP.Visible = True
Set slid = Nothing
Set PRES = Nothing
Set PP = Nothing
 
Exit Sub

[yanelo09]

J'arrive maintenant à afficher mes 4 slides comme dans mon modèle. Mon problème est maintenant celui du calque. Dans mes 4 slides s'affichent le calque du premier slide et bien entendu les 4 sont différents dans mon modèle... Avez-vous une idée svp?

Mon programme:

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
19
20
21
ElseIf Format(extention, ">") = "POT" Then
'### Constante à adapter ###
Const CHEMIN_MODELE As String = "U:\PPI\Macro_power point\TEST1.pot"
'###########################
 
Dim PP As Object    'PowerPoint.Application
Dim PRES As Object  'PowerPoint.Presentation
 
Set PP = CreateObject("Powerpoint.Application")
Set PRES = PP.Presentations.Add
 
 
PRES.Slides.InsertFromFile "U:\PPI\Macro_power point\TEST1.pot", Index4, 1, 4
 
PRES.ApplyTemplate Filename:=CHEMIN_MODELE
PP.Visible = True
 
Set PRES = Nothing
Set PP = Nothing
 
Exit Sub

Merci

[kiki29]

Salut, à lire http://www.developpez.net/forums/d23...er-powerpoint/ http://powerpoint.developpez.com/faq/

[yanelo09]

Merci.Mais cela ne résout pas mon problème.. J'utilise la bonne formule pour insérer des diapos j'ai bien mes 4 diapos mais avec le fond de la première diapo. Et je souhaite ouvrir ce fichier en modèle afin que l'utilisateur qui a besoin du modèle ne travaille pas sur celui-ci.

[yanelo09]

J'ai tout essayé et je n'y arrive toujours pas. Quelqu'un voudrait bien se pencher sur mon problème?je vous remercie