XL 2016 Résolu - Copier coller feuilles nouveau classeur

Robert à dit:

Bonsoir Aragdur, bonsoir le forum,

Peut-être comme ça :

VB:

Sub copy()
Dim I As Integer 'déclare la variable I (Incrément)
Dim CS As Workbook 'déclare la variable CS (Classeur Source)
Dim CD As Workbook 'déclare la variable CD (Classeur Destination)

Application.ScreenUpdating = False 'masque les rafraîchissement d'écran
Set CS = ThisWorkbook 'définit le classeur source CS
For I = 1 To CS.Sheets.Count 'boucle sur tous les onglets I du classeur source
    Select Case I 'agit en fonction de I
        Case 1 'cas 1
            CS.Sheets(I).copy 'copie l'onglet de la boucle dans un fichier vierge
            Set CD = ActiveWorkbook 'définit la classeur destination CD
        Case Else 'tous les autres cas
            CS.Sheets(I).copy After:=CD.Sheets(Sheets.Count) 'copy l'onglet de la boucle en dernière position
    End Select 'fin de l'action en fonction de I
    ActiveSheet.Cells.copy 'copie toutes les cellule de l'onglet actif
    ActiveSheet.Range("A1").PasteSpecial (xlPasteValues) 'colle les valeurs
    ActiveSheet.Range("A1").Select 'sélectionne A1 de l'onglet Actif
    Application.CutCopyMode = False 'annule le clignotement lié au copier
Next I 'prochain onglet de la boucle
CD.Sheets(1).Activate 'active le premier onglet du classeur destination
Application.ScreenUpdating = True 'affiche les rafraîchissement d'écran
End Sub

Cliquez pour agrandir...