XL 2019 Récupérer le automatiquement le nom d'une feuille récemment créée

Créer une discussion
Répondre
  • Initiateur de la discussion Initiateur de la discussion scrib
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

S'inscrire
S

scrib

XLDnaute Nouveau
Bonjour à tout le forum,

Pour faire une archive d'une feuille xl, j'ai créé un bouton qui permet de le faire et de renommer la feuille nouvellement créée. J'aimerais pouvoir retrouver le nom de cette nouvelle feuille automatiquement. Depuis plusieurs jours, je planche sur ce problème et aucune solution ne fonctionne. Je vous joints un petit fichier txt de mon code pour plus de clarté.

VB: 
Private Sub BT_Archive_Click()
    Archive = MsgBox("Voulez-vous vraiment archiver cette feuille?", vbYesNo, "Archive de l'année passée")
    If (Archive = vbNo) Then
        Exit Sub
    Else
        Nouveau_Nom = InputBox("Donnez un nom à cette archive", "Renommer", vbOKOnly)
        If Nouveau_Nom = "" Then
            Exit Sub
        Else
            Sheets("Suivi année en cours").Activate
            ActiveSheet.Copy after:=Sheets("Suivi année en cours")
        End If
    End If
    ActiveSheet.Name = Nouveau_Nom
    Histo = MsgBox("Voulez-vous aussi archiver l'historique?", vbYesNo, "Archive de l'historique")
    If (Histo = vbNo) Then
        Exit Sub
    Else
    ' Ici je dois recupérer le nom nom de la feuille renommée
    'pour y inclure une copie d'une autre feuille XL
    End if

End Sub

Merci pour vos futures réponses.
Scrib
 
Solution
Staple1600
Re

Une version un peu améliorée
VB: 
Private Sub BT_Archive_Click()
Dim f_Nom$
archive = MsgBox("Voulez-vous vraiment archiver cette feuille?", vbYesNo, "Archive de l'année passée")
Select Case archive
Case 6
Nouveau_Nom = InputBox("Donnez un nom à cette archive", "Renommer", "Copie_")
If StrPtr(Nouveau_Nom) = 0 Then
MsgBox "Archivage annulé", vbExclamation
Exit Sub
ElseIf Nouveau_Nom = vbNullString Then
MsgBox "Vous n'avez pas saisi de nom pour l'archive!", vbCritical
Exit Sub
Else
f_Nom = Nouveau_Nom
End If
Case 7
Exit Sub
End Select
Sheets("Suivi année en cours").Copy after:=Sheets("Suivi année en cours")
ActiveSheet.Name = f_Nom
End Sub
Fais les tests suivants
1) clique sur Annuler
2) Clique sur OK en laissant l'InputBox vide...
Trier par date Trier par votes
Bonsoir le fil, ReBonsoir scrib

