Bonjour,
Existe t-il un moyen en VBA de s'assurer, avant ouverture, qu'un fichier Excel est disponible pour un access en écriture ?
La seule solution que j'ai trouvé actuellement est d'ouvrir le fichier et de vérifier après s'il a été ouvert en Lecture seule.
Merci d'avance

salut thierry,
 
voici une fonction répondant à tes besoins :
 
Function LectureSeule(FileName As String) As Boolean
 
  Dim Fs As Object, St As Integer
  Set Fs = CreateObject("Scripting.FileSystemObject" )
  Set f = Fs.GetFile(FileName)
  St = f.Attributes
 
  If St = 1 Or St = 33 Then
    LectureSeule = True
  Else
    LectureSeule = False
  End If
 
End Function

Bonsoir Damine,
 
Merci pour ta réponse, mais je ne recherche pas à savoir si le fichier est en lecture seule ou non mais s'il est accéssible c'est à dire pas déjà ouvert par un autre utilisateur.
En fait j'ai une application VBA Excel qui met à jour d'autres fichiers Excel et elle doit vérifier avant ouverture  qu'ils ne sont pas déjà utilisés par un autre utilisateur.

dans ce cas, cette fonction non testée devrait faire l'affaire
 
Function IsFileOpen(filename As String)
Dim filenum As Integer, Errnum As Integer
On Error Resume Next
filenum = FreeFile()
Open filename For Input Lock Read As #filenum
Close filenum
Errnum = Err
On Error GoTo 0
Select Case Errnum
Case 0
IsFileOpen = False
Case 70
IsFileOpen = True
End Select
End Function

Merci Dammien,
C'est exactement ce qu'il me fallait ... et cela fonctionne très bien
Bonne soirée