Discussion :

[mysterauto]

voilà, je voudrais copier des feuilles d'un classeur2 vers le classeur1. j'ai fait un bout de code mais ce code bugue à page moins 2. Cest à dire que si le classeur2 contient 37 feuilles, ça bugue au bout de la 35ème feuille. si le classeur contient 35 feuilles, le code plante à la 33ème feuille.

voilà mon code:

Code :

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

1
2
3
For Y = 1 To ActiveWorkbook.Worksheets.Count
If Workbooks(Classeur2).Sheets(Y).Name <> "impression" Then Workbooks(Classeur2).Sheets(Y).Copy Before:=Workbooks(Classeur1).Sheets(Y)
Next Y

les deux classeurs contiennent du code VBA et d'ailleurs, le classeur2 quand il est chargé, son code est lancé automatiquement; si ça peut aider à résondre le problème...

merci d'avance pour vos conseils, Luc.

[mercatog]

Peut être (pas testé)

Code :

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

1
2
3
4
5
With Workbooks(Classeur2)
    For Y = 1 To .Worksheets.Count
        If .Sheets(Y).Name <> "impression" Then .Sheets(Y).Copy Before:=Workbooks(Classeur1).Sheets(1)
    Next Y
End With

[mysterauto]

merci, ca fonctionne mais si je peux me permettre, pourquoi sheets(1) au lieu de sheets(y) ?

ça me semblait plus logique (mon niveau VBA est d'environ 3/10)

merci encore.

ps: je ne trouve plus comment marquer le message "résolu"

[mercatog]

On boucle sur les feuilles de Classeur2 et en les copie tour à tour avant la feuille en position 1 de Classeur1

Supposons qu'au départ Classeur1 comporte une seule feuille A.
Pour Y=1:
On copie la première feuille de Classeur2 (B) avant la feuille A de Classeur1.
B devient la première feuille de Classeur1.

Pour Y=2:
On copie la deuxième feuille de Classeur2 (C) avant la feuille B de Classeur1.
C devient la première feuille de Classeur1.

...etc.