Discussion :

[ancel17]

Bonjour,

Est-il possible de ne supprimer qu'une partie du code ?

J'ai un fichier Base.xls qui me construit via VBA mon fichier Rapport.xls grâce à la méthode SaveAs.
Je voudrais retirer tout le code VBA de mon fichier Rapport.xls, hormis le code de la feuille 'Tableau'.

Je veux donc éliminer le code VBA de toute les feuilles sauf la feuille 'Tableau', de ThisWorkbook ainsi que le Module1.

Comment faire ?

Ou alors je fais un copier coller des feuilles de Base.xls vers Rapport.xls, et à ce moment là je n'ai plus de code VBA dans Rapport.xls.
Il faudrait alors insérer le code dans la feuille 'Tableau' de Rapport.xls...

Merci de votre aide !

[Phil'oche]

A adapter... avec prudence !

Code :

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

1
2
3
4
5
6
7
Dim vbC As Object
For i = 1 To ThisWorkbook.VBProject.VBComponents.Count
    vbC = ThisWorkbook.VBProject.VBComponents(i)
    If vbC.Name <> "ThisWorkbook" And vbC.Name <> "Tableau" And vbC.Name <> "Module1" Then 
        ThisWorkbook.VBProject.VBComponents.Remove vbC
    EndIf
Next

[parmi]

Bonjour,

Quelle version d'excel utilises-tu ?

[ancel17]

Bonjour,

J'utilise Excel2000.
J'ai finalement opté pour l'insertion de code dans le nouveau classeur (issu de la FAQ)... Honte à moi, j'aurai dû mieux chercher...

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
Sub creationMacro()
Dim X As Integer
 
With ActiveWorkbook.VBProject.VBComponents("Feuil1").CodeModule
    X = .CountOfLines
    .InsertLines X + 1, "Private Sub Worksheet_SelectionChange(ByVal Target As Range)"
 
    'Chr(38) permet d'insérer le symbole & dans la procédure.
    .InsertLines X + 2, _
        "MsgBox ""La cellule sélectionnée: """ & Chr(38) & " Target.Address,,""Message"" "
    .InsertLines X + 3, "End Sub"
End With
End Sub

Merci de votre aide en tout cas