Supprimer macro sous excel 2003

[milo18]

Bonjour
Troll merci de ton attention mais si j'ai fais une macro c'est pour qu'une personne qui ne connais pas excel puisse remplir la fiche ...( j'ai crée une "matrice" qu'on ouvre, on rempli la fiche mais pour éviter les erreurs tout est "automatisé et protégé" et grâce à cette macro dès que tu as terminé tu clique sur le bouton ou j'ai affecté cette macro,et elle sauvegarde, imprime la fiche,et l'archive dans le répertoire prévu et ferme la matrice !!! cela evite les erreurs ou plantage !!!).
Voilà pourquoi je tiens à trouver la solution !!!

[Troll]

Ah d'accord très bien...


Ce qui m'étonne c'est que je pense que le code que je t'ai donné aurait dû fonctionner, je ne vois pas l'erreur...

Je vais tenter de creuser ça

[Troll]

Alors j'ai peut-être trouvé la solution, une bête histoire d'espace, essaies avec ceci :

Sélectionner - Agrandir / Réduire

             Dim VBComponent As Object


                    For Each VBComponent In ActiveWorkbook.VBProject.VBComponents


                    Select Case VBComponent .Type


                    Case 1 To 3


                    ActiveWorkbook.VBProject.VBComponents.Remove VBComponent


                    Case Else


                    With VBComponent.CodeModule


                    .DeleteLines 1, .CountofLines


                    End With


                    End Select


                    Next VBComponent

[milo18]

Bonjour à tous
Re-merci Troll je vais essayer celà le plus rapidement et te communique le résultat !!!
Bonne journée

[Troll]

Très bien j'attends de tes nouvelles

[Troll]

(erf double post... mais c'est pour être sûr que tu le vois )

J'ai aussi ce code si avec celui d'avant ça ne fonctionne pas :

Sélectionner - Agrandir / Réduire

Sub del_macro()


Dim VBC As Object


 


With ActiveWorkbook.VBProject


    For Each VBC In .VBComponents


        If VBC.Type = 100 Then


            With VBC.CodeModule


                .DeleteLines 1, .CountOfLines


                .CodePane.Window.Close


            End With


        Else


            .VBComponents.Remove VBC


        End If


    Next VBC


End With


 


End Sub

A très bientôt.