Tester si un fichier est ouvert

Version imprimable

23/06/2016, 09h38
backx3

Tester si un fichier est ouvert
Bonjour, en cherchant sur internet, j'ai opté pour le code avec la gestion d'erreur :
Code:

1 2 3 4 On Error Resume Next Workbooks(Fichier).Activate If Err <> 0 Then Workbooks(Fichier).Close False On Error GoTo 0
Quelqu'un saurait pourquoi il fonctionne pas ? :?
23/06/2016, 09h52
Thautheme

Bonjour Backx3, bonjour le forum,

Difficile de te dire pourquoi il ne fonctionne pas sans connaître la valeur de la variable Fichier...

Salut, voir Code de macro pour vérifier si un fichier est déjà ouvert ou allégé dans la FAQ

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
Option Explicit
 
Sub TestFileOpened()
    ' Test to see if the file is open.
    If IsFileOpen("c:\Book2.xls") Then
        ' Display a message stating the file in use.
        MsgBox "File already in use!"
        ' Add code here to handle case where file is open by another
        ' user.
    Else
        ' Display a message stating the file is not in use.
        MsgBox "File not in use!"
        ' Open the file in Microsoft Excel.
        Workbooks.Open "c:\Book2.xls"
        ' Add code here to handle case where file is NOT open by another
        ' user.
    End If
End Sub
 
' This function checks to see if a file is open or not. If the file is
' already open, it returns True. If the file is not open, it returns
' False. Otherwise, a run-time error occurs because there is
' some other problem accessing the file.
Private Function IsFileOpen(filename As String)
Dim filenum As Integer, errnum As Integer
 
    On Error Resume Next
    filenum = FreeFile()
    ' Attempt to open the file and lock it.
    Open filename For Input Lock Read As #filenum
    Close filenum
    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.
        Case Else
            Error errnum
    End Select
End Function

23/06/2016, 10h15
backx3
Merci pour vos réponses.

Citation:

Envoyé par Thautheme

Bonjour Backx3, bonjour le forum,

Difficile de te dire pourquoi il ne fonctionne pas sans connaître la valeur de la variable Fichier...

Ben normalement c'est ok, vu que j'utilise cette variable avant...

J'ai vu ce code kiki, mais je me disais qu'il y avait plus simple avec On Error Resume Next.. :?

Edit: Modification de mon code :
Code:

1 2 3 4 5 6 On Error Resume Next MsgBox FichierGraphe MsgBox Fichier Workbooks(Fichier).Activate If Err <> 0 Then Workbooks(Fichier).Close False On Error GoTo 0
Le premier msgbox j'ai le nom du fichier ouvert avec l'extension, et le deuxième j'ai tout le chemin avec l'extension..
Il devrait se fermer, je comprends pas..
23/06/2016, 10h22
backx3

Problème résolu, je sais pas trop pourquoi, mais j'ai fermé le fichier+extension au lieu du chemin entier+extension.
Il me semblait avoir essayé les deux..

Merci quand même :)