Vérification si fichier déja ouvert

[Djay]

Bonjour a tous!
Dans mon projet de stage, je dois gérer des renseignements sur les appels téléphoniques d'une entreprise. Le fichier de base est "Suivi des appels téléphoniques". Ce fichier enregistre les info temporairement dans son classeur et les copie aussi dans un autre fichier "Récap des appels tel". Deux standardiste utiliseront le fichier "Suivi.." sur deux postes différents. A la fin de la journée, leurs saisies doivent être basculé vers un fichier "Commun récap". Il faut vérifier si ce fichier n'est pas déjà utilisé. Dans ce cas, il faudra annuler la copie des informations. J'arrive bien à vérifier si il existe mais pas s'il est déjà ouvert. J'attends vos propositions.
Merci.
Djay

 

[Vero]

Function VerifFichOuvert(nomfic)
Dim wb As Workbook
Application.Volatile True
FichOuv = True
On Error GoTo fin
Set wb = Workbooks(nomfic)
Set wb = Nothing
Exit Function
fin:
FichOuv = False
On Error GoTo 0
End Function

espérant que cla répond à tes besoins.
Véro

 

[Djay]

Re

Merci pour la soluce.
djay