Enregistrer uniquement une feuille Excel dans un dossier

Bonjour,

J'aimerai enregistrer automatiquement via une macro ma "feuille 2" dans un dossier spécifique.

J'ai commencé un bout de code:

Sub CopieFeuilles()

For Each sh In ActiveWorkbook.Sheets

  sh.Copy

  ActiveWorkbook.SaveAs "C:\Users" & sh.Name
  ActiveWorkbook.Close

Next

End Sub

mais petit soucis il m'enregistre toute les feuilles du classeurs.

Quelqu'un aurai la gentillesse de m’éclairer

Merci par avance

Bonjour,

Sub CopieFeuilles()
  Sheets("Feuil2").Copy  'ou bien avec le code name -  Feuil2.Copy
  ActiveWorkbook.SaveAs "C:\Users\" & sh.Name
  ActiveWorkbook.Close
End Sub

Bonjour David, bonjour le forum,

Si tu boucles sur tous les onglets du classeur :

For Each sh In ActiveWorkbook.Sheets

ce n'est pas étonnant que tu te retrouves avec un fichier par onglet non ?!...

Supprime la boucle et agit uniquement sur l'onglet concerné :

Sub CopieFeuilles()
Worksheets("Feuil1").Copy 'à adapter à ton cas
ActiveWorkbook.SaveAs "C:\Users" & Worksheets("Feuil1").Name
ActiveWorkbook.Close
End Sub

Top ça marche!

Merci à vous deux.