macro pour supprimmer la macro...

[Olivierd]

bonjour à tous,

Je termine une macro par une fonction d'enregistrer sous un nouveau nom à partir des données du cellule:

Sub exemple)
On Error GoTo Fin
nom = "" & Sheets("Données").Range("b2") & ".xls"
On Error GoTo Fin
ActiveWorkbook.SaveAs FileName:=nom
On Error GoTo Fin
Fin:
End Sub

MAIS je souhaite maintenant supprimmer le module de la macro qui a été conservé dans le nouveau document afin d'obtenir un fichier vierge de toutes macros...

pensez-vous que cela réalisable ?

cordialement

 

[@+Thierry]

Bonjour Olivier, le Forum


Regarde ce Fil récent : Lien supprimé

La difficulté majeure résidera dans le fait que tu risques d'avoir un souci en plaçant une macro de destruction de macro qui va donc s'auto-détruire pendant son propre déroulement... (Je n'ai pas essayé !)

Sinon il te faudra passer par un classeur "outil" qui permettra de le faire.

Bon Appétit
@+Thierry

 

[Olivierd]

Merci @+Thierry , je vais essayer de comprendre le fil 🙂
bon app'

 

[Olivierd]

hello,

j'ai trouvé mon bonheur avec:



Sub auto_close()
Dim VBC As Object, Wbk As Workbook

Set Wbk = ActiveWorkbook
With Wbk.VBProject
For Each VBC In .VBComponents
If VBC.Type = 100 Then
With VBC.CodeModule
.DeleteLines 1, .CountOfLines
.CodePane.Window.Close
End With
Else: .VBComponents.Remove VBC
End If
Next VBC
End With
End Sub


cordialement