La feuille existe t-elle ?

[shimon810]

Bonsoir à tous,

Pourriez vous me renseigner sur le code à ecrire pour dire :
Si feuil1 n'existe pas alors je la crée.

Merci

Simon

 

[Pierrot93]

Re : La feuille existe t-elle ?

Bonsoir Simon,

une solution parmi d'autres :

Sub test()
Dim sh As Worksheet
On Error Resume Next
Set sh = Sheets("Feuil1")
    If Err.Number <> 0 Then Sheets.Add.Name = "Feuil1"
On Error GoTo 0
End Sub

bonne soirée
@+

 

[Cousinhub]

Re : La feuille existe t-elle ?

Bonsoir,

essaie avec ce code :

Sub existe()
On Error Resume Next
Set c = Sheets("essai")
If Err <> 0 Then Sheets.Add.Name = "essai"
On Error GoTo 0
End Sub

Bing : Bonsoir, Pierrot

 

[shimon810]

Re : La feuille existe t-elle ?

Bonsoir,

Tout fonctionne
Merci beaucoup.
Simon