Discussion :

[SECOBAT]

Bonjour à tous,
Voici ma macro qui ne respecte pas la numérotation, tout fonctionne mais il nomme le nouvel onglet comme une copie "CP N° 01(2) "
Par ailleurs je souhaiterais l'intégrer au ThisWorkbook pour que cela se lance en appuyant sur le plus situé après le dernier onglet.
Merci par avance de vos corrections.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
Sub CopieFeuilles()
ActiveSheet.Copy after:=ActiveSheet  
Exit Sub
Dim x
x = Worksheets.Count
Sh.Name = "CP N° " & Format(x, "00")
Sh.Move after:=Worksheets(x)
End Sub

[Philippe Tulliez]

Bonjour,

Voici un exemple de la copie d'une feuille nommée TimeSheet, présente dans un classeur nommé 1901 - TimeSheet Jacques.xlsb après la dernière feuille du classeur où se trouve le code VBA (ThisWorkbook)

Petites remarques

• Passer par la variable objet wkbTarget, n'est pas indispensable, l'usage de l'objet ThisWorkbook est suffisant.
• Les deux classeurs, "source" et "cible" doivent être ouverts
• La procédure ne vérifie pas si le nom de la feuille source existe déjà dans le classeur cible
  A lire éventuellement sur le sujet Comment incrémenter le nom d’une feuille Excel lorsqu’il existe déjà ?

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Sub t()
  Const shtSourceName As String = "TimeSheet"
  Dim wkbSource As Workbook
  Dim wkbTarget As Workbook
  Dim shtSource As Worksheet
  '
  Set wkbSource = Workbooks("1901 - TimeSheet Jacques.xlsb")
  Set shtSource = wkbSource.Worksheets(shtSourceName)
  Set wkbTarget = ThisWorkbook
  '
  With wkbTarget
    shtSource.Copy After:=.Worksheets(.Worksheets.Count)
  End With
  '
  Set wkbSource = Nothing: Set shtSource = Nothing: Set wkbTarget = Nothing
End Sub