Hello,

Je joins le code ci-après est sensé copier les trois premières feuilles d'un classeur dans un autre.
Code : Sélectionner tout - Visualiser dans une fenêtre à part
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