Discussion :

[Godzestla]

Bonjour,
peut-on tester si un classeur est déjà ouvert sans utiliser On Error ?

[ucfoutu]

Bonjour, Godzetla,

Tu n'en parles pas, mais je suppose que tu veux savoir y compris s'il a été ouvert depuis ailleurs que ton appli ?

Essaye ceci :

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
Private Declare Function lOpen Lib "kernel32" Alias "_lopen" (ByVal lpPathName As String, ByVal iReadWrite As Long) As Long
Private Declare Function lClose Lib "kernel32" Alias "_lclose" (ByVal hFile As Long) As Long
Private Function dejaouvert(FileName As String) As Boolean
    Dim lfic As Long, erreur As Long
    lfic = -1: erreur = 0
    lfic = lOpen(FileName, &H10)
    If lfic = -1 Then
        erreur = Err.LastDllError
    Else
        lClose (lfic)
    End If
    dejaouvert = (lfic = -1) And (erreur = 32)
End Function
 
Private Sub Command1_Click()
  MsgBox dejaouvert("d:\class1.xls") ' mets ici le chemin complet de TON classeur dont tu veux savoir s'il est déjà ouvert
End Sub

[Godzestla]

Bonjour Ucfoutu,

et merci.

Je n'avais pas besoin dasn ce cas de savoir si mon appli a été ouverte ailleurs, mais malgré tout, je prends bonne note de la solution pour ce cas de figure.

Excellente journée;

Je teste et je cloture dès que testé.

[Gorfael]

Salut Godzestla et le forum
Autre proposition : une boucle qui teste si le nom des classeurs ouverts correspond.
A+

[Godzestla]

Salut Gorfael,
merci pour ta réponse.
Comment retrouves-tu le nom des classeurs ouverts ?

[Gorfael]

Salut Godzestla et le forum
tout simple

Code :

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

1
2
3
4
5
6
Sub test()
Dim C As Workbook
For Each C In Workbooks
    MsgBox C.Name
Next C
End Sub

A+

[Godzestla]

Merci.

Je mets cela dans ma collection "grandissante" de trucs importants.