Comment quitter l'application Excel.exe automatiquement en VBA (SharePoint 2010) ?

Version imprimable

Bonjour,

J'essaye de fermer automatiquement un document Excel ouvert à partir d'un site Sharepoint 2010. Mais je n'y arrive pas.
J'ai tout essayé (ou presque) et rien a faire. Une fenêtre avec comme titre "Microsoft Excel" reste ouvert avec "There are no supported properties to display".

Je fais un "SaveAs" automatique et après ...
J'ai essayé :
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 ActiveWorkbook.Close Application.Quit 'ou Application.DisplayAlerts = False Application.Quit 'ou Shell("taskkill /F /IM Excel.exe") 'ou Dim Excel_App As Excel.Application ActiveWorkbook.Close SaveChanges:=False Shell ("taskkill /F /IM Excel.exe") Excel_App.Quit Set Excel_App = Nothing
Mais rien ne fonctionne (quand tout ne plante pas :cry: )
Auriez-vous une idée ?

voici les images Avant et Après "SaveAs":
( https://skydrive.live.com/redir?resi...734890B859!159
et https://skydrive.live.com/redir?resi...734890B859!160 )

https://skydrive.live.com/redir?resi...734890B859!159

https://skydrive.live.com/redir?resi...734890B859!160

Merci

Bonjour,

Une petite usine à gaz. Lancer la proc "Fermer". La fonction "ProgrammeOuvert" (récursive) appelée parcourt toutes les applications lancées à la recherche du nom du programme, si trouvé, une boite de message demande si on veut fermer le programme en question en indiquant le titre de la fenêtre :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
 
Private Declare Function FindWindow _
                Lib "user32" _
                Alias "FindWindowA" ( _
                ByVal lpClassName As String, _
                ByVal lpWindowName As String) As Long
 
Private Declare Function PostMessage _
                Lib "user32" Alias _
                "PostMessageA" ( _
                ByVal hWnd As Long, _
                ByVal wMsg As Long, _
                ByVal wParam As Long, _
                ByVal lParam As Long) As Long
 
Public Declare Function GetWindowText _
               Lib "user32" _
               Alias "GetWindowTextA" ( _
               ByVal hWnd As Long, _
               ByVal lpString As String, _
               ByVal cch As Long) As Long
 
Public Declare Function EnumWindows _
               Lib "user32" ( _
               ByVal lpEnumFunc As Long, _
               ByVal lParam As Long) As Long
 
Dim Ouvert As Boolean
Dim NomProg As String
Dim TitreFenetre As String
 
Sub Fermer()
 
    Dim lResult As Long
 
    '
    NomProg = "Excel" 'cherche si Excel est ouvert
 
    'parcour les application lancées
    lResult = EnumWindows(AddressOf ProgrammeOuvert, 0&)
 
    If Ouvert = True Then
 
        If MsgBox("Le programme '" & NomProg & "' est ouvert sous le titre de fenêtre '" & _
                   TitreFenetre & "'." & vbCrLf & "Voulez-vous fermer ce programme ?", vbYesNo + vbQuestion) = vbYes Then
 
            PostMessage FindWindow(vbNullString, TitreFenetre), &H10, 0, 0
 
        End If
 
    Else
 
        MsgBox "Le programme " & NomProg & " n'est pas ouvert !"
 
    End If
 
 
End Sub
 
'cherche dans le titre des fenêtres le nom du programme
Public Function ProgrammeOuvert(ByVal hWnd As Long, _
                                ByVal lgParam As Long) As Long
 
    Dim Tampon As String
    Dim Result As Long
 
    Tampon = Space(255)
 
    Result = GetWindowText(hWnd, Tampon, 255)
 
    If Left(Tampon, 1) <> Chr(0) Then
 
        'non sensible à la casse (UCase)
        If InStr(UCase(Trim(Tampon)), UCase(NomProg)) <> 0 Then
 
            Ouvert = True
            TitreFenetre = Trim(Tampon) 'retourne le titre de la fenêtre
            Exit Function
 
        Else
 
            Ouvert = False
 
        End If
 
    End If
 
    ProgrammeOuvert = 1
 
End Function

Hervé.

02/11/2012, 18h27
patricktoulon
bonsoir
usine a gaz:mrgreen::mouarf::ccool:

il est bien evident que tu peut pas eteindre le fichier qui execute la macro tu t'en doute bien sans passer par une usine a gazcomme te l'a demontré theze

au plaisir

re
sinon si c'est pour fermer un classeur en particulier
tu peut boucler sur tout les fichier ouvert
Code:

1 2 3 4 5 6 7 8 9 dim classeur For Each Classeur In Application.Workbooks if classeur.name = "toto" then application.displayalerts=false classeur.close end if next
;)
05/11/2012, 09h56
mlzim

"Il est bien évident, que tu ne peux pas éteindre le fichier qui exécute la macro, tu t'en doutes bien, sans passer par une usine a gaz comme te l'a démontré Theze"

Bonjour,

Et merci Patrick et Theze.
Je me doutais bien, que ça allait être difficile. Donc tant pis, je pense que "cliquer" sur la croix rouge de la fenêtre sera bien plus rapide.
Et que les personnes, pour qui je fais ce développement, pourront accepter ce petit effort :D

P.S.: j'avais déjà testé le "Close" en boucle, mais Excel plantait, sans doute à cause de SharePoint.