vba info si un fichier est ouvert ou fermé

[elisa27]

Bonsoir,

Est-il possible de savoir si un fichier est en cours d'utilisation ou bien s'il est est possible de l'ouvrir pour le modifier.

Merci d'avance pour vos réponses

 

[Compte Supprimé 979]

Re : vba info si un fichier est ouvert ou fermé

Salut Elisa27,

Tu peux essayer avec ce code

Sub OuvrirSiOK()
Dim Chemin$, Wbk As Workbook
  Chemin = "D:\Test\Classeur1.xls"
  On Error Resume Next
  Workbooks(Dir$(Chemin)).Activate
  If Err <> 0 Then
    Err.Clear
    Workbooks.Open Chemin
  End If
  Set Wbk = Workbooks(Dir$(Chemin))
  MsgBox Wbk.Name
End Sub

A+

 

[elisa27]

Re : vba info si un fichier est ouvert ou fermé

merci c'est ce qu'il me faut