Fenetre lecture seule

tototiti2008

XLDnaute Barbatruc

• 15 Juillet 2008

• #2

Re : Fenetre lecture seule

Bonjour keurma,

sans doute en VBA, si tuspécifie que tu ouvres ton classeur en lecture seule, le message n'apparaîtra pas, avec quelque chose comme :

Workbooks.Open Filename:="C:\ANALYSIS.XLS", ReadOnly:=true

 

Vote positif 0 Vote négatif

K

keurma

XLDnaute Occasionnel

• 15 Juillet 2008

• #3

Re : Fenetre lecture seule

Bonjour,

Merci pour la réponse. Mais il faut que je tape ca à quel endroit ?

Marc

 

Vote positif 0 Vote négatif

tototiti2008

XLDnaute Barbatruc

• 15 Juillet 2008

• #4

Re : Fenetre lecture seule

si tu veux qu'à chaque ouverture de fichier en lecture seule le message disparaisse, ça se complique. Si par contre tu veux automatiser l'ouverture d'un fichier spécifique en lecture seule, il faut créer une macro dans laquelle tu intègres la ligne de code que je t'ai proposée.
Ta question était d'ordre générale ou ciblée sur un fichier particulier ?

 

Vote positif 0 Vote négatif

K

keurma

XLDnaute Occasionnel

• 15 Juillet 2008

• #5

Re : Fenetre lecture seule

Bonjour toto

"si tu veux qu'à chaque ouverture de fichier en lecture seule le message disparaisse, ça se complique" : c'est exactement ca que je cherche si tu as la soluc c'est nickel

Merci d'avance.

 

Vote positif 0 Vote négatif

tototiti2008

XLDnaute Barbatruc

• 15 Juillet 2008

• #6

Re : Fenetre lecture seule

euh... quand je disais, "ça se complique", ça sous-entendait "je sais pas faire"...
Il y a surtout une chose que j'ignore : comment savoir si un fichier est déjà ouvert par quelqu'un d'autre avant de l'ouvrir...

 

Vote positif 0 Vote négatif

tototiti2008

XLDnaute Barbatruc

• 15 Juillet 2008

• #7

Re : Fenetre lecture seule

Tiens, en fouillant j'ai fini par trouver une fonction qui permet de savoir si le fichier est déjà ouvert par un autre utilisateur :

Code:

Function IsFileOpen(filename As String)
Dim filenum As Integer, Errnum As Integer
On Error Resume Next
filenum = FreeFile()
Open filename For Input Lock Read As #filenum
Close filenum
Errnum = Err
On Error GoTo 0
Select Case Errnum
Case 0
IsFileOpen = False
Case 70
IsFileOpen = True
End Select
End Function

trouvé sur : Vérifier la dispo d'un fichier avant ouverture - VB/VBA/VBS - Programmation - FORUM HardWare.fr

 

Vote positif 0 Vote négatif

tototiti2008

XLDnaute Barbatruc

• 15 Juillet 2008

• #8

Re : Fenetre lecture seule

Alors sur la base du code posté précédement, il faudrait :
Créer une macro complémentaire (.xla) dans laquelle on activerait les évènement au niveau Application.
Dans l'évènement "Ouverture d'un classeur", on testerait si le fichier est déjà ouvert par un autre utilisateur
si c'est le cas on ouvrirait le ficher en lecture seule pour éviter le message

et je suis même pas sûr que ça marcherait parce que l'évènement "Ouverture d'un fichier" au niveau Application ne se déclenche que lorsque le fichier est ouvert, je crois...

Bref, c'est compliqué.

 

Vote positif 0 Vote négatif