Discussion :

[toniob44]

Bonjour,

Je ne sais pas du tout si la chose est possible et réalisable.
Avec quelques uns de mes collègues nous utilisons un même fichier plutôt souvent.

Afin d'optimiser le temps d'utilisation de chacun et ne pas avoir à appeler son collègue pour lui demander de quitter le fchier excel dès que l'on aperçoi le message "Fichier en cours d'utilisation".

J'aimerai faire une macro qui envoi un message dès que quelqu'un essaye d'ouvrir le fichier Excel.
Ex: "X souhaite ouvrir le fichier excel, voulez vous enregistrer et quitter ?"
Il peut répondre par oui ou non et s'il ne répond pas sous 1 minutes le fichier s’enregistre et quitte.

Pensez vous que c'est possible ?

Merci à vous

[toniob44]

quelqu'un a une idée ?

[COCONUT2]

Je ne pense pas qu'il soit possible d'actionner une macro sur un autre poste. et que le fichier une fois ouvert détecte qu'une autre personne cherche à l'ouvrir

Mais tu es typiquement dans le cas limite du fichier excel et ca peut etre le bon moment pour basculer sur une base de donnée.

[NEC14]

Bonjour,

Par contre il est possible d'utiliser une macro qui permettrait la fermeture automatique du fichier après un certain délai d'inutilisation.

dans le module Thisworkbook

Code :

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

1
2
3
 
Private sub Workbook_Open() Application.OnTime Now + TimeValue("00:02:00"), "Sortie" (ici 2mn, mais vous mettez la durée que vous souhaitez)
End sub

dans un module standard

Code :

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

1
2
3
 
sub sortie() ThisWorkbook.Close
End sub

[toniob44]

Bonjour,

Par contre il est possible d'utiliser une macro qui permettrait la fermeture automatique du fichier après un certain délai d'inutilisation.

dans le module Thisworkbook

Code :

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

1
2
3
 
Private sub Workbook_Open() Application.OnTime Now + TimeValue("00:02:00"), "Sortie" (ici 2mn, mais vous mettez la durée que vous souhaitez)
End sub

dans un module standard

Code :

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

1
2
3
 
sub sortie() ThisWorkbook.Close
End sub

Bonjour NEC14,

La commande net send dois être bloqué je pense.
Donc je vais me rabattre sur ta première solution.
Par contre je ne vois pas comment ton code sais s'il s'agit d'une inutilisation ?
Pour moi le fichier va se fermer 2min après son ouverture.
Je peux me tromper...

[graphikris]

Bonjour,

Il ne faut pas aller dans le Vba ( Alt + F11) mais procédes comme ceci (voir miniatures attachées). Dès que c'est bon, previens moi, je supprime le fichier joint afin de gagner de l'espace sur le forum.
Cordialement

[toniob44]

Bonjour graphikris,

je ne vois pas tes miniatures.

Peux-tu les remettre ?

Merci

[toniob44]

Je ne pense pas qu'il soit possible d'actionner une macro sur un autre poste. et que le fichier une fois ouvert détecte qu'une autre personne cherche à l'ouvrir

Mais tu es typiquement dans le cas limite du fichier excel et ca peut etre le bon moment pour basculer sur une base de donnée.

Oui c'est vrai seulement le fichier excel est un planning de plusieurs équipes gérés par plusieurs conducteurs.




Je ne sais pas comment faire. c'est dommage.

Est-il possible de par exemple:

faire exécuter une macro toute les minutes qui lit le contenu d'un fichier X.txt

Que lorsque que quelqu'un ouvre le fichier en lecture seul active une macro(actif uniquement en lecture seule) qui écrit quelque chose dans X.txt

Comme sa moins d'une minutes après si la macro du ficher en écriture lit dans X.txt quelque chose par ex: Y).
on affiche un message, "Y souhaite utilisé le fichier voulez vous enregistrer et quitter ? avec oui et non, et oui par défaut avec 1min sans réponse.

La grande question de ma théori peut-ton faire fonctionner une macro dans un fichier excel en lecture seule ?

Merci à vous pour vos réponses en tout cas

[NEC14]

Voici peut-être une solution que j'avais trouvé sur le net. Je ne l'ai pas testée, donc je ne sais pas ce qu'elle vaut.
Je te la transmets telle quelle:

1 - Lors de l'ouverture du fichier tu récupères et tu stockes le nom de l'user

Code :

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

1
2
3
4
5
6
7
8
9
10
 
 
Private Declare Function GetUserName Lib "advapi32.dll" Alias "GetUserNameA" (ByVal lpBuffer As String, nSize As Long) As Long
 
Private Function UserName()
  Dim S As String, n As Long, Res As Long
  S = String(200, 0): n = 199: Res = GetUserName(S, n)
  UserName = UCase(Left(S, n - 1))
  Range("A1").Value = UserName 'ensuite tu le range ou tu veux... la A1
End Function

2 - Ta macro reconnaît que ton fichier est ouvert

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
Function IsFileOpen(ByVal strFic As String) As Boolean
    'Fonction pour vérifier si le fichier est occupé ou non!
    Dim fic As Integer
    On Error Resume Next
    fic = FreeFile()
    Open strFic For Input Access Read Lock Read Write As fic
    If Err.Number = 0 Then
    IsFileOpen = False
    Close fic
    Else
    IsFileOpen = True
    End If
End Function

3 - Lance une commande dos net send pour informer l'user qu'il doit fermer (voir avec les administrateur réseau si cela est autorisé)

Code :

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

1
2
 
shell "Command.com / c net send NomDuUser MonMessage

4 - pour net send tu déclares le nom du user comme un string puis

Code :

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

1
2
3
4
5
6
7
8
 
Dim UserN As String
Dim MonMsg As String
 
MonMsg = "As-tu terminé avec ce fichier...?"
UserN = Range("A1").Value 'La cellule où tu as stocké le nom de l'user
 
Shell "Command.Com / c Net Send " & UserN & " " & MonMsg

Ne pas oublier les espaces à la fin de "Net Send" et après UserN sinon ça ne marche pas.
Voilà, c'est une approche du problème, mais je le repète, je ne l'ai pas testé.

A+
René

[toniob44]

merci beaucoup c'est une bonne idée.

Par contre es ce que la commande net send fonctionne avec seven ?

[NEC14]

Je ne sais pas si cela fonctionne avec seven.

il y a bien NetSend-V&7, mai il faut au préalable installer le client sur les machines (installation facile et autonome)


http://alfamick.free.fr/includes/Net...ista_Seven.htm