Discussion :

[backx3]

Bonjour, en cherchant sur internet, j'ai opté pour le code avec la gestion d'erreur :

Code :

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

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 ?

[Thautheme]

Bonjour Backx3, bonjour le forum,

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

[kiki29]

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

Code :

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

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

[backx3]

Merci pour vos réponses.

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 :

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

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..

[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