Discussion :

[karim19]

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 :

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

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

[jfontaine]

Bonjour,

Ci dessous une solution

Code :

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

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

[karim19]

Bonsoir jfontaine



C'est exactement ce que je souhaitais !

Encore Merci