cs_Liro
Messages postés159Date d'inscriptionjeudi 7 septembre 2006StatutMembreDernière intervention30 septembre 2011
-
27 août 2007 à 09:59
cs_Liro
Messages postés159Date d'inscriptionjeudi 7 septembre 2006StatutMembreDernière intervention30 septembre 2011
-
3 sept. 2007 à 17:01
Bonjour,
J'ai un fichier A dans lequel j'execute une macro. Dans cette macro je voudrais pouvoir détecter la présence d'un module dans un fichier B et s'il est présent, le supprimer.
Es-ce que quelqu'un peut m'aider, SVP?
Merci d'avance.
'*** 1 ERE POSSIBILITE : SUPPRESSION OBJET ***
' Càd les UserForm, Module, Module de Classe
Sub EffaceModule()
Workbooks.Open ("C:\Chemin\Nom
Fichier.xls") 'une boite
de dialogue se trouve dans le fichier excel(Zip) pour le
' choix, au lieu de mettre le nom du chemin en dur
On Error Goto ErrHandle
' ici on supprime le
composant nommé "Module1", dans le projet du classeur actif
ActiveWorkbook.VBProject.VBComponents.Remove
ActiveWorkbook.VBProject.VBComponents("Module1")
MsgBox "Le Module a été
suprimé"
ActiveWorkbook.Close True
Exit Sub
ErrHandle:
MsgBox "ERREUR dans la suppression du Module", vbOKOnly + vbCritical
End Sub
~
<small>[code.aspx?ID=39466 Mortalino] ~
Colorisation automatique</small>
@++
mortalino
Messages postés6786Date d'inscriptionvendredi 16 décembre 2005StatutMembreDernière intervention21 décembre 201118 27 août 2007 à 12:05
Bah non, tu ne peux pas demander quelque chose qi rien n'est prévu pour le faire.
Concernant la référence à cocher, une fois que c'est fait, plus besoin de le faire :
<li>' Il faut rajouter la référence suivante :</li><li>' Microsoft Visual Basic for Applications 6.0 Extensibility</li><li>' (Program Files\Microsoft Visual Studio\VB98\VB6EXT)</li>
mortalino
Messages postés6786Date d'inscriptionvendredi 16 décembre 2005StatutMembreDernière intervention21 décembre 201118 30 août 2007 à 22:51
Quelle version d'excel utilises-tu ?
Si c'est une version, (-autre que 5.3) tente quand même. En cas après je jette un oeil et te donne le chemin du fichier