Discussion :

[AirbusA330]

Bonjour

J'ai un petit programme qui en Bv6 qui ouvre des presentations PPS , sur VB6 cela marche bien.... Sous Vb Net Le programme marche aussi mais il m'ouvre aussi l'application Power Point ce que je ne veux pas
voici mon code

Code :

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

1
2
3
4
5
6
7
8
9
10
 
Dim PwpApp as New PowerPoint.Application()
Dim Mypres as PowerPoint.Presentation
...
....
'Ligne a Probleme
        PwApp.Visible = Microsof.Office.Core.MsoTriState.msTrue
 
 
        Mypres = PwpApp.Presentations.Open( Filename )

L'instruction : PwpApp.Presentations.Open( Filename ) marche bien a condition que je rajoute la Ligne :
PwApp.Visible = Microsof.Office.Core.MsoTriState.msTrue .
J'ai essayé de mettre
PwApp.Visible = Microsof.Office.Core.MsoTriState.msFalse
j'ai le message d'erreur suivant
Application ( Unknown member ) Invalid Request Hiding the application window is not allowed.

Merci de votre aide

[Sharkus]

Bonjour,

Je cherche à faire la même chose mais peut on aussi fermer la présentation PowerPoint automatiquement quand il arrive à la fin (Sans avoir à appuyer sur une touche ou cliquer)
Je cherche à savoir quand on arrive à la fin du fichier pps affin d'en relancer un autre à la suite !

Si vous savez comment faire je suis preneur ;-)
Si vous avez aussi résolut votre problème je prend aussi !

Merci d'avance

[shayw]

Salut

et comme ça
EX

Code :

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

   System.Diagnostics.Process.Start("C:\FORALLUSE\ttt.PPs")

[Sharkus]

Merci mais cela ne me dit pas quand on arrive à la fin de la présentation !