Discussion :

[gusrom86]

Bonjour,

Ne trouvant pas de réponses satisfaisantes sur le net, je vous pose la question sur le forum.

Situation :

version : Office2002
J'ai créée un fichier excel qui va récupérer des données sur une page web, met en forme les données, envoie par mail le résultat et sauvegarde le fichier (traitement scheduler).

Problème :

Lorsque je fourni ce fichier à mon boss, celui-ci s'ouvre en lecture seule, ce qui interfère avec la sauvegarde du fichier. Sur le mien, en revanche, tout fonctionne bien.

La proriété lecture seul n'est pas cocher dans les propriétés du fichier. J'ai fais un autre test en sauvegardant sur le poste de mon boss ce fichier sous un autre nom, supprimer l'ancien fichier et renommer de nouveau le fichier que j'avais renommé, même chose si je reboot -> toujours en lecture seule.

Note :

Le fichier lance du code vba à l'ouverture. Pour éviter que la question de l'activation de la macro se fasse, j'ai créé un certificat et rajouter la signature dans le fichier Excel.

Question subsidiaire

Comment faire pour que l'application Excel se ferme après le traitement du fichier ?
J'ai testé "Application.quit" mais cela ne fonctionne pas.

Merci d'avance pour vos réponses.

[decondelite]

Je sais plus d'où j'ai tiré les infos pour, mais j'utilise ceci pour arrêter un processus:

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
Public Function ArreterProcessus(ByVal nom_processus As String) As Boolean
    Dim liste_processus As Object
    Dim reponse As String
    Dim oproc
    ArreterProcessus = True
    On Error GoTo erreur
    Set liste_processus = GetObject("winmgmts:root\cimv2")
    reponse = "select * from win32_process where name='" & nom_processus & "'"
    For Each oproc In liste_processus.execquery(reponse)
        oproc.Terminate
    Next
    Set liste_processus = Nothing
    Exit Function
erreur:
    ArreterProcessus = False
End Function

Le nom à saisir est celui qui figure dans l'onglet "processus" du gestionnaire des taches.

[gusrom86]

Merci beaucoup pour ta réponse, ça va pas mal m'aider.

Ta solution permet de killer les processus embêtants, maintenant je cherche une solution pour ne killer qu'un seul processus (le processus excel qui a été lancée 5 mn avant).

En tout cas pour l'instant ca sera une solution à utiliser.

[fred65200]

bonjour,

tu peux essayer ça pour fermer un classeur en connaissant le nom du classeur

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
20
21
22
23
24
25
26
27
28
29
30
31
Option Explicit
'*****************************************
'API Find applcation by full caption
Private Declare Function FindWindow Lib "User32" Alias "FindWindowA" ( _
  ByVal lpClassName As String, ByVal lpWindowName As String) As Long
'*****************************************
'API Bring Window to foreground
Private Declare Function SetForegroundWindow Lib "User32" ( _
  ByVal hwnd As Long) As Long
'*****************************************
'API Send message to application
Private Declare Function PostMessage Lib "User32" Alias "PostMessageA" ( _
  ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long
'*****************************************
Const WM_CLOSE = &H10
'*****************************************
Function Close_By_Caption(AppCaption As String)
  Dim hwnd As Long
  hwnd = FindWindow(vbNullString, AppCaption)
 
  If hwnd Then _
  'Bring to Front
    SetForegroundWindow hwnd
  'Close the app nicely
    PostMessage hwnd, WM_CLOSE, 0&, 0&
  End If
End Function
 
Sub Test()
Close_By_Caption "Nom_Du_Classeur.xlsm" 'Place le nom du classeur à fermer ici, le même que dans l'onglet application du gestionnaire de tâche
End Sub

Cordialement

[gusrom86]

Merci beaucoup!

Exactement ce que je voulais, et cela fonctionne!

Je clos le sujet...encore merci.