copier des feuilles dans un nouveau classeur

job75

XLDnaute Barbatruc

• 14 Juillet 2015

• #2

Re : copier des feuilles dans un nouveau classeur

Bonjour a26,

Code:

Sub extr_5()
Dim a, e
Application.ScreenUpdating = False
Application.DisplayAlerts = False
a = Array("5A", "5B", "5C", "5D")
With Workbooks.Add(xlWBATWorksheet) 'nouveau document, 1 feuille
  For Each e In a
    ThisWorkbook.Sheets(e).Copy After:=.Sheets(.Sheets.Count)
  Next
  .Sheets(1).Delete
  .Sheets(1).Select
  .SaveAs ThisWorkbook.Path & "\" & "Résultats  " & "5°"
  .Close
End With
End Sub

Le classeur est créé avec les feuilles dans le bon ordre.

Il est est placé dans le même répertoire que le fichier de la macro.

A+

 

Vote positif 0 Vote négatif

A

a26

XLDnaute Occasionnel

• 15 Juillet 2015

• #3

Re : copier des feuilles dans un nouveau classeur

Bonjour job75,
Ta macro fonctionne parfaitement. Mille fois merci pour cette résolution qui était devenue un casse tête pour moi.
Bonne journée.
Cordialement,
a26

 

Vote positif 0 Vote négatif

A

a26

XLDnaute Occasionnel

• 18 Juillet 2015

• #4

Re : copier des feuilles dans un nouveau classeur

Bonjour job75,
Tout allait bien jusqu'à cette nouvelle extraction qui me pose problème avec une erreur d'exécution 9. As-tu une idée pourquoi j'ai ce problème ?
Merci pour ta réponse.
Cordialement,
a26

 

Pièces jointes

• Débobage.xlsm

  8.6 KB · Affichages: 25

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 18 Juillet 2015

• #5

Re : copier des feuilles dans un nouveau classeur

Bonjour a26,

Il faut évidemment que les 5 feuilles de l'Array existent toutes dans le fichier.

Noter en passant qu'on peut écrire plus simplement .SaveAs ThisWorkbook.Path & "\Résultats BFP"

Bonne journée.

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 18 Juillet 2015

• #6

Re : copier des feuilles dans un nouveau classeur

Re,

Un classique chez les nerveux de la touche : des espaces superflus dans les noms des onglets...

A+

 

Vote positif 0 Vote négatif

A

a26

XLDnaute Occasionnel

• 18 Juillet 2015

• #7

Re : copier des feuilles dans un nouveau classeur

Merci job75, j'ai renommé mes onglets en faisant attention aux espaces et les problèmes ont disparus.
Bonne journée.
Cordialement,
a26

 

Vote positif 0 Vote négatif