Discussion :

[MarcelG]

Bonjour le Forum

(La résolution de cette discussion servira à répondre en partie à celle que j'avais ouverte "Classeur en lecture seule avec condition" en échange avec Mondev, pour laquelle je cherche une solution, mais le problème reste indépendant. Ai-je bien fait ?)

Sur ce même Forum, j'ai trouvé une fonction proposée par "Bouley" en Février 2006, et qui renvoie l'information quant à l'ouverture d'un classeur par moi-même, ou un autre de mes collègues de travail.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Function FichierEstOuvert(ByRef FichierTeste As Variant) As Boolean
    Dim FICHIER As Long
    On Error GoTo Erreur
    FICHIER = FreeFile
    Open FichierTeste For Input Lock Read As #FICHIER
    Close #FICHIER
    FichierEstOuvert = False
    Exit Function
Erreur:
    FichierEstOuvert = True
End Function

Voici mon code intégré dans un classeur "Annexe.xls":

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Private Sub Workbook_Open()
Dim NomCl As String
NomCl = "TATA.xls"
 
If FichierEstOuvert(NomCl) = True Then
    MsgBox "Ouvert !"
    Workbooks(NomCl).Close (False)
Else
     MsgBox "Non Ouvert !"
End If
End Sub

Immédiatement après l'ouverture d'une session Excel, j'ouvre ce classeur :

Msgbox ==> "Ouvert !"

Puis

Erreur d'exécution'9'
L'indice n'appartient pas à la sélection.

sur la lgne de code

Code :

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

Workbooks(NomCl).Close (False)

!!!!!????

Jusque là, cette fonction ne m'a posé aucun problème.

Je dois dire que dans une même session antérieure Excel, j'avais ouvert les 2 classeurs. D'autre part, il n'y a aucune liaison entre "TATA" et "Annexe".

Problème annexe :

Plus généralement, il arrive qu'un collègue utilise un classeur Excel puis le referme.
Si je cherche à l'ouvrir, j'ai un message "Ce classeur est déjà utilisé par ..."
Si le collègue reboote son classeur, alors je peux l'ouvrir sans problème ??!!

A quoi est dûe cette anomalie ?
Existe-t-il une instruction VBA pour lever ce genre de problème ?

Merci à tous.

Marcel

[Jean-Philippe André]

salut,
ce que je crois comprendre du problème est que lorsque tu utilises

Code :

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

FichierEstOuvert(NomCl)

tu demandes si quelqu'un a déjà ouvert le fichier et a la main dessus, quelque soit la machine depuis laquelle ce fichier est ouvert.

alors que lorsque tu utilises

Code :

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

Workbooks(NomCl).Close (False)

tu postules que ce classeur est ouvert sur ta machine

Donc il y a soucis

[MarcelG]

Merci pour ta réponse.

Ce que je voulais expliquer, c'est l'utilisation de la fonction.

Dans ce cas particulier, je suis le seul à utiliser ces fichiers d'essai. La fonction FichierEstOuvert fonctionne dans les 2 cas (moi ou un autre).

J'ai déplacé les 2 fichiers dons mon répertoire personnel "My Documents". Là, personne ne peut y accéder.

Pourtant, le problème persiste.

Cordialement.

Marcel.

[MarcelG]

Bonjour à tous,

Merci pour cette réponse.
J'ai utilisé la fonction FichierEstOuvert décrite ci-dessus. En effet, il faut indiquer un chemin et non un nom de fichier seul. Ainsi, la fonction a bien joué son rôle.

Je reconnais ne pas avoir fouillé la fonction. Je viens de le faire. Mais à quoi vois-tu qu'un chemin est attendu et non un nom de fichier ? J'ai utilisé l'aide en ligne, peut-être mal, mais je n'ai pas obtenu de réponse.

Comme je ne m'occupe que de ma seule utilisation, et comme tu me l'as conseillé, la méthode test par nom dans la collection Workbooks est mieux adaptée.

Reste ma dernière question.
Dans un cas plus général, il arrive que l'un de mes collègues utilise un fichier puis le referme par macro

Code :

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

1
2
ActiveWorkbook.Save
Application.Quit

ou

Code :

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

ActiveWorkbook.Close (True)

.
Quand je l'ouvre, malgré cela, Excel m'alerte que le fichier est en cours d'utilisation ??!!
Si le collègue reboote son PC, alors je peux l'ouvrir normalement.
Mystère !

En tout cas, Merci à tous les intervenents pour cette aide précieuse.
Cordialement.
Marcel