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

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
Staple1600

Staple1600

XLDnaute Barbatruc
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
S

scrib

XLDnaute Nouveau
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
Staple1600

Staple1600

XLDnaute Barbatruc
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
S

scrib

XLDnaute Nouveau
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

Discussions similaires

E
  • Résolu(e)
XL 2019 transfer listbox vers une colonne à partir de la 4 ligne
Réponses
2
Affichages
136
escudo
E
F
  • Question
Microsoft 365 Problème avec VBA ( Résolu)
Réponses
2
Affichages
303
firecarl
F
A
  • Question
VBA qui fonctionnait avant, mais ne fonctionne plus avec le 64 bits
Réponses
2
Affichages
138
patricktoulon
patricktoulon
N
  • Question
Microsoft 365 Recherche dans un tableau structuré à partir d'une TextBox
Réponses
11
Affichages
301
NONO14
N
P
  • Question
Microsoft 365 Problème lors de la création d'un fichier
Réponses
4
Affichages
379
ChTi160
ChTi160
N
  • Résolu(e)
Microsoft 365 Modification impossible d'une TextBox
2 3 4
Réponses
56
Affichages
1 K
NONO14
N
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
218
NONO14
N
chaelie2015
  • Résolu(e)
XL 2013 (RESOLU) Modification du code de pdf au xlsm
Réponses
2
Affichages
501
chaelie2015
chaelie2015
chaelie2015
  • Question
XL 2013 Modifier un code de sauvegarde
2
Réponses
16
Affichages
904
chaelie2015
chaelie2015
Messan
  • Résolu(e)
XL 2019 Organiser les données dans listbox
Réponses
2
Affichages
692
Messan
Messan

Membres actuellement en ligne

8 membres et 65 invités.

Partager cette page

Tutos vidéos

Power Query : Ajouter des requêtes (Excel et Power BI)
Créez votre première fonction LAMBDA dans Excel en 3 étapes!
LAMBDA, l’arme secrète de Microsoft pour Excel !
Office Insider - Découvrez les nouveautés Excel avant tout le monde

Statistiques des forums

Discussions
315 124
Messages
2 116 460
Membres
112 748
dernier inscrit
Pboiusquet