feuille ds un nouveau classeur sans source VB

Version imprimable

10/12/2006, 13h51
mennix

feuille ds un nouveau classeur sans source VB

Bonjour

je n'ai pas trouvé sur les divers forums ce sujet.

j'ai une feuille excel avec des fonctions en vba ds le Worksheet et un bouton sur la feuille.

Je copie cette feuille ds un new classeur mais il me copie le code source vba de la feuille... donc cela me creer une erreur, car il ne trouve pas des sub qui ce trouvait ds un autre module du classeur initial.

Moi ce qui m'interesse c'est d'avoir la feuille a titre de resultat.
Est il possible de nettoyer tt le code source vba de la feuille copier ?

merci a vous

bonjour

j'espere que cet exemple pourra t'aider.

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
Private Sub CommandButton1_Click()
    Dim Wb As Workbook
    Dim VbComp As Object
 
    Feuil1.Copy
    Set Wb = ActiveWorkbook
 
    For Each VbComp In Wb.VBProject.VBComponents
                With VbComp.CodeModule
                    .DeleteLines 1, .CountOfLines
                End With
    Next VbComp
End Sub

bon après midi
michel

10/12/2006, 15h17
mennix

Merci a toi, c'est un debut, je vais fouiller avec ca.

le seul souci est qu'une fonction existe ds cette feuille Worksheet_Activate()
donc apres un copi, j'ai pas le temps de lancer le module pour purger, car activate ce lance juste apres la copie
je pense qu'en desactivement application.enablevents ca devrait le faire.
10/12/2006, 16h08
ouskel'n'or

Il me semble que bbil a donné récemment une solution permettant (c'est là que je coince ) est-ce d'enregistrer un classeur sans le code ou une feuille sans le code ?
Je regarde 8O
A+

Bon, je n'ai pas (pas encore) trouvé mais j'ai trouvé ça, signé par un certain SilkyRoad et à peine modifié pour l'adapter au code d'une feuille de calculs :
Code:

1 2 3 4 5 6 7 8 9 'Supprimer la macro nommée "Worksheet_SelectionChange" dans le "Classeur2" Sub supprimerUneMacroPrecise() Dim Debut As Integer, Lignes As Integer With Workbooks("Classeur2").VBProject.VBComponents("Feuil1").CodeModule Debut = .ProcStartLine("Worksheet_SelectionChange", 0) Lignes = .ProcCountLines("Worksheet_SelectionChange", 0) .DeleteLines Debut, Lignes End With End Sub
Et ça m'a nettoyé tout propre la procédure Worksheet_SelectionChange ;)
En attendant mieux... si je n'ai pas rêvé...
Tu mets ce code dans un module standard du classeur dans lequel tu veux conserver les macros.

Edit
J'ai trouvé ça http://www.developpez.net/forums/sho...67&postcount=5
Ce n'est pas ce que je cherchais mais bon...

13/12/2006, 00h20
mennix

ok merci a tous, finalement j'ai viré activate.. et rajouté un bouton, il faut donc passer par le bouton pour lancer mon module...

Quand je copie la feuille sur un classeur vierge, je kill le bouton et tt le code vba de la feuille...

bye