Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Applications Microsoft Office Excel Lecture seule

Lecture seule

11 réponses
Avatar
Didier Novarin
Bonjour
J'ai un fichier en partage, je souhaite que si le fichier est déjà ouvert
par un utilisateur, si un autre utilisateur ouvre le fichier, il y ait un
msgbox du genre "le fichier et déjà ouvert" puis après clic sur le Ok du
msgbox, cela ferme le fichier ouvert par le 2ème utilisateur
Je vous remercie beaucoup
Didier
Signaler un problème avec ce contenu

10 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
1 2
Avatar
Patrick BASTARD
Bonjour, *Didier Novarin*

C'est probablement possible, bien que je ne connaisse pas la réponse.
Mais je me -te- pose une question :
Quel intérêt alors à le partager, le but même du partage étant la
possibilité à plusieurs utilisateurs de travailler simultanément ?


--
Bien amicordialement,
P. Bastard



Bonjour
J'ai un fichier en partage, je souhaite que si le fichier est déjà
ouvert par un utilisateur, si un autre utilisateur ouvre le fichier,
il y ait un msgbox du genre "le fichier et déjà ouvert" puis après
clic sur le Ok du msgbox, cela ferme le fichier ouvert par le 2ème
utilisateur Je vous remercie beaucoup
Didier


Avatar
Didier Novarin
Bonjour Patrick
Les utilisatrices du service étant un peu-beaucoup réfractaire à
l'informatique ;-)
Même lorsqu'il y a "lecture seule" elles saisissent quand même, et leur
données ne sont pas conservées, je voudrais de ce fait qu'elles soient
"éjectées" si le fichier est déjà ouvert
Merci
Didier


"Patrick BASTARD" a écrit dans le
message de news:
Bonjour, *Didier Novarin*

C'est probablement possible, bien que je ne connaisse pas la réponse.
Mais je me -te- pose une question :
Quel intérêt alors à le partager, le but même du partage étant la
possibilité à plusieurs utilisateurs de travailler simultanément ?


--
Bien amicordialement,
P. Bastard



Bonjour
J'ai un fichier en partage, je souhaite que si le fichier est déjà
ouvert par un utilisateur, si un autre utilisateur ouvre le fichier,
il y ait un msgbox du genre "le fichier et déjà ouvert" puis après
clic sur le Ok du msgbox, cela ferme le fichier ouvert par le 2ème
utilisateur Je vous remercie beaucoup
Didier






Avatar
Clément Marcotte
Au lieu de les insulter et de les prendre pour des idiotes, tu pourrais
prendre le temps de leur expliquer ce que cela veut dire "Lecture seule". Ce
n'est quand même pas la production annuelle de Beaujolais à boire.

Et puis t'as juste a leur faire un fichier indépendant et à les regrouper
dans un seul à la fin de la journée.


"Didier Novarin" a écrit dans le message de
news:
Bonjour Patrick
Les utilisatrices du service étant un peu-beaucoup réfractaire à
l'informatique ;-)
Même lorsqu'il y a "lecture seule" elles saisissent quand même, et leur
données ne sont pas conservées, je voudrais de ce fait qu'elles soient
"éjectées" si le fichier est déjà ouvert
Merci
Didier


"Patrick BASTARD" a écrit dans le
message de news:
Bonjour, *Didier Novarin*

C'est probablement possible, bien que je ne connaisse pas la réponse.
Mais je me -te- pose une question :
Quel intérêt alors à le partager, le but même du partage étant la
possibilité à plusieurs utilisateurs de travailler simultanément ?


--
Bien amicordialement,
P. Bastard



Bonjour
J'ai un fichier en partage, je souhaite que si le fichier est déjà
ouvert par un utilisateur, si un autre utilisateur ouvre le fichier,
il y ait un msgbox du genre "le fichier et déjà ouvert" puis après
clic sur le Ok du msgbox, cela ferme le fichier ouvert par le 2ème
utilisateur Je vous remercie beaucoup
Didier










Avatar
Clément Marcotte
Et puis ADO permet de beaucoup mieux gérer les collisions de ce genre que le
partage du classeur.

"Didier Novarin" a écrit dans le message de
news:
Bonjour Patrick
Les utilisatrices du service étant un peu-beaucoup réfractaire à
l'informatique ;-)
Même lorsqu'il y a "lecture seule" elles saisissent quand même, et leur
données ne sont pas conservées, je voudrais de ce fait qu'elles soient
"éjectées" si le fichier est déjà ouvert
Merci
Didier


