Discussion :

[spanc27]

Bonjour,

J'ai une macro dans un fichier excel, affecté à un bouton, qui permet de recopier la feuille en la nommant du nom indiqué dans la case G11.
Cela fonctionnait très bien, puis ce matin, la macro recopie bien la feuille, mais donne à chaque fois le nom suivant: modele(2), modele (3)...

Je n'ai pas touché au code! Seulement à la feuille excel. Le nom de mon fichier à recopier est toujours dans la case G11.
Le code est le suivant:

Code VBA :

Sélectionner tout - Visualiser dans une fenêtre à part

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
 
Private Sub CommandButton1_Click()
 
Dim NFeuil As String
    If Range("G11") <> "" Then
        NFeuil = Range("G11")
        If FeuilExist(NFeuil) Then
            Sheets(NFeuil).Activate
            Exit Sub
        Else
            Sheets("Modele").Copy After:=Sheets(ThisWorkbook.Sheets.Count)
            ActiveSheet.Name = NFeuil
 
        End If
    End If
 
End Sub
 
Function FeuilExist(NomFeuil As String) As Boolean
Dim a
    FeuilExist = False
    On Error GoTo Err1
    a = Sheets(NomFeuil).Range("A1").Value
    FeuilExist = True
    Exit Function
Err1:
End Function

Je ne m'y connais pas assez malheureusement pour trouver la solution moi-même. Quelqu'un peut-il m'aider svp? (j'espère que j'ai indiqué les bonnes balises)

Merci d'avance.

[Kimy_Ire]

Bonjour spanc27,

Essaye ceci :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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
Private Sub CommandButton1_Click()
Dim NFeuil As String
 
If Range("G11") <> "" Then
    NFeuil = Range("G11")
    If FeuilExist(NFeuil) Then
        Sheets(NFeuil).Activate
        Exit Sub
    Else
        Sheets("Modele").Copy After:=Sheets(ThisWorkbook.Sheets.Count)
        Sheets(ThisWorkbook.Sheets.Count).Name = NFeuil
    End If
End If
 
End Sub
 
Function FeuilExist(NomFeuil As String) As Boolean
 
For Each oWksh In Worksheets
    If oWksh.Name = NomFeuil Then
        FeuilExist = True
        Exit Function
    End If
Next oWksh
 
FeuilExist = False
End Function

J'attends ton retour.

Cordialement,
Kimy

[spanc27]

Impeccable!! Que demande le peuple!
Merci beaucoup de votre intervention.

Très cordialement.