Classeur déja ouvert

bonjour

quelques méthodes

Sub UseMyWorkbook
if Not ThereIsOne(MyWorkbook, Among:=workbooks) then workbooks(MyWorkbook).Open
end Sub

function ThereIsOne(itemname As String, Among As Object) As Boolean
dim Item As Object
for each Item In Among
ThereIsOne = (itemname = Item.name)
if ThereIsOne then Exit for 'exit early if found
next Item
end function

Autre méthode : une fonction, fournie par Rob Bovey
function ClasseurOuvert(ByVal NomDuClasseur As String) As Boolean
On Error Resume next
ClasseurOuvert = (LCase$(workbooks(NomDuClasseur).name) = LCase$(NomDuClasseur))
end function


bye

Bonjour Binouze,

Je te remercie pour tout celà, je vais essayer.

@Brigitte

Rebonjour binouze, bonjour le forum,

j'ai fait un copier coller de ta macro dans mon vba,
mais ça ne marche pas, à mon avis s'est une fonction,
et je ne sais pas comment on les utilisent.
Voici ma macro mais comment la modifier. Tu sais je suis débutante...

Merci

Sub Ouvre()
Dim classeurouvert As Boolean
Dim nomduclasseur As String
nomduclasseur = "lenom.xls"
classeurouvert = ((Workbooks(nomduclasseur).Name) = LCase$(nomduclasseur))

Workbooks.Open FileName:="c:\mes documents\lenom.xls"

Exit Sub

@Brigitte

sub demo
If ClasseurOuvert(nomduclasseur ) = True Then
MsgBox "test"
end if
end sub
Function ClasseurOuvert(ByVal NomDuClasseur As String) As Boolean
On Error Resume Next
ClasseurOuvert = (LCase$(Workbooks(NomDuClasseur).Name) = LCase$(NomDuClasseur))
End Function

Bonjour Binouze,

Cette fois c'est ok, et je te remercie beaucoup
pour ton dernier code.

@Brigitte