Renommer une feuille avec VBA

Bonjour,

J'utilise Excel 2000
Je crée de nouvelles feuilles de calcul avec une routine vba :
Code:

1 2 Sheets("MODELE").Select Sheets("MODELE").copy After:=Sheets(1)
Je voudrais créer une boite de dialogue pour que l'utilisateur renomme la feuille créée (par exemple avec un inputbox) :

Code:

nom = InputBox("Renommer la nouvelle feuille", "CALCUL HORAIRE")

Mais je ne vois pas comment attribuer le nom entrer dans la boîte de dialogue à la nouvelle feuille et vérifier si l'utilisateur ne laisse pas la plage vide.

Pourriez-vous m'aider ?
Merci !

Bonjour,
A mettre après la copie :

Code:

If nom <> "" Then ActiveSheet.Name = nom

Didier

Merci Didier, c'est sympa de m'avoir répondu, mais ce n'est pas tout juste ce que je voulais faire ... pas d'inquiétude, en fouillant dans le forum, j'ai fini pas trouver ce que je voulais faire (ça m'a pris 3 heures mais enfin bon :) )
Et j'ai donc ceci comme résultat (je le place ici ; on ne sait jamais, cela pourrait aider certains débutant)

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
 
Private Sub CommandButton1_Click()
'
' copy Macro
' Macro enregistrée le 17/12/2008 par Pol SOUMILLON
'
    Dim Msg, Style, Title, Help, Ctxt, Response, MyString
    Dim nom As String
    Dim nom1 As String
    Dim i As Byte
    Dim verif As Boolean
    Dim dte As Date
    Dim dte1 As String
'
' Sauve le classeur actif
    ActiveWorkbook.Save
' Sélection la feuille MODELE et la copie
    Sheets("MODELE").Select
    Sheets("MODELE").copy After:=Sheets(1)
' Renommer la feuille.
' Définit dte et dte1 avec l'année en cours
    dte = Now()
    dte1 = Format(dte, "yyyy")
'
' Définit le message d'invite
    Msg = "Définissez le nom de la nouvelle feuille" & Chr$(10)
    Msg = Msg & "Entrez le nom du mois auquel le calcul horaire" & Chr$(10)
    Msg = Msg & "fait référence" & Chr$(10)
    Msg = Msg & "caractères interdits : / \ ? * [ ]"
recom:
    verif = False
    nom = InputBox(Msg, "CALCUL HORAIRE")
    If nom = "" Then
        GoTo recom
    Else
        For i = 1 To Sheets.Count
            If Sheets(i).Name = nom Then
                verif = True
            End If
        Next
    End If
'
    If verif = True Then
        MsgBox "La feuille " & nom & " existe déjà, veuillez choisir un autre nom!"
        GoTo recom:
    End If
'
    nom1 = nom & " " & dte1
'
    verif = False
    For i = 1 To Sheets.Count
        If Sheets(i).Name = nom1 Then
            verif = True
            End If
        Next
'
    If verif = True Then
        MsgBox "La feuille " & nom1 & " existe déjà, veuillez choisir un autre nom!"
        GoTo recom:
    End If
'
    ActiveSheet.Name = nom1
End Sub