Erreur Automation VBA
Résolu/Fermé
A voir également:
- Erreur automation référence future non valide
- Erreur Automation ✓ - Forum Word
- Ethernet n'a pas de configuration ip valide - Guide
- Erreur 0x80070643 - Guide
- La référence n'est pas valide excel - Forum Excel
- Macro "Erreur Automation" - Forum VB / VBA
1 réponse
f894009
Messages postés
17185
Date d'inscription
dimanche 25 novembre 2007
Statut
Membre
Dernière intervention
15 avril 2024
1 701
21 mai 2013 à 18:11
21 mai 2013 à 18:11
Bonjour,
a voir
DoCmd.DeleteObject acModule, VBE.ActiveVBProject.VBComponents(aoModule.Name).Name
a remplacer par
DoCmd.DeleteObject acModule, aoModule.Name
a voir
DoCmd.DeleteObject acModule, VBE.ActiveVBProject.VBComponents(aoModule.Name).Name
a remplacer par
DoCmd.DeleteObject acModule, aoModule.Name
22 mai 2013 à 09:18
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é.
22 mai 2013 à 10:20
Non, ca marche, c'est comme cela que j'ai teste votre code. Par contre avez-vous declare aoModule en tant qu'object
23 mai 2013 à 14:20
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