S
Stéphane
Guest
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
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