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
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