"Patrick BASTARD" a écrit dans le
message de news:
Bonjour, *Didier Novarin*

C'est probablement possible, bien que je ne connaisse pas la réponse.
Mais je me -te- pose une question :
Quel intérêt alors à le partager, le but même du partage étant la
possibilité à plusieurs utilisateurs de travailler simultanément ?


--
Bien amicordialement,
P. Bastard



Bonjour
J'ai un fichier en partage, je souhaite que si le fichier est déjà
ouvert par un utilisateur, si un autre utilisateur ouvre le fichier,
il y ait un msgbox du genre "le fichier et déjà ouvert" puis après
clic sur le Ok du msgbox, cela ferme le fichier ouvert par le 2ème
utilisateur Je vous remercie beaucoup
Didier










Avatar
michdenis
Bonjour Didier,

Il y a cette fonction qui détecte si un fichier partagé est déjà ouvert :

Si à l'ouverture du fichier partagé, tu vérifies si ce dernier est déjà ouvert,
si la fonction retourne "vrai", tu le fermes en incluant dans ta procédure
un message explicatif....

'-----------------------------------------
'==================== ' This function checks to see if a file is open or not. If the file is
' already open, it returns True. If the file is not open, it returns
' False. Otherwise, a run-time error will occur because there is
' some other problem accessing the file.

Function IsFileOpen(filename As String)
'auteur inconnu, mpep
Dim filenum As Integer, errnum As Integer

On Error Resume Next ' Turn error checking off.
filenum = FreeFile() ' Get a free file number.
' Attempt to open the file and lock it.
Open filename For Input Lock Read As #filenum
Close filenum ' Close the file.
errnum = Err ' Save the error number that occurred.
On Error GoTo 0 ' Turn error checking back on.

' Check to see which error occurred.
Select Case errnum

' No error occurred.
' File is NOT already open by another user.
Case 0
IsFileOpen = False

' Error number for "Permission Denied."
' File is already opened by another user.
Case 70
IsFileOpen = True

' Another error occurred, file is being queried.
Case Else
Error errnum
End Select

End Function
'-----------------------------------------


Salutations!



"Didier Novarin" a écrit dans le message de news:
Bonjour
J'ai un fichier en partage, je souhaite que si le fichier est déjà ouvert
par un utilisateur, si un autre utilisateur ouvre le fichier, il y ait un
msgbox du genre "le fichier et déjà ouvert" puis après clic sur le Ok du
msgbox, cela ferme le fichier ouvert par le 2ème utilisateur
Je vous remercie beaucoup
Didier
Avatar
Didier Novarin
Je n'ai jamais insulter qui que ce soit moi !!!!!!
Je cherche seulement une solution afin d'éviter qu'elles se plantent sans
s'en rendre compte !

"Clément Marcotte" a écrit dans le message
de news:
Au lieu de les insulter et de les prendre pour des idiotes, tu pourrais
prendre le temps de leur expliquer ce que cela veut dire "Lecture seule".
Ce n'est quand même pas la production annuelle de Beaujolais à boire.

Et puis t'as juste a leur faire un fichier indépendant et à les regrouper
dans un seul à la fin de la journée.


"Didier Novarin" a écrit dans le message de
news:
Bonjour Patrick
Les utilisatrices du service étant un peu-beaucoup réfractaire à
l'informatique ;-)
Même lorsqu'il y a "lecture seule" elles saisissent quand même, et leur
données ne sont pas conservées, je voudrais de ce fait qu'elles soient
"éjectées" si le fichier est déjà ouvert
Merci
Didier


"Patrick BASTARD" a écrit dans le
message de news:
Bonjour, *Didier Novarin*

C'est probablement possible, bien que je ne connaisse pas la réponse.
Mais je me -te- pose une question :
Quel intérêt alors à le partager, le but même du partage étant la
possibilité à plusieurs utilisateurs de travailler simultanément ?


--
Bien amicordialement,
P. Bastard



Bonjour
J'ai un fichier en partage, je souhaite que si le fichier est déjà
ouvert par un utilisateur, si un autre utilisateur ouvre le fichier,
il y ait un msgbox du genre "le fichier et déjà ouvert" puis après
clic sur le Ok du msgbox, cela ferme le fichier ouvert par le 2ème
utilisateur Je vous remercie beaucoup
Didier














