Discussion :

[David42000]

Bonjour,

Je suis en train de développer une application qui doit piloter PowerPoint pour récupérer des infos dans des présentations...

Le problème est le suivant : je n'arrive pas à fermer powerPoint (l'appli, pas la présentation) lorsque j'ai fini de lire les données dont j'ai besoin.

Exemple avec le bout de code suivant (très réduit) lancé sur l'appui d'un bouton :

Code :

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

1
2
3
4
5
6
7
8
9
10
 
Dim pptApp As PowerPoint.Application
pptApp = New PowerPoint.Application
pptApp.Activate()
 
Dim src As PowerPoint.Presentation = pptApp.Presentations.Open("C:\test.ppt")
 
src.Close()
 
pptApp.Quit()

Résultat : mon fichier test est fermé, mais PowerPoint reste ouvert
J'ai constaté que lorsque je ferme mon appli VB, PowerPoint se ferme en même temps... mais j'aimerais bien qu'il se ferme avant.

Pourriez-vous SVP m'indiquer où se trouve l'erreur ou l'oubli, car il doit y en avoir un(e).

Merci

[smyley]

http://support.microsoft.com/?scid=k...5467&x=16&y=12 ?

[David42000]

http://support.microsoft.com/?scid=k...5467&x=16&y=12 ?

Merci smyley,

J'étais déjà tombé sur cette page mais cette solution ne résout pas mon problème... bizarrement.
Est-ce que ça marche chez toi (ou chez vous autres lecteurs de ce topic)?

[David42000]

Je récapitule : si j'insère le code suggéré par smyley, j'obtiens cela :

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
 
Private Sub test()
        Dim pptApp As PowerPoint.Application
        pptApp = New PowerPoint.Application
        pptApp.Activate()
 
        Dim src As PowerPoint.Presentation = pptApp.Presentations.Open("C:\test.ppt")
 
 
        For Each oPres As PowerPoint.Presentation In pptApp.Presentations
            If Not oPres.Saved And oPres.Path <> "" Then
                oPres.Save()
            Else
                oPres.Saved = True
            End If
            oPres.Close()
        Next
        pptApp.Quit()
End Sub

Malheureusement, PowerPoint ne se ferme toujours pas...
Est-ce que c'est mon PC, IDE : visual studio 2005, framework ou encore office qui bug ou vous avez le même problème de votre côté SVP?

Merci!

[azräel]

salut,

Tu peux toujours fermé le logiciel powerpoint en supprimant le processus avec ce code :

Code :

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

1
2
3
4
5
6
7
8
9
10
For Each p In plist                                 
                Try                                             
                    If p.MainModule.ModuleName.ToUpper() = "NOM_DE_TON_PROCESS" Then
                        p.CloseMainWindow()                     
                        p.Kill()                                
                    End If                                      
                Catch ex As Exception 
.   .   .   .   .'met ton exception    .  .  .  .                      
                End Try                                            
            Next p