Discussion :

[patrick.iribarne]

Bonjour

Je veux créer un fichier Powerpoint depis Excel, et créer des slides à partir des cellules ..
Or, 'instruction "Set pptApp" bugge !
Le fichier est joint.

Note : J'ai bien référencé l'object library Powerpoint x.x depuis VBA/ Outils/ Reference

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
 
Sub CommandButton1_Clic()
 
Dim pptApp As PowerPoint.Application
Dim PptDoc As PowerPoint.Presentation
Dim Diapo As PowerPoint.Slide
Dim Sh As PowerPoint.Shape
Dim Cs1 As ColorScheme
Dim NbShpe As Integer
 
 
Dim PtpApp As Object
Dim file As String
file = "C:\Weekly Template.ppt"
 
 
Set pptApp = CreateObject("PowerPoint.Application")

[SfJ5Rpw8]

Bonjour,


comment traduit tu "cela bugge" ... un peu d'effort ...

[clementmarcotte]

Bonjour,

M'est avis qu'il y a des incohérences dans ton code. Je n'ai pas vérifié si c'est la cause de tes malheurs, mais bon.

Code :

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

1
2
Dim pptApp As PowerPoint.Application
Dim PtpApp As Object

Note : J'ai bien référencé l'object library Powerpoint x.x depuis VBA/ Outils/ Reference

Code :

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

Set pptApp = CreateObject("PowerPoint.Application")

Dans l'ancien temps, on pouvait cocher la référence et avoir CreateObject en même temps. Mais avec le temps VBA est devenu de plus en plus capricieux.

Essaie en décochant ta référence ou en remplaçant ta ligne avec

Code :

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

Set pptApp =new PowerPoint.Application

[patricktoulon]

bonjour
ca n'est pas que excel est devenu capricieux c'est que createobject crée l'object en late binding (pas de references )

Code :

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

1
2
dim pwtapp as object 
pwtapp=createobject("powerpoint.application")

et c'est d'autant mieux comme ca pour certain object qui sont different selon la version d'excel voir windows

creatobject(......) créé l'object avec la librairie installée

[patrick.iribarne]

Oui, bon, j'y suis depuis un moment !!!

J'en suis donc au code suivant, mais qui me donne toujours une erreur d'exécution avec la librairie installée ou non ...

Merci d'éclairer ma faible lanterne ...

Code :

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

1
2
3
4
5
6
7
 
Sub CommandButton1_Clic()
 
Dim pwtapp As Object
pwtapp = CreateObject("powerpoint.application")
 
End Sub

[SfJ5Rpw8]

Ou est passè le set? ...qu'elle est le message d'erreur avec ce dernier code..?

[patrick.iribarne]

J'ai enlevé le Set ... N'aurais-je pas dû ?

Le message d'erreur : Erreur d'exécution - Erreue d'automation
La librairie Powerpont doit-elle être cochée ?

Merci - Patrick