Copier la feuille Excel dans le même fichier avec renommer

bienvenu à tous

J'ai un fichier excel de 2 feuilles nommé radio1 et radio2

Je veux que le code copie la feuille radio1 dans le même fichier avec le nom radio4 et nous ajoutons tous une nouvelle feuille nommée radio5 séquentiellement, et ainsi de suite.......

Existe-t-il un moyen de renommer la dernière valeur de la colonne A, ce qui signifie que si radio9 est trouvé, le code nommera la nouvelle feuille radio10

Bonjour Arwasoha,

Si j'ai bien compris, voici une possibilité de code avec le préfix "Radio" pour le nom des feuilles

Sub CopieFeuilleNumérotée()
  Dim Ind As Integer
  Dim FlgExist As Boolean, Test As String
  ' Copier la 1ère feuille Radio
  Sheets("Radio1").Copy After:=Sheets(Sheets.Count)
  ' Nouvel indice de départ
  Ind = 2
  ' Commencer la boucle de test
  Do
    ' En cas d'erreur on continue le code
    On Error Resume Next
    ' Vérifier si la feuille existe, en récupérant une valeur fictive
    Test = Sheets("Radio" & Ind).Range("A1").Value
    ' Si pas d'erreur, Flag = feuille existe
    If Err.Number = 0 Then FlgExist = True: Ind = Ind + 1 Else FlgExist = False
  Loop While FlgExist
  ' Gestion normale des erreurs
  On Error GoTo 0
  ' Renommer la feuilel active (celle copiée)
  ActiveSheet.Name = "Radio" & Ind
End Sub

A+

Merci beaucoup, c'est vraiment nécessaire. Il me manque, s'il vous plaît, lors de la copie de l'élément, copiez son nom dans la cellule m7