Une feuille et son code

Bonjour , j'ai une question "particulière" ..pas très courante (peut etre en esperant avoir de vos lumières ,

pour copier une feuille d'un classeur vers un autre , j'inclus l'instruction suivante

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

qui me sert à épurer la feuille de son code , alors ma question est comment puis je faire pour detecter si une feuille

contient du code ? ce qui me permettrait de savoir si je peux en effet utiliser l'instruction précedente ,

parceque lorsqu'elle ne contient pas de code j'obtiens une "erreur" pour laquelle la ligne :

With ActiveWorkbook.VBProject.VBComponents(ActiveSheet.CodeName).CodeModule 

est surlignée en jaune.

Avec mes pleins remerciements à vous si toutefois vous aviez une solution .

Cordialement.

Bonjour,

Question pointue (et pas courante !)

Proposition : remplace ActiveSheet.CodeName par un "compteur" comme la boucle ci-dessous. Ou sinon elle te donne le nom de tous les modules.

Sub nomdesmodules()
'Nécessite d'activer la référence "Visual basic For Application Extensibility 5.3"
    For n = 1 To ActiveWorkbook.VBProject.VBComponents.Count
        Debug.Print ActiveWorkbook.VBProject.VBComponents(n).CodeModule.Name
    Next
End Sub

Bonjour,

Peut simplement en ajoutant avant cette ligne.

on error resume next

Oui Xmenpl , j'y pensais justement, mais j'ajouterais On Error GoTo 0 : on peut en effet encadrer un code où on pense ne rien trouver avec

on error resume next
' ______ici la partie susceptible de provoquer une erreur
On Error GoTo 0

Un grand merci pour vos réponses chapeau !!

Juste une dernière question. Le " goto 0" pointe vers quoi ? Merci

Vers rien du tout ...

L'instruction On Error GoTo 0 permet de désactiver la gestion d'erreur.

Infiniment merci à toi j 'en apprend tout les jours, une bonne soirée