Suppression Macros
Bonjour,
j'ai un fichier .xlsm que j'aimerais reconvertir en fichier .xls
Pour cela, j'enregistre au format .xls et j'enlève tout le VBA grâce au code suivant :
La suppression des macros se fait bien mais lorsque je tente de réouvrir le fichier, les macros sont à nouveau présentes.
De plus, je n'arrive pas à lire correctement le fichier à cause d'un problème d'extension.
Merci d'avance de votre aide
j'ai un fichier .xlsm que j'aimerais reconvertir en fichier .xls
Pour cela, j'enregistre au format .xls et j'enlève tout le VBA grâce au code suivant :
Dim VbComp As Object
ThisWorkbook.SaveAs "D:\dossier\general\excel\test.xls"
For Each VbComp In ActiveWorkbook.VBProject.VBComponents ' 'suppression vba
Select Case VbComp.Type
Case 1 To 3
ActiveWorkbook.VBProject.VBComponents.Remove VbComp
Case Else
With VbComp.CodeModule
.DeleteLines 1, .CountOfLines
End With
End Select
Next VbComp
ActiveWorkbook.Save
La suppression des macros se fait bien mais lorsque je tente de réouvrir le fichier, les macros sont à nouveau présentes.
De plus, je n'arrive pas à lire correctement le fichier à cause d'un problème d'extension.
Merci d'avance de votre aide
