Discussion :

[Vadorblanc]

Bonjour
Je souhaite supprimer tous les modules de mon classeur ouvert à la fin de mes lancements de macros tous dans des modules. Je le fais avec ce code:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
Sub Module8SupprimeTousLesModules()
'Outils/Macro/Sécurité/Editeurs approuvés et cocher Faire confiance au projet Visual Basic
Dim VBComp As Object
Dim VBComps As Object
 
Set VBComps = ActiveWorkbook.VBProject.VBComponents
 
For Each VBComp In VBComps
Select Case VBComp.Type
Case 100
If UCase(VBComp.Name) <> "THISWORKBOOK" Then
With VBComp.CodeModule
.DeleteLines 1, .CountOfLines
End With
End If
Case Else
VBComps.Remove VBComp
End Select
Next VBComp
 
End Sub

Seulement je dois 'Outils/Macro/Sécurité/Editeurs approuvés et cocher Faire confiance au projet Visual Basic, et de ce fait si un autre classeur est ouvert aussi en même temps, je risque de tout supprimer, de plus je pense que ça ne marchera pas sur d'autres PC qui n'auront pas fait la manip.

Avez-vous une autre façon de quitter un classeur actif en supprimant tous les modules ?
Merci

[patricktoulon]

bonjour dans ta macro
tu a :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
 
 
Set VBComps = ActiveWorkbook.VBProject.VBComponents

ca qui veut dire que tu travaille sur le classeur actif donc a moins d'avoir ouvert un autre classeur juste avant ca devrait fonctionner pour le bon



au plaisir

[Vadorblanc]

Bonjour patricktoulon
Oui ça fonctionne mais il faut 'Outils/Macro/Sécurité/Editeurs approuvés et cocher Faire confiance au projet Visual Basic
et comme le Workbook ira sur d'autres pc qui n'auront pas activer celà, ça va beuguer
Je voudrais plutot activer une "référence" que prendra en compte que le fichier.
Je veux juste qu'il lance les macros du fichier une fois, car après il n'y en a plus besoin, et comme il vont ouvrir ensuite le fichier des dizaines de fois, je voudrais leur enlever la msbox "voulez vous activer les macros"
Je n'ai pas encore trouver d'autres solutions...
Merci

[fring]

Bonjour,

si un autre classeur est ouvert aussi en même temps, je risque de tout supprimer

Pour éviter cela, remplace ActiveWorkbook par ThisWorkbook
A ma connaissance il n'y a pas d'autre moyen de supprimer les macros automatiquement ou de contourner la boîte de dialogue demandant d'activer les macros.
Si les utilisateurs ont la version 2007 d'Excel, ils peuvent éventuellement enregistrer le classeur au format "*.xlsx" qui aura pour effet de supprimer toutes les macros.

[patricktoulon]

bonjour

si je comprend bien c'est le serpent qui se mort la queue

meme si le fichier est sur un poste et que c'est un autre post qui l'ouvre
et que les macros ne sont pas activées sur ce post ca ne marchera pas quand meme



il me semble avoir lu quelque par dans la faq ou autre comment activer les macro mais de cela je n'en suis pas sur


au plaisir

[Vadorblanc]

Bonjour patricktoulon, fring
J'ai contrôlé le code de mon premier post, il est super...

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

If UCase(VBComp.Name) <> "THISWORKBOOK" Then

C'est bien uniquement le fichier "THISWORKBOOK" qui aura tous les modules supprimés et de ce fait à la réouverture du fichier il n'y aura plus le message "voulez vous activer les macros?" avec un autre fichier ouvert aussi les modules ne sont pas supprimés donc c'est parfait, mais comme sur un autre PC, ça va beuguer si l'utilisateur n'a pas fait 'Outils/Macro/Sécurité/Editeurs approuvés et cocher Faire confiance au projet Visual Basic, je ne peux pas utiliser ce code...
J'en reste à fring qui me dit qu'il n'y a pas d'autres solutions, et c'est un peu normal, pour la sécurité... de ne pas faire faire n'importe quoi...
Quoi qu'il en soit, je reste perplexe sur l'impossibilité de cette demande, et je ne vois pas comment contourner mon problème qui est après utilisation des codes qui ne sont qu'utilisés qu'une fois, rester dans l'impossibilité d'automatiser cette suppressions de modules devenus inutiles, et d'avoir toujours ce message "voulez vous activer les macros?"
Pour moi celà ne me pose aucun problème de supprimer les modules, mais comment l'automatiser au plus grand nombre...
Merci à tous les deux
Bien cordialement