Discussion :

[Vba14]

Bonjour à toutes et à tous,

J'ai un fichier Excel qui sert à tout le service. Il m'arrive de temps à autre de faire quelques mise à jour dans ce fichier.
Est-il possible de mettre un message du genre "Fichier en maintenance" lorsqu'un utilisateur essaie de l'ouvrir pendant que je l'utilise ?
Le fichier est en réseau.
Merci par avance pour votre participation

[Zeabon]

Bonjour Vba14,

Puis-je te rediriger vers le post suivant : https://www.developpez.net/forums/d2...seule-utilise/

Il te suffit de remplacer la création/envoie de mail par un Msgbox d'alerte si c'est ton nom/identifiant qui est détecté.

Zeabon

[Vba14]

Bonjour Zeabon,

Merci pour ta réponse, je suis allé voir dans la direction que tu m'a indiqué et c'est en droite ligne avec ce que je recherche.
Je vais regarder le code et l'appliquer à mon fichier.
Encore merci

[halaster08]

Est-il possible de mettre un message du genre "Fichier en maintenance" lorsqu'un utilisateur essaie de l'ouvrir pendant que je l'utilise ?

Bonjour,

Normalement de base quand un fichier est déjà utilisé le second utilisateur à un message d'avertissement et ne peux l'ouvrir qu'en lecteur seule.

Une proposition sans VBA serait de créer un onglet contenant juste ce message, quand tu as fini de bosser tu masque l'onglet, et quand tu bosses tu affiche l'onglet ET sauvegarde avec cet onglet actif, comme ça quand qqn essaye d'ouvrir le fichier ce sera cet onglet avec le message qui sera ouvert en premier.

[Vba14]

Bonjour halaster08,

Merci pour ta réponse. Cela suppose que l'utilisateur ait accès au fichier non ?
Normalement ce n'est pas possible de l'ouvrir quand il est déjà utilisé (sauf de l'ouvrir en copie seule).
Après réflexion et échange avec mon supérieur, l'idéal serait d'interdire l'ouverture et la copie du fichier lorsqu'il est déjà utilisé.
Parce que malheureusement c'est ce qui se passe, certains l'ouvrent en lecture et se l'enregistre pour eux-mêmes, au risque de ne pas avoir les mises à jours...

[Zeabon]

Bonjour à tous,

Le plus simple, je pense, c'est de faire un test à l'ouverture qui, lorsqu'il détecte la lecture seule, ferme le workbooks.

Un truc du genre :

Code :

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

1
2
3
4
5
6
 
Private Sub Workbook_Open()
If Workbooks(Thisworkbook).ReadOnly = True then 
    Workbooks(Thisworkbook).Close SaveChanges:=False
End if
End Sub

Et si tu voulais dire que tu souhaitais que cela marche que lorsque tu fias ta maintenance, alors tu rajoute la détection de qui est en modification du premier fil avant de fermer.

Zeabon

[MarcelG]

Salut,

Dans ce cas tester, dans l'évènement Open du classeur, la propriété booléenne

Code :

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

ThisWorkbbook.ReadOnly

Si vrai, alors message et fermeture du classeur sans sauvegarde.

D'autre part, il y a moyen de tester le chemin complet du classeur, en shuntant le lecteur de connexion ("Z\...") éventuel.
Je tiens ce code à disposition.

[Vba14]

Merci pour toutes vos réponses.
Je vais essayer de mettre tout ça en application et faire des essais sur un fichier lambda avant tout.
Encore mille mercis

[mfoxy]

Hello,

Vu cette information "l'idéal serait d'interdire l'ouverture et la copie du fichier lorsqu'il est déjà utilisé."
Je dirais que la seule manière de procéder et éviter la copie le temps des manip, serait de déplacer le fichier Excel dans un dossier ou les autres utilisateurs n'auront pas accès, faire les modifs, et le remettre ensuite.

Bav,
MFoxy

[Vba14]

Bonsoir mfoxy,

Merci pour votre réponse.
C'est ce que je fais actuellement, mais les collègues viennent me voir pour me demander "où est le fichier ?". C'est pour cette raison que je cherche une solution pour leur signaler que le fichier est indisponible car en maintenance par moi.