Macro VBA - recopie page excel
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:
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.