XL 2016 copier une feuille

[rajac]

Bonjour à Tous
Est-ce que quelqu'un aurait un code VBA pour copier une feuille d'un classeur dans un autre classeur déjà ouvert en incrémentant une feuille à chaque copie.
je sèche
merci pour votre aide
Bien à vous
rajac

 

[fanch55]

Bonjour,
Macro pour copier dans un classeur ouvert ou fermé
L'incrémentation est assurée par Excel, à moins que vous vouliez des noms spécifiques

Target et TargetFile à personnaliser

Option Explicit
Sub CopyTo()
Dim WbTarget    As Workbook
Dim Sht         As Worksheet
Dim Target      As String
Dim TargetFile  As String
Dim Was_Closed  As Boolean

   '= A personnaliser ================================
    Target = "Classeurnew.xlsx"
    TargetFile = ThisWorkbook.Path & "\" & Target
   '==================================================
   
    Application.ScreenUpdating = False
    If Dir(TargetFile) <> "" Then
        Set Sht = ThisWorkbook.ActiveSheet
        On Error GoTo Open_Target
        Set WbTarget = Workbooks(Target)
        If Not WbTarget Is Nothing Then
            Sht.Copy After:=WbTarget.Sheets(WbTarget.Sheets.Count)
            If Was_Closed Then WbTarget.Close True
        End If
        Sht.Parent.Activate
    End If
    Exit Sub
   
Open_Target:
    On Error GoTo 0
    Set WbTarget = Workbooks.Open(TargetFile)
    Was_Closed = True
    Resume Next
   
End Sub

 

[rajac]

bonjour
j'ai besoin d'une petite précision sur ce qu'il faut modifier dans "Target File"
j'ai qu'une seule feuille a copier du premier classeur , dans l'autre classeur incrémenter de janvier a décembre
si je me fait bien comprendre.
merci beaucoup
rajac

 

[fanch55]

Pouvez-vous préciser le besoin véritable car il risque d'y avoir beaucoup d'alternative .
Un exemple des 2 classeurs serait le bienvenu ,
et si la feuille à copier existe déjà ?

 

[rajac]

bonjour
Ci-joint la feuille a copier qui fait partie de mon premier classeur que je met a jour fin de chaque mois que je veux copier dans un classeur forcement vierge début d'année et je voudrai que s'incrémente une nouvelle feuille a chaque copie même si je dois renommer manuellement les feuilles avec le mois correspondant.
merci
rajac

 

[fanch55]

Classeur modifié .

A faire quand vous le voulez :

• Mettre le nom du classeur cible dans la variable "Target",
  par exemple "Classeurnew.xlsx"
  
  
• et le nom du dossier container dans la variable "Path" ,
  par exemple "D:\Users\.....\Documents\Club\Xl Downloads"

Puis clic-droit sur l'onglet et choisir "Transfert Feuille"

Renommez la feuille dupliquée comme vous l'entendez .

 

[rajac]

bonjour merci pour votre aide
ca me va très bien
bonne journée cordialement
rajac