Bonjour le forum,
me revoilà avec un problème à mes trousses...

La macro ci dessous est censé faire la copie de la feuille "resultat" du classeur ("traitement.xls").

Seulement, après l'éxecution, je n'ai que "classeurxx.xlsx" d'ouvert et rien de sauvegarder

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
Set Repertoire = Application.FileDialog(msoFileDialogFolderPicker)
Repertoire.Show
monchemin = Repertoire.SelectedItems(1)
 
Set wb1 = Workbooks("traitement.xls")
wb1.Worksheets("resultat").Copy
 
Application.DisplayAlerts = False
 
Set wb = ActiveWorkbook
'MsgBox (wb.name & monchemin)
wb.SaveAs monchemin & "\" & Fichier & ".xls", Excel8
Application.DisplayAlerts = True
Pour récapituler, j'aimerai copier la feuille "resultat" dans un nouveau classeur puis sauvegarder ce classeur que je souhaite appelé :"resultat de" & nom_chef_produit & " du " & Format(Date, "dd_mmm_yyyy")

Merci d'avance pour vos propositions
Cdlt
DoDo