erreur sur déclaration DIM
bonjour a tous,
j'ai trouver sur le forum une macro qui efface les code vba du classeur actif.
sur un ficher test çà marche, et sur mon projet çà ne marche pas, il me dit : "type défini par l'utilisateur non défini"
le code bloque sur la premiere ligne (dim...)
'-----------------------------------------------------------------------
Sub testerase()
Dim VBComp As VBComponent
For Each VBComp In ActiveWorkbook.VBProject.VBComponents
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
ThisWorkbook.Save
Application.Quit
End Sub
'-----------------------------------------------------------------------
c'est surement tous bête, mais je bloque.
si une âme charitable peu m'aider ca serais cool.
Merci d'avance a tous
bonjour a tous,
j'ai trouver sur le forum une macro qui efface les code vba du classeur actif.
sur un ficher test çà marche, et sur mon projet çà ne marche pas, il me dit : "type défini par l'utilisateur non défini"
le code bloque sur la premiere ligne (dim...)
'-----------------------------------------------------------------------
Sub testerase()
Dim VBComp As VBComponent
For Each VBComp In ActiveWorkbook.VBProject.VBComponents
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
ThisWorkbook.Save
Application.Quit
End Sub
'-----------------------------------------------------------------------
c'est surement tous bête, mais je bloque.
si une âme charitable peu m'aider ca serais cool.
Merci d'avance a tous
Dernière édition: