Erreur Automation VBA
Résolu
vbman
-
vbman -
vbman -
Bonjour,
Je développe une application VBA sur Access et je me récupère une erreur d'automation :
"Erreur d'exécution '-2147467259 (80004005)':
Erreur Automation
Erreur non spécifiée"
Voilà mon code :
//
' Suppression de chaque module
For Each aoModule In CurrentProject.AllModules
' On supprime tous les modules sauf celui-ci
If (VBE.ActiveVBProject.VBComponents(aoModule.Name).Name <> NOM_MODULE) Then
Debug.Print VBE.ActiveVBProject.VBComponents(aoModule.Name).Name
DoCmd.DeleteObject acModule, VBE.ActiveVBProject.VBComponents(aoModule.Name).Name
End If
Next
//
Merci d'avance pour votre aide !
Je développe une application VBA sur Access et je me récupère une erreur d'automation :
"Erreur d'exécution '-2147467259 (80004005)':
Erreur Automation
Erreur non spécifiée"
Voilà mon code :
//
' Suppression de chaque module
For Each aoModule In CurrentProject.AllModules
' On supprime tous les modules sauf celui-ci
If (VBE.ActiveVBProject.VBComponents(aoModule.Name).Name <> NOM_MODULE) Then
Debug.Print VBE.ActiveVBProject.VBComponents(aoModule.Name).Name
DoCmd.DeleteObject acModule, VBE.ActiveVBProject.VBComponents(aoModule.Name).Name
End If
Next
//
Merci d'avance pour votre aide !
A voir également:
- Cette variable utilise un type automation non géré par visual basic
- Erreur 3005 france tv - Forum TV & Vidéo
- Erreur player 4001 free - Forum Samsung
- Erreur 4101 - Forum Lecteurs et supports vidéo
- Iptv erreur de lecture - Forum TV & Vidéo
- Erreur t32 ✓ - Forum Livebox
J'ai changé ton code mais ça ne change rien !
En fait le code plante sur l'instruction Next. Je me demande si CurrentProject.AllModules n'est pas un peu obsolète... je vais aller me renseigner de ce côté.
Non, ca marche, c'est comme cela que j'ai teste votre code. Par contre avez-vous declare aoModule en tant qu'object
For Each VBC In Application.VBE.ActiveVBProject.VBComponents
If ((VBC.Name <> NOM_MODULE) And (Left(VBC.Name, 5) <> "Form_") And (Left(VBC.Name, 7) <> "Report_")) Then
With Application.VBE.ActiveVBProject.VBComponents
.Remove VBC
End With
End If
Next VBC