Autres Probleme de macro qui ne fonctionne plus

CHALET53 à dit:

Bonjour
A priori le code de création fonctionne. Pour mettre la feuille à la fin :

Sub copiefeuille()
'
' copiefeuille Macro
'

'
Sheets("Modele").Select
Sheets("Modele").Copy After:=Worksheets(Worksheets.Count)

End Sub

a+

Cliquez pour agrandir...

CHALET53 à dit:

Avant de créer la feuille, il faut choisir un rallye en A1 sur la feuille Modele (liste déroulante)
et exécuter le programme Nouveau Rallye et ensuite le programme : Renommer

Sub RenameSheet()

Dim rs As Worksheet

For Each rs In Sheets
If rs.Name = "Feuil1" Or rs.Name = "Modele" Or rs.Name = "RALLYE" Then GoTo suite
rs.Name = rs.Range("A1")
suite:
Next rs

End Sub


Problème : si le nom est déjà créé : Plantage

Cliquez pour agrandir...