VBA - Workbook_Open - vérifier si une feuille est présente ou non

[Hub]

Bonjour à tous

Comment réaliser un test qui vérifie si, à l’ouverture du classeur, une feuille est présente ou non.
J’ai essayé avec les solutions ci-dessous, ca ne marche pas !!!

Private Sub Workbook_Open()

If Sheets("Feuil1") <> "" Then ou If Sheets("Feuil1").Exist = True Then
Sheets("Feuil1").Activate
MotPasse.Show
Else
Sheets("Feuil2").Activate
End If

End Sub

Merci d’avance pour vos réponses,

@+

 

[Caillou]

Re : VBA - Workbook_Open - vérifier si une feuille est présente ou non

Bonjour,

Essayes ça:

Private Sub Workbook_Open()
Dim f As Worksheet, trouve As Boolean
trouve = False
For Each f In ActiveWorkbook.Worksheets
  If f.Name = "Feuil1" Then
    trouve = True
    Exit For
  End If
Next
  If trouve Then
    Sheets("Feuil1").Activate
  Else
    Sheets("Feuil2").Activate
  End If
End Sub

Caillou

 

[jpb388]

Re : VBA - Workbook_Open - vérifier si une feuille est présente ou non

Bonjour à tous,Hub,Caillou

ou ceci

Private Sub Workbook_Open()
On Error Resume Next
Sheets("Feuil1").Activate
If Err.Number > 0 Then Sheets("Feuil2").Activate Else MotPasse.Show
End Sub

 

[phlaurent55]

Re : VBA - Workbook_Open - vérifier si une feuille est présente ou non

Bonjour à tous,

Private Sub Workbook_Open()
On Error GoTo fin
Sheets("blabla").Select
' suite de la procédure
' suite de la procédure
' suite de la procédure
' suite de la procédure
' suite de la procédure
' suite de la procédure
fin:
End Sub

à+
Philippe

 

[Hub]

Re : VBA - Workbook_Open - vérifier si une feuille est présente ou non

Ok, merci à tous
je regarde ça
je pense, qu'avec toutes ces solutions, je devrai m'en sortir

@+