Copier/coller le nom d'un onglet VBA

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
Papou-net

Papou-net

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

Nonno

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

Nonno

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

Papou-net

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

Nonno

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

Nonno

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

Papou-net

XLDnaute Barbatruc
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
Papou-net

Papou-net

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

Discussions similaires

P
  • Question
Microsoft 365 copier coller un onglet dans un autre fichier
Réponses
6
Affichages
321
pralo
P
M
  • Question
Microsoft 365 Copier / coller avec mise en forme VBA
Réponses
0
Affichages
212
marie3107
M
R
  • Résolu(e)
XL 2019 creer une macro pour copier des info d un onglet a un autre dans le meme classeur
Réponses
4
Affichages
321
robpellan52
R
W
  • Question
XL 2021 Boucle copier-coller par nom d'en-tête de colonnes
Réponses
10
Affichages
381
whiteshark
W
R
  • Question
Microsoft 365 Ecraser onglet par copier coller [RESOLU]
Réponses
4
Affichages
330
romubzh35
R
S
  • Question
XL 2016 VBA - copier coller des données d'un onglet vers un nouvel onglet
Réponses
1
Affichages
560
vgendron
vgendron
F
  • Résolu(e)
XL 2021 fermeture du classeur après apple d'un userform d'un autre classeur ouvert
Réponses
2
Affichages
151
farid
F
Electron24
  • Résolu(e)
Microsoft 365 Save qu'une feuille d'un classeur
Réponses
4
Affichages
567
Electron24
Electron24
M
  • Question
Microsoft 365 VBA copier des données d'un classeur à un autre
Réponses
4
Affichages
273
sylvanu
sylvanu
M
  • Résolu(e)
XL 2016 Amélioration de code
Réponses
3
Affichages
397
M@xu3L
M

Membres actuellement en ligne

14 membres et 98 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
312 652
Messages
2 090 542
Membres
104 572
dernier inscrit
saumech