choisir une feuille

[Stéphane]

Bonjour à tous,

désolé, je vais poser une question bête mais je n'arrive pas à faire un test.
Je veux vérifier à l'ouverture qu'il existe une feuille nommée 'Temp' et si elle n'existe pas la créer. Il faut donc que je scrute le nom de chaque feuille à l'ouverture. Mon code est le suivant et je ne comprends pas pourquoi il ne marche pas:

Private Sub workbook_activate()
Dim temp, sh, Worksheet

For Each Worksheet In Worksheets
If Worksheet.Name = 'Temp' Then
Exit For
Else
Set temp = Worksheets.Add
With temp
.Name = 'Temp'
End With
End If
Next
End Sub

Merci pour le coup de main.

--Stéphane

 

[PascalXLD]

Bonjour

essaies

Private Sub workbook_activate()
Dim ws as Worksheet

For Each ws In Worksheets
If ws.Name = 'Temp' Then
Exit sub
End If
Next
Sheets.Add
ActiveSheet.Name = 'Temp'
End Sub

Bon courage

 

[Stéphane]

Merci c'était ce que je voulais. C'est super sympa.

--Stéphane