Discussion :

[defluc]

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

[defluc]

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 ?

[fring]

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 :

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

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" ?

[defluc]

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

[pgz]

Bonjour.

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

PGZ

[defluc]

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