Discussion :

[Denis_67]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[pgz]

Bonjour.

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

PGZ

[Denis_67]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[pgz]

Bonsoir,

Sauf erreur, il reste une question :

Que fait la macro2?

Cdlt,

PGZ

[patricktoulon]

bonjour

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

sans ca ca ne peut pas marcher


au plaisir