enregistrement de valeur

Supprime tous les TDC et tout le code
sans toucher aux formulaires (userform) du classeur

Si tu veux supprimer les userform aussi, tu remplace
cette ligne de code Case Is <> 3 par seulement Case Else
dans la procédure : Supprime_Tout_Code_SansLes_Formulaire

à copier dans un module standard :
'-----------------------------------
Sub Test()
Call Supprimer_Tous_Les_TDC
Call Supprime_Tout_Code_SansLes_Formulaire
End Sub
'-----------------------------------
Sub Supprime_Tout_Code_SansLes_Formulaire()
Dim VBComp As Object
Dim VBComps As Object
Set VBComps = ActiveWorkbook.VBProject.VBComponents

For Each VBComp In VBComps
Select Case VBComp.Type
Case 100
With VBComp.CodeModule
.DeleteLines 1, .CountOfLines
End With
Case Is <> 3
VBComps.Remove VBComp
End Select
Next VBComp
End Sub
'-----------------------------------
Sub Supprimer_Tous_Les_TDC()
Dim Pt As PivotTable, Sh As Worksheet, Rg As Range
For Each Sh In ThisWorkbook.Worksheets
For Each Pt In Sh.PivotTables
Pt.TableRange2.Clear
Next
Next
End Sub
'-----------------------------------




"mboileau" <mboileau@hotmail.com> a écrit dans le message de groupe de discussion :
28f4d407-aa86-45a5-91e3-b89160782dfa@l5g2000yqo.googlegroups.com...
Bonjour j'ai un fichier Excel très lourd avec plein de macro et de
tableaux croisé dynamique. J'aimerais sauvegarder le fichier mais
seulement les valeurs sans les tableaux et les macros. Comment puis-
je faire?

merci