Verifier sheets du fichiers

Re Bonjour


Pas sûr d'avoir capté ta demande...

Cette macro te retournera la derniere feuille dans l'odre des index comportant un numéro (pas les autre style feuil1, feuil2.... etc...

Option Explicit
Sub LastFeuille()
Dim WS As Worksheet
Dim An As Integer
For Each WS In Worksheets
If IsNumeric(WS.Name) Then
An = WS.Name
End If
Next
MsgBox An
End Sub

Si c'est çà ? on pourrait mettre ces feuilles dans un ListBox... mais comme tu dis pas où tu voudrais récupérer... Moi je n'ai pas le temps d'inventer ! (lol)

...
@+Thierry

pour avoir le nom de la dernière feuille :

nbfeuilles = ActiveWorkbook.Sheets.Count
Sheets(nbfeuilles ).Select
nomfeuil = activesheet.name

Sheets(nbfeuilles).Select (y'avait un espace en trop!!!!)

re et merci a vous tous