workbooks.visible = true

[Lu K]

Bonjour à tous,

Je cherche depuis plusieures heures une condition qui me permet de voir si un classeur est ouvert, mais celle-ci ne fonctionne pas :

if workbooks("Monclasseur.xls").visibe = true then
exit sub
end if
end sub

Merci d'avance pour votre aide

 

[Pierrot93]

Re : workbooks.visible = true

Bonjour,

essaye peut être ainsi :

Sub TestClasseurExiste()
Dim nomClasseur As String
nomClasseur = "classeur1.xls"
If Not ClasseurExiste(nomClasseur) Is Nothing Then MsgBox "OK, classeur ouvert..."
End Sub

Function ClasseurExiste(c As String) As Workbook
On Error Resume Next
Set ClasseurExiste = Workbooks(c)
End Function

bonne journée
@+

 

[PMO2]

Re : workbooks.visible = true

Bonjour,

Essayez ce code

Sub aa()
Dim WB As Workbook
On Error Resume Next
Set WB = Workbooks("Classeur2")  'à adapter
If Err <> 0 Then
  MsgBox "Le classeur n'est pas ouvert"
  Err.Clear
Else
  MsgBox "Classeur ouvert"
End If
End Sub

Cordialement.

PMO

 

[Lu K]

Re : workbooks.visible = true

Bonjour PMO, Pierrot93 et le fil

Merci pour vos réponse si rapide, c'est exactement ce que je cherche !

Bravo à tous !!!