Je souhaiterais supprimer automatiquement une Macro qui s'execute à l'ouverture d'excel. Sous excel 2000 voici ce que j'avais fait.
Private Sub Workbook_Open()
Dim liDeb, NbLi
'
' Extract Macro
' execution du code'
...............................
'suppression de la macro
With ThisWorkbook.VBProject.VBComponents("ThisWorkbook").CodeModule
liDeb = .ProcStartLine("Workbook_Open", 0)
NbLi = .ProcCountLines("Workbook_Open", 0)
.DeleteLines liDeb, NbLi
End With
'
End Sub
En 2007 erreur 1004 L'acces par pgm au projet vb n'est pas fiable