vérifier qu'un fichier est ouvert

[philppe27]

Bonjour,

Je voudrais vérifier dans une condition qu'un fichier excel est ouvert.
Quelqu'un pourrait-il m'aider et me donner le code vba qui permet de vérifier qu'un fichier est ouvert:
If ..... then

Merci d'avance,

Cordialement

 

[Compte Supprimé 979]

Re : vérifier qu'un fichier est ouvert

Salut Philippe27,

Essaye avec ce code

Function IsFileOpen(filename As String)
' (code Microsoft :
' http://support.microsoft.com/default.aspx?scid=kb;EN-US;q138621)
Dim filenum As Integer, errnum As Integer

  On Error Resume Next   ' Turn error checking off.
  filenum = FreeFile()   ' Get a free file number.
  ' Attempt to open the file and lock it.
  Open filename For Input Lock Read As #filenum
  Close filenum          ' Close the file.
  errnum = Err           ' Save the error number that occurred.
  On Error GoTo 0        ' Turn error checking back on.

  ' Check to see which error occurred.
  Select Case errnum
           
    ' No error occurred.
    ' File is NOT already open by another user.
    Case 0
      IsFileOpen = False

    ' Error number for "Permission Denied."
    ' File is already opened by another user.
    Case 70
      IsFileOpen = True

    ' Another error occurred, file is being queried.
    Case Else
      Error errnum
  End Select

End Function

Voilà

 

[philppe27]

Re : vérifier qu'un fichier est ouvert

Merci
C'est tout à fait ce que je cherchais.

Cordialement