Discussion :

[Westood5]

Hello,

Voilà, je cherche à rendre invisible ma présentation en début de traitement afin que cela se fasse plus rapidement, puis à la fin du traitement, j'aimerai rendre la présentation visible.

Je code depuis Excel.

Voici la début :

Code :

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

1
2
3
4
5
6
7
8
 
 Dim ppt As PowerPoint.Application
 Dim pres As PowerPoint.Presentation
 
Set ppt = CreateObject("PowerPoint.Application")
Set pres = ppt.Presentations.Open(Filename:=ThisWorkbook.Path & "\Focus annonceur\" & TEMPLATE_FILE_NAME, untitled:=msoTrue, withwindow:=msoFalse)
 
'Ici je fais tout le traitement sur mon ppt

Un fois le tout terminé, j'aimerai rendre visible la présentation.
J'ai tenté la ligne suivante, elle ne fonctionne pas (n'existe même pas en fait):

Code :

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

1
2
 
pres.visible = True

Des idées?

Ou alors, je me prends la tête pour rien et le fait de rendre visible ma présentation dès le début n'aura aucun incidence sur la performance et le temps d'exécution?

D'avance merci.

[Invité]

Bonjour,

En lisant votre message, je me suis posé ces questions :

• Combien de temps mettez-vous pour lancer votre présentation ?
• Sinon, depuis quelle application créez-vous votre instance Power-Point ? Excel ?
• Si Excel, vos slides contiennent-ils des liaisons avec des tableaux Excel ?
• Si liaisons, ces tableaux contiennent-ils de nombreuses formules qui pourraient ralentir le lancement ?