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]

Lorsqu'un fichier est déjà ouvert par un utilisateur, si un deuxième essaie de l'ouvrir en même temps cela l'ouvre systématiquement en lecture seule.

Pour remédier à cela, la solution est peut-être le partage de classeur, mais je dis bien peut-être car je n'y connais strictement rien à ça.

Pour application.quit chez moi ça marche très bien. Peut-on voir le code dans lequel se situe cette ligne?

[Godzestla]

Bonjour,

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.

cela pourrait venir des droits de ton boss sur l'emplacement ou se trouve le fichier.

Essaie ceci. Copie le fichier que tu mets à sa disposition sur le bureau (Desktop) et ouvre le via excel pour voir si cela change quelquechose.

Regarde aussi dans ton traitement de sauverarde s'il n'y a apas quelquechose qui pourrait le mettre en lecture seule.

[gusrom86]

Le truc c'est que je lui envoie le fichier par mail.

Il n'y a aucun partages où que ce soit...

Le fichier est bien localement sur la machine de mon boss, et personne d'autre peut l'ouvrir.

La lecture seule se fait dès l'ouverture du fichier, il n'y a rien dans le code qui pourrait causer ce phénomène.

Je vous donne la fin du code du fichier (sauvegarde + fermeture) :

Code :

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

1
2
3
4
5
6
7
Application.DisplayAlerts = False
    ThisWorkbook.SaveAs "C:\AXIS_V1\ATTENDUSURF_TEST.xls"
    Application.DisplayAlerts = False
    ThisWorkbook.Close
 
    'quitter l'appli
    Application.Quit

Lorsque j'ouvre le fichier à partir d'Excel et qu'il est sur le bureau, celui-ci s'ouvre en lecture seule également.

Merci d'avance pour votre aide.

[Godzestla]

ET au niveau du mail, tu as contrôlé ?

Ton email est géré par VBA (et alors mieux vaudrait montrer le code complet ) ou bien c'est un envoi manuel ?

Si l'envoi est manuel, regarde les propriété avant l'envoi et après.

Tu peux aussi t'envoyer le même email en copie et voir si chez toi le problème se présente.

En fait, il y tout un tas de variante à tester pour cibler le phénomène, au cas ou tu t'ennuie.

[gusrom86]

Je précise encore la situation (info que je viens d'avoir).

Apparemment ce n'est pas le seul fichier où l'on a ce problème.
A chaque fois qu'il reçoit des fichiers Excel par mail et qu'il y a des macros dedans, il a ce problème de lecture seul.

Il a beau enregistrer le fichier, le changer de nom, redémarrer l'ordinateur (enfin tout ce qu'il faut logiquement pour enlever le lecture seul), cela reste ainsi.

Des idées ?

[Godzestla]

Donc le problème est seulement chez ton boss ?

Alors tu ne dois pas chercher dans ton fichier mais dans le niveau de sécurité de son pc.

[gusrom86]

Son niveau de sécurité ?

Il est pourtant admin de sa machine...tout comme moi. Des pistes ?

[decondelite]

Regarde au niveau de ses paramètres de sécurité dans Excel: il l'a peut-être paramétré pour bloquer toutes les macros ou quelque chose dans le genre.

[gusrom86]

Je viens de vérifier. Les sécurités sont au minimum. D'autres suggestions ? Personnellement je suis à cours d'idées.

[gusrom86]

Après avoir pu travailler sur le poste de mon boss pendant un moment j'ai trouvé d'où vient véritablement le problème.

Lorsque la feuille se ferme, le processus EXCEL.EXE reste ouvert, ce qui fait qu'à la prochaine ouverture, celui-ci s'ouvre en lecture seule étant donné que Win croit que l'on travaille dessus.

Je cherche en ce moment des solutions pour killer le processus de ce classeur uniquement (car des fichiers excel peuvent être ouvert au moment où j'execute ma macro excel, et je ne veux donc pas que tous mes processus EXCEL.EXE se ferme).

Si vous avez des solutions, je suis preneur.

EDIT : Je précise que je n'ai pas accès à VB.net (le plupart des solutions proposées sur le net sont dans ce langage).

[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.