Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

Copier/coller le nom d'un onglet VBA

Créer une discussion
  • Initiateur de la discussion Initiateur de la discussion Nonno
  • 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
N

Nonno

XLDnaute Nouveau
Bonjour,

Je voudrais copier un onglet d'un fichier pour le coller dans un autre tout en copiant également le nom de l'onglet. Je ne trouve pas le code pour copier/coller le nom de l'onglet pouvez vous m'aider ?
Voici mon code :

Code: 
 Workbooks.Open (Chemin & "\" & DossierDB & "\" & FichierDB), UpdateLinks:=False
        Workbooks(FichierDB).Activate
        Cells.Select
        Selection.Copy
        Windows(FichierMacro).Activate
        ActiveWindow.ScrollWorkbookTabs Position:=xlLast
        Sheets.Add After:=Sheets(Sheets.Count)
        ActiveSheet.Paste
        ActiveWindow.DisplayGridlines = False
        ActiveWindow.Zoom = 85
        Application.CutCopyMode = False
        Workbooks(FichierDB).Activate
        [B]ActiveSheet.Name.Copy[/B]
        Windows(FichierMacro).Activate
        [B]ActiveSheet.Name.Paste[/B]

Ca bloque pour la partie en gras...

Merci d'avance,

Nono
 
Dernière modification par un modérateur:
Trier par date Trier par votes
Re : Copier/coller le nom d'un onglet VBA

Bonjour Nonno,

Pas pu vérifier du fait que tu n'as pas joint le code en intégralité.

Toutefois, tu peux essayer la comme suit:

Code: 
Private Sub Workbook_Open()
Dim NomOnglet As String

Workbooks.Open (Chemin & "\" & DossierDB & "\" & FichierDB), UpdateLinks:=False
With Workbooks(FichierDB)
  NomOnglet = .ActiveSheet.Name
  .Cells.Copy
End With
Windows(FichierMacro).Activate
ActiveWindow.ScrollWorkbookTabs Position:=xlLast
Sheets.Add After:=Sheets(Sheets.Count)
ActiveSheet.Paste
ActiveWindow.DisplayGridlines = False
ActiveWindow.Zoom = 85
Application.CutCopyMode = False
ActiveSheet.Name = NomOnglet
A +

Cordialement.
 
Vote positif 0 Vote négatif
Re : Copier/coller le nom d'un onglet VBA

Merci !

Le collage de la feuille est ok, cependant pour copier/coller le nom de l'onglet ca ne marche pas car ca me met "vrai" pour le nom de l'onglet lorsqu'il colle....
 
Vote positif 0 Vote négatif
Re : Copier/coller le nom d'un onglet VBA

Si je met la deuxième version il bloque a :
Code: 
NomOnglet = .Name.Cells.Copy

Par contre la première ca marche juste pour l'onglet ca me met "vrai" comme nom d'onglet au lieu de me copier le nom de l'onglet du fichier d'avant.
 
Vote positif 0 Vote négatif
Re : Copier/coller le nom d'un onglet VBA

Voici mon code en intégralité :

Code: 
 Sub Bouton1_Cliquer()
    Dim FichierMacro As String
    Dim Chemin As String
    Dim DossierDB As String
    Dim FichierDB As String
    Dim NomOnglet As String

    FichierMacro = ActiveWorkbook.Name
    Chemin = ActiveWorkbook.Path

    Application.ScreenUpdating = False
    Application.DisplayAlerts = False
    
    DossierDB = Sheets("Macro").Range("A2")
    If DossierDB <> "" Then
        FichierDB = Dir(Chemin & "\" & DossierDB & "\SX*.xls")
        
Do Until FichierDB = ""
            Workbooks.Open (Chemin & "\" & DossierDB & "\" & FichierDB), UpdateLinks:=False
            
            If FichierDB = UCase(ActiveSheet.Name) Like "*SX*" Then

            Windows(FichierMacro).Activate
            Sheets(Left(FichierDB, Len(FichierDB) - 4)).Select
            Rows("7:7").Select
            Range(Selection, Selection.End(xlDown)).ClearContents
            
            Workbooks(FichierDB).Activate
            Rows("7:1000").Select
            Selection.Copy
            Windows(FichierMacro).Activate
            ActiveSheet.Paste

            Workbooks(FichierDB).Activate
            ActiveWorkbook.Close True
            Application.Wait (Now + TimeValue("00:00:01"))
            FichierDB = Dir
            
        Else
        Workbooks.Open (Chemin & "\" & DossierDB & "\" & FichierDB), UpdateLinks:=False
        Workbooks(FichierDB).Activate
        NomOnglet = ActiveSheet.Cells.Copy
        Windows(FichierMacro).Activate
        ActiveWindow.ScrollWorkbookTabs Position:=xlLast
        Sheets.Add After:=Sheets(Sheets.Count)
        ActiveSheet.Paste
        ActiveWindow.DisplayGridlines = False
        ActiveWindow.Zoom = 85
        Application.CutCopyMode = False
        ActiveSheet.Name = NomOnglet
        End If
        

        
        
    Loop
    
        
    End If

    Sheets("Macro").Select
    ActiveCell.Offset(1, 0).Select

    Application.ScreenUpdating = True
    Application.DisplayAlerts = True

    MsgBox ("La compilation est terminée")

End Sub

Je souhaite avoir une boucle qui me réalise cette action :
- si le nom du fichier A apparaît dans un de mes onglets de mon fichier B alors "Code..."
si non (càd si un fichier nommé AA existe mais n'existe pas en tant qu'onglet dans mon fichier B ) alors ouvrir le fichier AA et copier l'onglet, créer un onglet à la fin dans le fichier B et coller les éléments. Copier/Coller également le nom de l'onglet.

J'ai déjà un début de code mais ca ne marche pas bien ....

Merci infiniment de votre aide
 
Vote positif 0 Vote négatif
Re : Copier/coller le nom d'un onglet VBA

Bonjour Nonno,

Malgré l'intégralité de ton code à l'écran, je peine à cerner l'étendue du problème.

Peux-tu joindre une copie édulcorée de tes fichiers A et B, avec le résultat visé?

Dans cette attente.

Cordialement.
 
Vote positif 0 Vote négatif
Re : Copier/coller le nom d'un onglet VBA

Bonjour,

Je ne peux pas mettre les fichiers sur le site...
Pour revenir à ma question de départ, je souhaite copier coller le nom d'un onglet. Cependant lorsque je lance ma macro j'ai un message d'erreur me disant " impossible de renommer une feuille comme une autre feuille". Est-il donc impossible d'avoir deux fichiers excels qui ont le même nom d'onglet ?

Ci-joint le code :
Code: 
        Workbooks.Open (Chemin & "\" & DossierDB & "\" & FichierDB), UpdateLinks:=False
        Workbooks(FichierDB).Activate
        Cells.Select
        Selection.Copy
        Windows(FichierMacro).Activate
        ActiveWindow.ScrollWorkbookTabs Position:=xlLast
        Sheets.Add After:=Sheets(Sheets.Count)
        ActiveSheet.Paste
        ActiveWindow.DisplayGridlines = False
        ActiveWindow.Zoom = 85
        Application.CutCopyMode = False
        With Workbooks(FichierDB).ActiveSheet
        NomOnglet = .Name
        Windows(FichierMacro).Activate
        ActiveSheet.Name = NomOnglet
        End With

Merci
 
Vote positif 0 Vote négatif
Re : Copier/coller le nom d'un onglet VBA

Alléluia j'ai réussi ! Le code était le bon j'avais juste une feuille qui avait le même nom j'ai du le changer et c'était bon.
En tout cas merci pour votre aide !

J'avais donc ma deuxième question : est-ce qu'un code existe pour dire :
Si le nom d'une feuille excel est égale au nom d'une autre feuille d'un autre fichier excel alors ...
Si non, alors ...
 
Vote positif 0 Vote négatif
Re : Copier/coller le nom d'un onglet VBA

RE:

Peut-être quelque chose dans ce genre:

Code: 
Sub ChercheFeuille()
Dim WBc, WBs, sh

Set WBc = Workbook("nom du fichier cible")
Set WBs = ThisWorkbook

For Each sh In WBc.Sheets
  If sh.Name = WBs.ActiveSheet.Name Then
    ' code si oui
    Else
    ' code si non
  End If
Next
End Sub
A +

Cordialement.
 
Vote positif 0 Vote négatif
Re : Copier/coller le nom d'un onglet VBA

Merci !

cependant j'ai une question : à la ligne
Code: 
 Set WBc = Workbooks("nom du fichier cible")
Je n'ai pas compris quel fichier il fallait mettre...

Merci

Cdt
 
Vote positif 0 Vote négatif
Re : Copier/coller le nom d'un onglet VBA

Nonno à dit:
Merci !

cependant j'ai une question : à la ligne
Code: 
 Set WBc = Workbooks("nom du fichier cible")
Je n'ai pas compris quel fichier il fallait mettre...

Merci

Cdt
Cliquez pour agrandir...

C'est le nom du fichier cible dans lequel le code cherche si la feuille s'y trouve.

WBc=fichier source, celui qui contient la macro

WBs=fichier cible, celui dans lequel tu cherches le nom de la feuille active du fichier source

Cordialement.
 
Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.
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

B
  • Question Question
XL 2013 excel Copier coller feuille avec tout le contenue
Réponses
4
Affichages
107
Bodin44
B
  • Question Question
Microsoft 365 VBA : copier / coller d'un onglet à l'autre en fonction d'une valeur
Réponses
8
Affichages
787
Lisette
P
  • Question Question
Microsoft 365 copier coller un onglet dans un autre fichier
Réponses
6
Affichages
686
pralo
P
M
  • Question Question
Microsoft 365 Copier / coller avec mise en forme VBA
Réponses
0
Affichages
886
marie3107
M
W
  • Question Question
XL 2021 Boucle copier-coller par nom d'en-tête de colonnes
Réponses
10
Affichages
779
whiteshark
W
S
  • Question Question
XL 2016 VBA - copier coller des données d'un onglet vers un nouvel onglet
Réponses
1
Affichages
848
vgendron
R
  • Question Question
Microsoft 365 Ecraser onglet par copier coller [RESOLU]
Réponses
4
Affichages
569
romubzh35
R
D
  • Question Question
XL 2021 Copier coller des colonnes suivant le nom de la colonne et non pas le N° de colonne idem ligne
Réponses
8
Affichages
953
desmonts
D
H
  • Résolu(e)
XL 2019 récupérer une donnée d'un fichier csv pour le copier vers un autre
2
Réponses
27
Affichages
3 K
Hutchy33
H
  • Question Question
Microsoft 365 VBA creation d'un export vers un fichier CSV
Réponses
12
Affichages
758
vgendron
E
  • Question Question
XL 2019 Copier tout un tableau d'une feuille et le coller sur une autre feuille.
Réponses
1
Affichages
712
Staple1600
J
  • Question Question
XL 2013 copier coller sans écraser les lignes précédentes
Réponses
9
Affichages
2 K
JEREM82
J
D
  • Résolu(e)
XL 2019 VBA - Copier Coller d'un fichier A vers fichier B
Réponses
2
Affichages
758
drizzydunck
D
S
  • Résolu(e)
Microsoft 365 VBA pour copier/coller une plage de cellule dans un autre onglet en fonction de la date
Réponses
8
Affichages
1 K
Sylvain. B
S
P
  • Question Question
XL 2013 Copier une formule dans un cellule depuis une cellule d'un onglet nouvellement crée en macro VBA
Réponses
8
Affichages
865
pascalou1
P
C
  • Résolu(e)
XL 2016 Remplir automatiquement un tableau d'après des conditions et des valeurs
Réponses
11
Affichages
2 K
ERIC S
A
  • Question Question
Microsoft 365 boucle macro pour importer des données
2
Réponses
16
Affichages
2 K
Arnaud Legay
A
  • Résolu(e)
XL 2013 VBA copie feuille et colle sans Objet (Shape-Image)
Réponses
5
Affichages
1 K
CGU2022.
9
  • Question Question
Microsoft 365 Copier Coller les données (cellules) de plusieurs feuilles d'un classeur vers plusieurs autres feuilles d'un classeur
Réponses
5
Affichages
1 K
92lever
9
A
  • Question Question
XL 2019 Résolu - Bug code VBA modifier xxx fichiers en boucle
Réponses
3
Affichages
703
fanch55
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…