lister les feuilles dans un workbook

S

syl77

Guest
Bonjour
Je voudrais verifier lorsque j'ouvre un workbook que 2 feuilles existent. dans ce cas l'application peut se poursuivre. Comment puis je verifier les noms des feuilles se trouvant dans un document xls?
Voici mon code:

Dim Pos As Integer
Dim start As Integer
Dim fileopen As Variant
Dim tmp As Variant
Application.ScreenUpdating = False

fileopen = Application.GetOpenFilename('Excel Files (*.xls), *.xls', , 'Inventory')
If fileopen = False Then
MsgBox 'Please try again', vbInformation
Exit Sub
End If
Workbooks.Open (fileopen)
Verifier l'existence d'une feuille nommee 'resources'????????????
si elle existe on l'active??????????????????????????????????
Application.Sheets('resources').Select

Merci pour vos reponses
Sylvain
 

Discussions similaires

Statistiques des forums

Discussions
312 938
Messages
2 093 759
Membres
105 813
dernier inscrit
Lievin Nkulu