Avatar
Didier Novarin
Merci beaucoup Denis
Didier

"michdenis" a écrit dans le message de news:

Bonjour Didier,

Il y a cette fonction qui détecte si un fichier partagé est déjà ouvert :

Si à l'ouverture du fichier partagé, tu vérifies si ce dernier est déjà
ouvert,
si la fonction retourne "vrai", tu le fermes en incluant dans ta procédure
un message explicatif....

'-----------------------------------------
'==================== > ' This function checks to see if a file is open or not. If the file is
' already open, it returns True. If the file is not open, it returns
' False. Otherwise, a run-time error will occur because there is
' some other problem accessing the file.

Function IsFileOpen(filename As String)
'auteur inconnu, mpep
Dim filenum As Integer, errnum As Integer

On Error Resume Next ' Turn error checking off.
filenum = FreeFile() ' Get a free file number.
' Attempt to open the file and lock it.
Open filename For Input Lock Read As #filenum
Close filenum ' Close the file.
errnum = Err ' Save the error number that occurred.
On Error GoTo 0 ' Turn error checking back on.

' Check to see which error occurred.
Select Case errnum

' No error occurred.
' File is NOT already open by another user.
Case 0
IsFileOpen = False

' Error number for "Permission Denied."
' File is already opened by another user.
Case 70
IsFileOpen = True

' Another error occurred, file is being queried.
Case Else
Error errnum
End Select

End Function
'-----------------------------------------


Salutations!



"Didier Novarin" a écrit dans le message de
news:
Bonjour
J'ai un fichier en partage, je souhaite que si le fichier est déjà ouvert
par un utilisateur, si un autre utilisateur ouvre le fichier, il y ait un
msgbox du genre "le fichier et déjà ouvert" puis après clic sur le Ok du
msgbox, cela ferme le fichier ouvert par le 2ème utilisateur
Je vous remercie beaucoup
Didier





Avatar
Didier Novarin
Bonsoir Denis
J'ai un mes d'erreur #Valeur
dans la cellule, je ne vois pas très bien où je dois l'intégrer
Merci
Didier

"michdenis" a écrit dans le message de news:

Bonjour Didier,

Il y a cette fonction qui détecte si un fichier partagé est déjà ouvert :

Si à l'ouverture du fichier partagé, tu vérifies si ce dernier est déjà
ouvert,
si la fonction retourne "vrai", tu le fermes en incluant dans ta procédure
un message explicatif....

'-----------------------------------------
'==================== > ' This function checks to see if a file is open or not. If the file is
' already open, it returns True. If the file is not open, it returns
' False. Otherwise, a run-time error will occur because there is
' some other problem accessing the file.

Function IsFileOpen(filename As String)
'auteur inconnu, mpep
Dim filenum As Integer, errnum As Integer

On Error Resume Next ' Turn error checking off.
filenum = FreeFile() ' Get a free file number.
' Attempt to open the file and lock it.
Open filename For Input Lock Read As #filenum
Close filenum ' Close the file.
errnum = Err ' Save the error number that occurred.
On Error GoTo 0 ' Turn error checking back on.

' Check to see which error occurred.
Select Case errnum

' No error occurred.
' File is NOT already open by another user.
Case 0
IsFileOpen = False

' Error number for "Permission Denied."
' File is already opened by another user.
Case 70
IsFileOpen = True

' Another error occurred, file is being queried.
Case Else
Error errnum
End Select

End Function
'-----------------------------------------


Salutations!



"Didier Novarin" a écrit dans le message de
news:
Bonjour
J'ai un fichier en partage, je souhaite que si le fichier est déjà ouvert
par un utilisateur, si un autre utilisateur ouvre le fichier, il y ait un
msgbox du genre "le fichier et déjà ouvert" puis après clic sur le Ok du
msgbox, cela ferme le fichier ouvert par le 2ème utilisateur
Je vous remercie beaucoup
Didier





Avatar
Clément Marcotte
Ejecter quelqu'un de programme, ce n'est pas insulter, ou vouloir insulter,
ça ? Quand on ouvre un fichier déjà ouvert, il y a un message
d'avertissement que le fichier est déja ouvert. L'utilisateur a toujours le
choix d'ouvrir en lecture seule ou d'ouvrir une copie.

Un petit message explicatif par le biais d'une note de service est
mauditement plus respectueux. Si tu prenais le temps d'expliquer, ce serait
pas mal plus civilisé que la carabine.


