J'ai regardé "tout" ton problème
Si je comprends bien ce que tu veux faire, c'est tester si le fichier que tu cherches à ouvrir est déjà utilisé par quelqu'un d'autre
Si tu l'as déjà ouvert toi-même, c'est le même code d'erreur
Mais tu peux afficher un message. Je remets le code
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19
| Sub OuvrirFichierFermé()
Dim NomFich(3)
NomFich(1) = "C:\Mes documents\Angelo\Conception\Apac Noisy\Domaine Chèque\Mensuel"
NomFich(2) = "C:\Mes documents\Angelo\Conception\Apac Noisy\Domaine Chèque\Mensuel2"
NomFich(3) = "C:\Mes documents\Angelo\Conception\Apac Noisy\Domaine Chèque\Mensuel3"
For i = 1 To 1
CesameOuvreToi (NomFich(i))
Next
End Sub
Sub CesameOuvreToi(NomFich)
Application.DisplayAlerts = False
On Error Resume Next
Workbooks(NomFich).Activate
If Err = 9 Then MsgBox "Fichier utilisé par un autre utilisateur ou déjà ouvert"
If Err = 0 Then Workbooks.Open Filename:=NomFich
On Error GoTo 0
Application.DisplayAlerts = True
End Sub |
Tu n'es pas obligé de mettre la ligne
If Err = 9 Then MsgBox "Fichier utilisé par un autre utilisateur ou déjà ouvert"
mais ce serait mieux pour l'utilisateur
Tu dis
Edit
Si tu veux être averti quand le fichier sera disponible, tu retires
Application.DisplayAlerts = False
Partager