Discussion :

[jppaysan]

Bonjour,

Comment peut-on depuis une macro écrite en VBA sous excel effacer dans un autre fichier excel un module de macro complet ?

Je m'explique. Depuis une macro je parviens à effacer entièrement du code dans un autre fichier excel avec le code suivant :

Code :

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

1
2
3
4
5
6
 
With Application.Workbooks(Dir(NomFichier))
     With .VBProject.VBComponents("Main").CodeModule
         .DeleteLines 1, .CountOfLines
     End With
End With

mais je ne parviens pas à effacer du fichier excel "NomFichier" le module nommé "Main". Ce qui fait que quand je réouvre ce fichier un message m'indique la présence de macros. Cela semble dû à la présence de ce module même s'il est vide car quand je l'efface moi-même je n'ai plus de message à l'ouverture du fichier excel.

J'espère avoir été clair dans mon explication

En attendant une réponse merci d'avance.

[SilkyRoad]

bonsoir

Pour supprimer un module:

Code :

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

1
2
3
4
5
Sub supprimerUnModule()
    With Workbooks("NomClasseur.xls").VBProject.VBComponents
        .Remove .Item("Module2")
    End With
End Sub

bonne soirée
michel

[jppaysan]

Bonjour SilkyRoad,

J'ai inséré ton bout de code dans ma procédure mais cela ne fonctionne qu'à moitié.

Voici la procédure (le bout de code rajouté est signalé) :

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
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
Sub SauvegardeTraca()
    Dim CeJour As Variant
    Dim CetteHeure As Variant
    Dim NomFichier As String
 
    CeJour = Date
    CetteHeure = Time
 
    NomFichier = "Traca_" & Day(CeJour) & "_" & Month(CeJour) & "_" & Year(CeJour) & "_"
    NomFichier = NomFichier & Hour(CetteHeure) & "_" & Minute(CetteHeure) & "_" & Second(CetteHeure) & ".xls"
 
    NomFichier = ThisWorkbook.Path & Chr(92) & NomFichier
 
    Application.DisplayAlerts = False
    ThisWorkbook.SaveCopyAs (NomFichier)
 
    Workbooks.Open NomFichier
 
Dim ob As Object
 
Set ob = Application.Workbooks(Dir(NomFichier))
 
    With Application.Workbooks(Dir(NomFichier))
 
        With .VBProject.VBComponents("Main").CodeModule
            .DeleteLines 1, .CountOfLines
        End With
 
        With .VBProject.VBComponents("ThisWorkbook").CodeModule
            .DeleteLines 1, .CountOfLines
        End With
 
        With .Worksheets("Recherche_Traca")
            .Delete
        End With
 
       ' *********************
       ' Ici le bout de code rajouté
       ' *********************
        With .VBProject.VBComponents
            .Remove .Item("Main")
            .Remove .Item("DlgRechercheTraca")
        End With
 
    End With
 
    Application.Workbooks(Dir(NomFichier)).Save
    Application.Workbooks(Dir(NomFichier)).Close
 
    Application.DisplayAlerts = True
 
End Sub

"DlgRechercheTraca" est un userform et il est effectivement effacé du projet. Par contre pour "Main" je ne parviens toujours pas à l'effacer . Où est-ce que je fais une erreur ??

[kiki29]

Soir Bon,Ton code modifé et testé fonctionne sur mon PC ...

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
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
 
Option Explicit
 
Sub SauvegardeTraca()
Dim CeJour As Variant
Dim CetteHeure As Variant
Dim NomFichier As String
Dim ob As Object
 
    CeJour = Date
    CetteHeure = Time
 
    NomFichier = "Traca_" & Day(CeJour) & "_" & Month(CeJour) & "_" & Year(CeJour) & "_"
    NomFichier = NomFichier & Hour(CetteHeure) & "_" & Minute(CetteHeure) & "_" & Second(CetteHeure) & ".xls"
 
    NomFichier = ThisWorkbook.Path & Chr(92) & NomFichier
 
    Application.DisplayAlerts = False
    ThisWorkbook.SaveCopyAs (NomFichier)
 
    Workbooks.Open NomFichier
 
 
    Set ob = Application.Workbooks(Dir(NomFichier))
 
    With Application.Workbooks(Dir(NomFichier))
 
        With .VBProject.VBComponents
            .Remove .Item("Main")
        End With
 
        With .VBProject.VBComponents("ThisWorkbook").CodeModule
            .DeleteLines 1, .CountOfLines
        End With
 
        With .Worksheets("Recherche_Traca")
            .Delete
        End With
 
        With .VBProject.VBComponents
            .Remove .Item("DlgRechercheTraca")
        End With
 
    End With
 
    Application.Workbooks(Dir(NomFichier)).Save
    Application.Workbooks(Dir(NomFichier)).Close
 
    Application.DisplayAlerts = True
 
End Sub

[jppaysan]

Salut,

Mille excuses pour mon retard dans une réponse.

J'ai implanté le code donné par kiki29.

Quand j'exécute en mode debug pas à pas la procédure jusqu'à sa fin, le module "Main" n'est pas effacé du fichier excel

Par contre toujours en mode debug pas à pas, si j'interrompt le mode debug par exemple à la ligne :

Code :

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

With .VBProject.VBComponents("ThisWorkbook").CodeModule

alors là le module "Main" est effectivement effacé du fichier.

En conclusion je n'y comprends rien !! Y-a-t-il une option, un paramètre au niveau excel que je devrais positionner ou alors autre chose ???

J'espère que quelqu'un pourra me donner une réponse.

J'attends avec impatience.