copier des feuilles dans un nouveau classeur

[a26]

Bonjour,
Mon problème est le suivant :
je voudrais extraire les feuilles 5A à 5D qui ne sont pas toujours dans l'ordre ci-dessous mais plutôt mélangées
dans un nouveau classeur qui doit apparaître sur le bureau.
J'ai bien essayé avec la macro ci-jointe mais elle m'envoie le fichier dans mes documents.
D'autre part, il serai intéressant que cette macro n'ouvre pas le fichier en question comme ici mais le place sans l'ouvrir sur le bureau.
Merci pour les recherches.
a26

 

[job75]

Re : copier des feuilles dans un nouveau classeur

Bonjour a26,

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+

 

[a26]

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

 

[a26]

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

 

[job75]

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.

 

[job75]

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+

 

[a26]

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