Copier et renommer une feuille selon des Box Résolu

Question

Bonjour, 

Je voudrais savoir s'il est possible de nommer une feuille en fonction d'une TextBox et d'une ComboBox ?

Je souhaite partir d'un modèle existant ("ARGUMENTAIRE"), le copier et ensuite le renommer. Sur le début j'ai la commande suivante :
    ActiveWorkbook.Unprotect ("Toto")
    Sheets("ARGUMENTAIRE").Visible = True
    Sheets("ARGUMENTAIRE").Select
    Sheets("ARGUMENTAIRE").Copy After:=Sheets(5)
    Sheets("ARGUMENTAIRE").Select
    ActiveWindow.SelectedSheets.Visible = False
    ActiveWorkbook.Protect ("Toto"), Structure:=True, Windows:=False

Du coup la feuille s'appele ARGUMENTAIRE 2, ou 3 etc ! Et de là je suis bloquée !!!

Merci d'avance,

f894009 · Answer

Bonjour,

Il faudrait mettre votre fichier a dispo 
Pour transmettre un fichier,
Veillez a ce qu'il n'y ait PAS DE DONNEES CONFIDENTIELLES
il faut passer par un site de pièce jointe tel que cjoint.com

Allez sur ce site : https://www.cjoint.com/
Clic sur parcourir,
Cherche ton fichier,
clic sur ouvrir,
Clic sur "Créer le lien cjoint",
Copier le lien,
Revenir ici le coller dans une réponse...

ou
'mon partage
https://mon-partage.fr/

Kalissi · Answer

Bonjour,

Suggestion :

Sub ChangeNom()

Dim NomFeuille As String

Sheets("ARGUMENTAIRE").Visible = True
    Sheets("ARGUMENTAIRE").Select
    Sheets("ARGUMENTAIRE").Copy After:=Sheets(5)
    
    NomFeuille = UserForm1.ComboBox1.Text
    ActiveSheet.Name = NomFeuille

End Sub


K

Emilie · Answer

Désolé les données sont confidentielles, je ne peux joindre aucun fichier.
 
Kalissi ca marche parfaitement !
Et si je ne veux par exemple que le trois premiers caractères de ma combobox + une autre combobox, c'est possible ?
En formule : GAUCHE(ComboBox1)&CobomBox2

Copier et renommer une feuille selon des Box

3 réponses

Votre réponse

Discussions similaires