=>scrib
Je reposte mon message au bon endroit 😉
Un début de piste (qu'il faudra peaufiner)
Je te laisse tester pour en trouver les travers
VB: 
Private Sub BT_Archive_Click()
archive = MsgBox("Voulez-vous vraiment archiver cette feuille?", vbYesNo, "Archive de l'année passée")
Select Case archive
Case 6
Nouveau_Nom = InputBox("Donnez un nom à cette archive", "Renommer", "Copie_")
Case 7
Exit Sub
End Select
Sheets("Suivi année en cours").Copy after:=Sheets("Suivi année en cours")
ActiveSheet.Name = Nouveau_Nom
End Sub
 
Dernière édition:
Vote positif 0 Vote négatif
Staple1600 à dit:
Bonsoir le fil, ReBonsoir scrib

=>scrib
Je reposte mon message au bon endroit 😉
Un début de piste (qu'il faudra peaufiner)
Je te laisse tester pour en trouver les travers
VB: 
Private Sub BT_Archive_Click()
archive = MsgBox("Voulez-vous vraiment archiver cette feuille?", vbYesNo, "Archive de l'année passée")
Select Case archive
Case 6
Nouveau_Nom = InputBox("Donnez un nom à cette archive", "Renommer", "Copie_")
Case 7
Exit Sub
End Select
Sheets("Suivi année en cours").Copy after:=Sheets("Suivi année en cours")
ActiveSheet.Name = Nouveau_Nom
End Sub
Cliquez pour agrandir...
Bonjour et Merci Staple1600,
Je vais essayé ce code, et je reviens si il y a un problème dont je ne trouve pas la solution.
DB
 
Vote positif 0 Vote négatif
Re

Une version un peu améliorée
VB: 
Private Sub BT_Archive_Click()
Dim f_Nom$
archive = MsgBox("Voulez-vous vraiment archiver cette feuille?", vbYesNo, "Archive de l'année passée")
Select Case archive
Case 6
Nouveau_Nom = InputBox("Donnez un nom à cette archive", "Renommer", "Copie_")
If StrPtr(Nouveau_Nom) = 0 Then
MsgBox "Archivage annulé", vbExclamation
Exit Sub
ElseIf Nouveau_Nom = vbNullString Then
MsgBox "Vous n'avez pas saisi de nom pour l'archive!", vbCritical
Exit Sub
Else
f_Nom = Nouveau_Nom
End If
Case 7
Exit Sub
End Select
Sheets("Suivi année en cours").Copy after:=Sheets("Suivi année en cours")
ActiveSheet.Name = f_Nom
End Sub
Fais les tests suivants
1) clique sur Annuler
2) Clique sur OK en laissant l'InputBox vide.

EDITION:
VB: 
Private Sub BT_Archive_Click()
Dim f_Nom$
archive = MsgBox("Voulez-vous vraiment archiver cette feuille?", vbYesNo, "Archive de l'année passée")
Select Case archive
Case 6
Nouveau_Nom = InputBox("Donnez un nom à cette archive", "Renommer", "Copie_")
If StrPtr(Nouveau_Nom) = 0 Then
MsgBox "Archivage annulé", vbExclamation
Exit Sub
ElseIf Nouveau_Nom = vbNullString Then
MsgBox "Vous n'avez pas saisi de nom pour l'archive!", vbCritical
Exit Sub
Else
f_Nom = Nouveau_Nom
End If
Case 7
Exit Sub
End Select
If SheetExists(f_Nom) Then Exit Sub
Sheets("Suivi année en cours").Copy after:=Sheets("Suivi année en cours")
ActiveSheet.Name = f_Nom
End Sub
Function SheetExists(SheetName As String) As Boolean
SheetExists = False
On Error GoTo NoSuchSheet
SheetExists = (Len(Sheets(SheetName).Name) > 0)
NoSuchSheet:
End Function
 
Dernière édition:
Vote positif 0 Vote négatif
Solution
Staple1600 à dit:
Re

Une version un peu améliorée
VB: 
Private Sub BT_Archive_Click()
Dim f_Nom$
archive = MsgBox("Voulez-vous vraiment archiver cette feuille?", vbYesNo, "Archive de l'année passée")
Select Case archive
Case 6
Nouveau_Nom = InputBox("Donnez un nom à cette archive", "Renommer", "Copie_")
If StrPtr(Nouveau_Nom) = 0 Then
MsgBox "Archivage annulé", vbExclamation
Exit Sub
ElseIf Nouveau_Nom = vbNullString Then
MsgBox "Vous n'avez pas saisi de nom pour l'archive!", vbCritical
Exit Sub
Else
f_Nom = Nouveau_Nom
End If
Case 7
Exit Sub
End Select
Sheets("Suivi année en cours").Copy after:=Sheets("Suivi année en cours")
ActiveSheet.Name = f_Nom
End Sub
Fais les tests suivants
1) clique sur Annuler
2) Clique sur OK en laissant l'InputBox vide.

