Sauvegarder une page Excel

Question

Voici le code sur lequel je travail pour effectuer une sauvegarde de la page "Menu" qui correspond au premier onglet du fichier qui sera déportée dans son dossier du même nom. Mon problème est que la sauvegarde effectuée prend le fichier dans son intégralité. Ma question porte sur la ligne Worksheets("Menu")SaveAs ... car je ne comprends pas pourquoi celle-ci ne duplique pas que la page... mais tout le fichier Sub copie() Dim Rep$, adr$, fich$, doss$, i&, fin& Rep = ThisWorkbook.Path Application.DisplayAlerts = 0 With Feuil2 fin = .Range("A" & Rows.Count).End(3).Row If fin = 1 Then Exit Sub For i = 2 To fin doss = .Cells(i, 1) & "\" If Dir(Rep & "\" & doss, vbDirectory) = "" Then MkDir (Rep & "\" & doss) End If fich = .Cells(i, 1) & ".xlsx" If Dir(Rep & "\" & doss & fich, vbDirectory) = "" Then Worksheets("Menu").SaveAs Filename:=Rep & "\" & doss & fich, FileFormat:=51 End If Next i End With MsgBox "C'est Fini!", , "Traitement terminé" End Sub Si une personne voit le souci je suis preneur J'ajoute le fichier avec la macro d'origine, la différence de code est apportée dans du dessus. Amicalement, Benito...

paritec · Accepted Answer

Ton fichier en retour a+ Papou...

LouReeD · Answer

Le fait de copier un onglet sous VBA, engendre automatiquement la création d'un nouveau classeur qui comporte cet onglet, donc Worksheet("Menu").Copy suffit à créer un nouveau classeur avec la feuille "Menu" en onglet. Ensuite cette feuille dans ce nouveau classeur sont également automatiquement sélectionnés et activés, il suffit donc de le renommer et de faire Save Active.Workbook.Name = "Ma Sauvegarde" Active.Workbook.Save Bon sur la papier ça marche, maintenant il faut peut-être faire des ajustement pour le chemin de sauvegarde etc... @ bientôt LouReeD...