Bonjour,

J'utilise beaucoup votre forum et j'apprecie beaucoup toutes les informations que je peux retrouver, Merci encore =)

J'ai regroupé plusieurs solutions qui englobent mon problème dans un sujet car je n'ai pas trouvé un sujet qui répondait à toutes les questions en même temps

- Verifier que le fichier Existe
- Verifier qu'il n'est pas déjà ouvert
- Verifier un autre utilisateur l'utilise déjà

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
Set TestFichier = CreateObject("Scripting.FileSystemObject")
 
'Verifie l'existance du fichier
If TestFichier.FileExists(DossierRecap & Recap) = False then MsgBox "Le Fichier n'est pas a l'endroit attendu " DossierRecap & Recap
'Verifie que le fichier n'est pas ouvert dans le classeur
On Error resume Next
Workbooks(Recap).Activate
If Err <>0 then Workbooks(DossierRecap & Recap).Open, ReadOnly := False
'Verifie qu'un autre utilisateur ne l'utilise pas déjà
If Workbooks(Recap).readOnly = true then
<div style="margin-left:40px">MsgBox "Le Fichier " & Recap & " est déjà utilisé. Merci de le fermer et de relancer la macro"
Workbooks(Recap).close
Exit Sub</div>End If