Discussion :

[gentoo]

Bonjour,


J'ai une macro "copiervers" qui fonctionne tant que le fichier à ouvrir n'est pas déjà ouvert. Logique.
J'ai une erreur si fichier déjà ouvert.


Je voudrais tout gérer en VBA, pour gérer cette erreur.

J'ai eu cette fonction qui teste si un fichier est ouvert:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Function IsFileOpen(ByVal strFic As String) As Boolean
    Dim fic As Integer
    On Error Resume Next
 
    fic = FreeFile()
    Open strFic For Input Access Read Lock Read Write As fic
 
    If Err.Number = 0 Then
        IsFileOpen = False
        Close fic
    Else
        IsFileOpen = True
    End If
End Function

Problème, comment utiliser la fonction dans une procédure.

En gros je ne sais pas utiliser les fonctions...

J'ai parcouru les faq dans touts les sens




Merci

[Jean-Philippe André]

Bonjour,
exemple avec un fichier pioupiou.txt

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
If IsFileOpen("C:\pioupiou.txt") Then
MsgBox "le fichier Pioupiou.txt est déjà ouvert"
Else
MsgBox "personne n'ouvre actuellement le fichier Pioupiou.txt"
End If

[gentoo]

Merci,


Je teste...