Problème de suppression du code dans une feuille

Bonjour,
Après avoir copié une feuille d'un classeur vers un autre, je veux supprimer le code de cette feuille.
Problème je récupère une erreur "erreur de compilation End property attendu".
Je ne suis pas familier avec les procédures with...end.

L'erreur vient peut-etre du fait que le code supprimé est de type Worshheet change ?

Procédure
Ouverture classeur 1
Lancement de la macro 1
La macro 1 fait :
Ouverture d'un classeur 2 et lancement de la macro 2
Copie les feuilles résultats du classeur 2 vers le classeur 1
Fermeture du classeur 2
Nettoyage du code de la feuille importée.

Voici le code

Code:

---

1 2 3 4 5

Workbooks("Cumul 8 derniers mois.XLS").Worksheets("Graph_individuel").Activate With ActiveWorkbook.VBProject.VBComponents(ActiveSheet.CodeName).CodeModule .DeleteLines 1, .CountOfLines End With

---

Le code que je supprime est du type Worksheet change

Code:

---

1 2 3 4 5

Private Sub Worksheet_Change(ByVal Target As Range) If Not Application.Intersect(Target, Range("C1")) Is Nothing Then Application.Run "'Perspective annuelle.xls'!Graph_individuel.Graph_individuel", mat_call End If End Sub

---

Merci pour vos suggestions.
Denis

Bonjour.

Quelle est l'instruction qui lève l'erreur?
Que fait la macro2?
La macro2 est dans quel classeur?

PGZ

Rappel:
La macro 1 du classeur 1
ouvre classeur 2 et lance macro 2 du classeur 2.
ensuite macro 1 reprend la main et copie deux feuilles du classeur 2
vers le classeur 1.
Comme une des feuilles importée contient une macro événementielle <change>
Macro 1 supprime le code de cette feuille.

Et c'est la que ça coince après l'instruction

Code:

---

1 2 3 4

Workbooks("classeur1.XLS").Worksheets("Graph_individuel").Activate With ActiveWorkbook.VBProject.VBComponents(ActiveSheet.CodeName).CodeModule .DeleteLines 1, .CountOfLines End With

---

J'ai essayé de faire un kit de deux classeurs qui reproduit le même scénario simplifié mais sans les données et là ça passe. Je vais essayer de ne pas exécuter la macro 2 pour voir si c'est elle qui fait perdre les pédales.
Merci
Denis

Bonsoir,

Sauf erreur, il reste une question :

Citation:

---

Envoyé par pgz

Que fait la macro2?

---

Cdlt,

PGZ

bonjour

a tu activé la reference "microsoft visual basic for application extensibility x.x"

sans ca ca ne peut pas marcher


au plaisir