"Didier Novarin" a écrit dans le message de
news:
Je n'ai jamais insulter qui que ce soit moi !!!!!!
Je cherche seulement une solution afin d'éviter qu'elles se plantent sans
s'en rendre compte !

"Clément Marcotte" a écrit dans le message
de news:
Au lieu de les insulter et de les prendre pour des idiotes, tu pourrais
prendre le temps de leur expliquer ce que cela veut dire "Lecture seule".
Ce n'est quand même pas la production annuelle de Beaujolais à boire.

Et puis t'as juste a leur faire un fichier indépendant et à les regrouper
dans un seul à la fin de la journée.


"Didier Novarin" a écrit dans le message de
news:
Bonjour Patrick
Les utilisatrices du service étant un peu-beaucoup réfractaire à
l'informatique ;-)
Même lorsqu'il y a "lecture seule" elles saisissent quand même, et leur
données ne sont pas conservées, je voudrais de ce fait qu'elles soient
"éjectées" si le fichier est déjà ouvert
Merci
Didier


"Patrick BASTARD" a écrit dans le
message de news:
Bonjour, *Didier Novarin*

C'est probablement possible, bien que je ne connaisse pas la réponse.
Mais je me -te- pose une question :
Quel intérêt alors à le partager, le but même du partage étant la
possibilité à plusieurs utilisateurs de travailler simultanément ?


--
Bien amicordialement,
P. Bastard



Bonjour
J'ai un fichier en partage, je souhaite que si le fichier est déjà
ouvert par un utilisateur, si un autre utilisateur ouvre le fichier,
il y ait un msgbox du genre "le fichier et déjà ouvert" puis après
clic sur le Ok du msgbox, cela ferme le fichier ouvert par le 2ème
utilisateur Je vous remercie beaucoup
Didier


















Avatar
michdenis
Bonjour Didier,

As-tu essayé quelque chose de simple comme ceci :

Dans le ThisWorkbook de ton classeur :

Comme je ne suis pas dans un environnement réseau,
il m'est difficile de tester ce type de requête ....

'-----------------------
Private Sub Workbook_Open()

If ThisWorkbook.ReadOnly = True Then
MsgBox "Ce fichier est déjà ouvert." & vbCrLf & _
"Attendez un moment que l'usager est refermé ce fichier."
ThisWorkbook.Close False
End If

End Sub
'-------------------------------


Salutations!



"Didier Novarin" a écrit dans le message de news:
Bonsoir Denis
J'ai un mes d'erreur #Valeur
dans la cellule, je ne vois pas très bien où je dois l'intégrer
Merci
Didier

"michdenis" a écrit dans le message de news:

Bonjour Didier,

Il y a cette fonction qui détecte si un fichier partagé est déjà ouvert :

Si à l'ouverture du fichier partagé, tu vérifies si ce dernier est déjà
ouvert,
si la fonction retourne "vrai", tu le fermes en incluant dans ta procédure
un message explicatif....

'-----------------------------------------
'==================== > ' This function checks to see if a file is open or not. If the file is
' already open, it returns True. If the file is not open, it returns
' False. Otherwise, a run-time error will occur because there is
' some other problem accessing the file.

Function IsFileOpen(filename As String)
'auteur inconnu, mpep
Dim filenum As Integer, errnum As Integer

On Error Resume Next ' Turn error checking off.
filenum = FreeFile() ' Get a free file number.
' Attempt to open the file and lock it.
Open filename For Input Lock Read As #filenum
Close filenum ' Close the file.
errnum = Err ' Save the error number that occurred.
On Error GoTo 0 ' Turn error checking back on.

' Check to see which error occurred.
Select Case errnum

' No error occurred.
' File is NOT already open by another user.
Case 0
IsFileOpen = False

' Error number for "Permission Denied."
' File is already opened by another user.
Case 70
IsFileOpen = True

' Another error occurred, file is being queried.
Case Else
Error errnum
End Select

End Function
'-----------------------------------------


Salutations!



"Didier Novarin" a écrit dans le message de
news:
Bonjour
J'ai un fichier en partage, je souhaite que si le fichier est déjà ouvert
par un utilisateur, si un autre utilisateur ouvre le fichier, il y ait un
msgbox du genre "le fichier et déjà ouvert" puis après clic sur le Ok du
msgbox, cela ferme le fichier ouvert par le 2ème utilisateur
Je vous remercie beaucoup
Didier





1 2