EDITION:
VB: 
Private Sub BT_Archive_Click()
Dim f_Nom$
archive = MsgBox("Voulez-vous vraiment archiver cette feuille?", vbYesNo, "Archive de l'année passée")
Select Case archive
Case 6
Nouveau_Nom = InputBox("Donnez un nom à cette archive", "Renommer", "Copie_")
If StrPtr(Nouveau_Nom) = 0 Then
MsgBox "Archivage annulé", vbExclamation
Exit Sub
ElseIf Nouveau_Nom = vbNullString Then
MsgBox "Vous n'avez pas saisi de nom pour l'archive!", vbCritical
Exit Sub
Else
f_Nom = Nouveau_Nom
End If
Case 7
Exit Sub
End Select
If SheetExists(f_Nom) Then Exit Sub
Sheets("Suivi année en cours").Copy after:=Sheets("Suivi année en cours")
ActiveSheet.Name = f_Nom
End Sub
Function SheetExists(SheetName As String) As Boolean
SheetExists = False
On Error GoTo NoSuchSheet
SheetExists = (Len(Sheets(SheetName).Name) > 0)
NoSuchSheet:
End Function
Cliquez pour agrandir...
Merci Staple 1600, je vais partir de ce code et le mettre à ma sauce pour qu'il corresponde à mon programme.
 
Vote positif 0 Vote négatif
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

N
  • Résolu(e)
Microsoft 365 Macro enregistrement automatique pdf
2
Réponses
18
Affichages
686
Nounours4173
N
L
  • Question Question
XL 2016 Enregistrer une zone dans un PDF
Réponses
2
Affichages
291
patricktoulon
patricktoulon
D
  • Résolu(e)
XL 2021 Combobox vide
Réponses
9
Affichages
256
Did25
D
patricktoulon
zip And unzip des éléments d'un fichier de type zip y compris les fichiers Excelavec la commande (TAR)
Réponses
2
Affichages
437
patricktoulon
patricktoulon
G
  • Question Question
XL 2021 Macro pour changer les titres de fichier d'archive
Réponses
3
Affichages
599
fanch55
fanch55
J
  • Question Question
XL 2021 transfert listview vers feuille excel
Réponses
9
Affichages
612
Piment
P
lestoiles1
  • Question Question
XL 2013 Sub commentaire
Réponses
2
Affichages
329
lestoiles1
lestoiles1
E
  • Résolu(e)
Microsoft 365 Combobox ajouter si n'existe pas dans Liste
2 3 4
Réponses
47
Affichages
3 K
cathodique
cathodique
E
  • Résolu(e)
XL 2019 transfer listbox vers une colonne à partir de la 4 ligne
Réponses
2
Affichages
331
escudo
E
patricktoulon
  • Question Question
Microsoft 365 datepicker dynamique intra userform ou dans feuille 2 versions(frame dynamique)(toute version d'excel )
6 7 8
Réponses
105
Affichages
3 K
Usine à gaz
Usine à gaz
oguruma
EXCEL :: VBA :: PIVOTTABLE :: PIVOTCACHE :: Nettoyer le cache des TCD
Réponses
0
Affichages
309
oguruma
oguruma
F
  • Question Question
Microsoft 365 Problème avec VBA ( Résolu)
Réponses
2
Affichages
488
firecarl
F
S
  • Résolu(e)
XL 2016 Coller nom classeur sur plage cellules
Réponses
9
Affichages
525
safranien
S
N
  • Résolu(e)
Microsoft 365 Recherche dans un tableau structuré à partir d'une TextBox
Réponses
11
Affichages
738
NONO14
N
oguruma
EXCEL :: VBA :: Barre de progression via un graphique cylindrique, cubique, aquarium, donuts et shape
Réponses
0
Affichages
594
oguruma
oguruma
Cédric06400
  • Résolu(e)
Microsoft 365 Déplacement Shape
Réponses
2
Affichages
298
Cédric06400
Cédric06400
P
  • Question Question
Microsoft 365 Problème lors de la création d'un fichier
Réponses
4
Affichages
625
ChTi160
ChTi160
Nicolas JACQUIN
  • Question Question
XL 2021 Exportation module, erreur après déprotection
2
Réponses
20
Affichages
1 K
Dranreb
Dranreb
N
  • Résolu(e)
Microsoft 365 Transfère de données d'un Userform vers un tableau structuré d'une feuille de calcul
Réponses
4
Affichages
401
NONO14
N
N
  • Résolu(e)
Microsoft 365 Modification impossible d'une TextBox
2 3 4
Réponses
56
Affichages
2 K
NONO14
N
Retour