enregister une feuille d'un classeur dans un autre repertoire

Bonjour

J'essaie vainement depuis quelque temps à enregistrer une worksheet d'un classeurs vers un autre repertoire . Malheureusement, mon code enregistre l'ensemble du classeur et non la worksheet spécifié vers cet autre repertoire

Quelqu'un aurait- il une solution? en vos remerciant par avance


Mon Code :

Code:

---

1 2 3

Chemin = "C:\" & ComboBox5.Value & "\" REPORT.Copy REPORT.SaveAs Chemin & Format(Now(), "ddmmyyyy") & ".xls"

---

Bonjour,

Ci dessous une solution

Code:

---

1 2 3 4 5 6 7 8 9 10

Dim wrk As New Workbook Dim Chemin as string   Chemin = "C:\" & ComboBox5.Value & "\"   Set wrk = Application.Workbooks.Add ThisWorkbook.Sheets("Feuil1").Copy After:=wrk.Sheets(3)   wrk.SaveAs Chemin & Format(Now(), "ddmmyyyy") & ".xls"

---

Bon courage

Bonsoir jfontaine

:ccool:

C'est exactement ce que je souhaitais !

Encore Merci ;)