L'exécution d'une macro s'arrête sur l'instruction copy

Hello,

Je joins le code ci-après est sensé copier les trois premières feuilles d'un classeur dans un autre.

Code:

---

1 2 3 4 5 6 7 8 9 10 11

Option Explicit Public Constat2Wbk, AfterConstat2Wbk As Workbook Sub CopySheet() Dim i As Integer Set AfterConstat2Wbk = ActiveWorkbook Set Constat2Wbk = Workbooks.Open(AfterConstat2Wbk.Sheets(1).Cells(2, 1)) For i = 1 To 3 Constat2Wbk.Sheets(i).Copy After:=AfterConstat2Wbk.Sheets(i) Next i Constat2Wbk.Close End Sub

---

Ce code ne génère pas de message d'erreur mais n'exécute rien.
De plus, en mode pas à pas, je constate que l'exécution s'achève sur l'instruction de copie située dans la boucle.
Celle-ci n'est pas exécutée 3 fois comme demandé, Pas plus que l'instruction de fermeture du classeur situé après la boucle.

Je suis sous Excel 2003 et je crois me souvenir que ce code fonctionnait sous Excel 2000.

Une idée ?

Merci d'avance

Plus bizarre encore.
Je copie une feuille d'un classeur dans un autre avec l'enregistreur de macro activé.
La copie se fait correctement.
Si j'exécute la macro enregistrée, pas de message d'erreur et la macro ne va pas au delà de l'instruction copy.

Je constate que je ne suis pas le premier à avoir eu ce problème
http://www.ureader.com/msg/103737988.aspx
Mais je ne trouve pas de solution.

Aucun membre n'a vécu cela ?

Bonjour,

Une première remarque sur la déclaration de tes variables, le type doit être déclaré pour chaque variable mais ce n'est pas la cause du problème.

Code:

---

Public Constat2Wbk As Workbook, AfterConstat2Wbk As Workbook

---

Dans la cellule A2 du classeur contenant la macro, tu as bien le chemin complet et le nom complet avec l'extension du fichier à ouvrir, du style "C:\Repertoire\LeClasseur.xls" ?

Oui, le nom complet figure bien dans la cellule.

J'ai essayé cette macro sans problème sur un autre PC.

Il semblerait que l'instruction incriminée cale soit en raison de la version Excel, ou toute autre raison qui m'échappe

Bonjour.

Ce code est-il dans le classeur "AfterConstat2Wbk"?

PGZ

Oui, j'ai fait des tentatives en le lançant à partir d'autres classeurs sans effet.

Configuration où cela fonctionne : Windows Xp, Excel 2000
Configuration où cela dysfonctionne : Windows Xp, Excel 2003

Cela fonctionne sous 2003, ce n'est pas dû à la version.

Bonsoir.

Si le code est dans le classeur "AfterConstatWbk", pour la forme, tu peux corriger ton code

Code:

---

1 2 3 4 5 6 7 8 9 10

Option Explicit Public Constat2Wbk As Excel.Workbook Sub CopySheet() Dim i As Integer Set Constat2Wbk = Workbooks.Open(ThisWorkbook.WorkSheets(1).Cells(2, 1)) For i = 1 To 3 Constat2Wbk.WorkSheets(i).Copy After:=ThisWorlbook.WorkSheets(i) Next i Constat2Wbk.Close False End Sub

---

Juste pour y voir plus clair...

PGZ