Discussion :

[mennix]

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

[SilkyRoad]

bonjour

j'espere que cet exemple pourra t'aider.

Code :

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

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

[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.

[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
A+

[ouskel'n'or]

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 :

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

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...

[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