XL 2021 Dupliquer une feuille

netparty

XLDnaute Occasionnel
Bonjour à tous

J'utilise ce code :
VB:
Sub Dupliquer_feuille()

'**** Dupliquer la feuille active
 
        ActiveSheet.Copy before:=Sheets("RENDEMENT CHANTIER")
        
'*********************************************************************
'   Renome la feuille
'*********************************************************************
'   Oblige l'utilisateur d'entrer un nom

    Dim NomFeuil As Variant
reponse:

    NomFeuil = InputBox("Veuillez définir le nouveu nom de l'onglet")

    If NomFeuil = "" Then GoTo reponse
    ActiveSheet.Name = NomFeuil
 
 
End Sub

Pour dupliquer les feuilles de mon classeur est-il possible d'avoir un avertissement si le nom d'une feuille existe déja ?

Merci
 

Discussions similaires

Réponses
2
Affichages
431

Statistiques des forums

Discussions
313 271
Messages
2 096 724
Membres
106 720
dernier inscrit
Alain EDZOA