Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

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

Camille Clauzade

XLDnaute Nouveau
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
 

Discussions similaires

Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…