Suppression Code VB

Bonjour à tous,

J'aimerais savoir si c'est possible de supprimer tout le code VB via une macro. Je vous explique le contexte. Je génère plusieurs fichiers à partir d'un fichier maitre (enregistrer sous), mais j'aimerais pourvoir supprimer le code dans les nouveaux fichiers générés.

Est-ce possible?

Merci de votre aide toujours précieuse.

Bonne journée !

Bonsoir,

Effectivement c'est possible. L'enregistrer sous est fait pas le menu ou par code ?

Peut être pourrais tu joindre un fichier exemple ?

A te relire

Bonjour,

Merci de ta réponse. Le fichier est vraiment gros, mais je fais l'opération par code :

ActiveWorkbook.SaveCopyAs Filename:=Chemin & "\" & Fichier & ".xls"

Par la suite j'effectue une série d'opération dans le fichier et je sauvegarde. Je voudrais supprimer le code du nouveau fichier créé.

Merci encore.

Vincent

Re,

essaie avec ce bout de code :

With ActiveWorkbook.VBProject.VBComponents(ActiveSheet.CodeName).CodeModule
        .DeleteLines 1, .CountOfLines
End With

Amicalement

Bonjour,

Merci de ta réponse. Lorsque j'exécute le code , j'ai une erreur : "L'accès par programme au projet visual Basic n'est pas fiable".

Est-ce que quelqu'un connait la signification de ce message?

Un gros merci. Bonne journée !

Vincent

Re,

Il faudrait savoir où se trouve les codes à supprimer.

Dans une feuille, dans des modules ???

A te relire

Bonjour Dan,

Mes codes se trouvent dans plusieurs modules (1 à 9).

Merci

ajoute la référence suivante à ton projet:

Microsoft Visual Basic for Applications Extensibility x.x

Ma question va te paraitre stupide, mais j'insère ta ligne de code ou? Avant le code de Dan?

Merci encore

Vincent

dans l'éditeur visual basic, dans la barre de menu, va dans Outils et puis référence. Ensuite trouve la référence Microsoft Visual Basic for Applications Extensibility x.x dans la liste et coche la. Voila c'est tout.

re,

essaie avec ce code :

With Workbooks(fichier & ".xls").VBProject
    For Each VBComponents In .VBComponents
        With VBComponents.CodeModule
                .DeleteLines 1, .CountOfLines
        End With
    Next
End With

avec "fichier" la variable que je vois dans le code dont tu parles avant

Tu peux essayer aussi en remplaçant Workbooks(fichier & ".xls") par "activeWorkbook"

Si ok, n'oublie pas de cliquer sur le V vert pour cloturer le fil

Amicalement

Merci à vous.

Malheureusement, j'obtiens toujours le même message d'erreur...Je crois comprendre la cause, j'ai insérer le code à l'intérieur même de la macro que j'exécute. Je vais adapter ma méthode.

Un gros merci pour votre aide.

Bon weekend !

re,

Tu dois le mettre juste après l'instruction qui te permet de sauver le fichier donc celle que tu as mise ici dans un post précédent.

Amicalement