patricktoulon
XLDnaute Barbatruc
allez je met la mienne version Wagadougou
elle teste l'existence de la feuille sur le classeur même de la macro ou dans un des classeur ouverts dans la même instance d'Excel par son index ou son nom
inutile de dire pour ceux qui connaissent, qu'elle sert aussi pour tester le classeur ouvert
elle teste l'existence de la feuille sur le classeur même de la macro ou dans un des classeur ouverts dans la même instance d'Excel par son index ou son nom
inutile de dire pour ceux qui connaissent, qu'elle sert aussi pour tester le classeur ouvert
VB:
Sub testX()
'test dans le classeur meme
MsgBox sheetsExiste(ThisWorkbook, "feuil2")
End Sub
Sub testy()
'test dans le 2d classeur de la même instance du classeur contenant la macro
Dim wbk As Workbook
'Set wbk = Workbooks(2) 'par son index
Set wbk = Workbooks("toto.xlsm") ' identifié par son nom
MsgBox sheetsExiste(wbk, "feuil3")
End Sub
Function sheetsExiste(wbk As Workbook, sname As String) As Boolean
sheetsExiste = Not IsError(Evaluate("='[" & wbk.Name & "]" & Replace(sname, "'", "''") & "'!A1:A2"))
End Function