Forums d'entraide informatique - Les forums de PCW - Supprimer macro sous excel 2003

Pages : 1 2

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 !!!
:roll:

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 Wink

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

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

Très bien j'attends de tes nouvelles Smile

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

)

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

Sélectionner - Agrandir / Réduire

Sub del_macro&amp;#40;&amp;#41;

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.

Pages : 1 2

Forums d'entraide informatique - Les forums de PCW

milo18

Troll

Troll

milo18

Troll

Troll