XL 2016 Enregistrer une feuille excel dans un classeur à part en écrasant les formules (copie valeur)

[Camille Clauzade]

Bonjour !
Je souhaite s'il vous plait enregistrer chaque feuille de mon classeur dans un classeur à part dans lequel les formules sont écrasées (comme copie valeur).
Voici mon bout de code :

Sub EnregistrerOnglets()
Dim Feuille As Worksheet
Dim chemin As String


chemin = "C:\Users\Camille\Desktop\PRICING 2020\FORMAT EXCEL"
Application.ScreenUpdating = False
For Each Feuille In ThisWorkbook.Worksheets
Feuille.Copy
ActiveWorkbook.Close savechanges:=True, Filename:=chemin & "\" & ActiveWorkbook.Worksheets(1).Name
Next Feuille
Application.ScreenUpdating = True
End Sub

Savez-vous comment faire ?
Merci !

Camille

 

[mapomme]

Bonjour @Camille Clauzade,

Regardez par ici