IF woorkbook.activate=true???

[DERKOO]

Bonjour Forum

Juste une question

Comment savoir si un fichier qui s´appelle 'Bijour' est ouvert

If Workbooks('Bijour').activate = True Then
Msgbox 'Bijour Mr Vincent'
End If

C un truc comme ca non?

Merci Forum

Derkoo

 

[Robert]

Bonjour Derkoo, bonjour le forum,

Dim wb As Workbook
For Each wb In Workbooks
If wb.Name = 'bonjour.xls' Then
MsgBox 'Le classeur bonjour.xls est ouvert'
Exit Sub
End If
Next wb

 

[Bernard_XLD]

Bonjour Derkoo, Robert, le forum

ou en utilisant la superbe fonction de Ti

Function Ouvert(ByVal NomFichier$) As Boolean
Dim Wbk As Workbook
On Error GoTo fin
Set Wbk = Workbooks(NomFichier)
Ouvert = True
fin:
End Function

Il suffit de lui passer en argument le nom du classeur pour qu'elle réponde True si celui est ouvert.
Cela évite une boucle de test.

If Ouvert('Bijour') Then
Msgbox 'Bijour Mr Vincent'
End If

Cordialement, A+

 

[derkoo]

Merci les gars

Les 2 me sont très utiles

derkoo