copier des feuilles dans un nx classeur

Bonjour André,

Ceci devrait fonctionner :

'--------------------------------------
Sub essai()

Dim Nombre As Integer, A As Integer
Dim Nom As String
Dim Dest As Workbook
'Classeur de destination
Set Dest = Workbooks("Classeur1.xls")
Nom = ActiveWorkbook.Name
Application.ScreenUpdating = False
With Workbooks("ERFsvg.xls")
Nombre = .Sheets.Count
For A = 1 To Nombre
.Worksheets(A).Copy After:Þst.Sheets(Dest.Sheets.Count)
Next
End With
Workbooks(Nom).Activate

End Sub
'--------------------------------------


Salutations!



"AndréSch" <cephaspierre@aol.com> a écrit dans le message de news: OkjdTh7rFHA.2064@TK2MSFTNGP09.phx.gbl...
Bonjour à tous

je voudrais copier des feuilles dans un autre classeur...

copier-coller la zone_user et redimentionner les lignes et colonnes plante
le système au bout de 3 passages dans la macro

j'essaie donc copier la feuille et...ça plante à la seconde feuille... J'ai
beau chercher

Xp ou w98 et Excel 97

Y a t il une erreur dans mon code ?

Sub essai()
Dim Nombre As Integer
Dim Nom As String
Dim i As Integer

'soit à copier les pages de ERFsvg.xls dans Classeur1
Workbooks("ERFsvg.xls").Activate
Nombre = Sheets.Count

For i = Nombre To 2 Step -1
Workbooks("ERFsvg.xls").Activate
Nom = Sheets(i).Name
Debug.Print Nom
Worksheets(Nom).Select
Worksheets(Nom).Copy before:=Workbooks("Classeur1.xls").Worksheets("Feuil1")
Next i

End Sub

quel est le mec sympa qui ...etc comme d'habitude... ;-)

Merci d'avance

André

Bonjour Michdenis...

je te remercie pour ce code, je pense qu'il fonctionnera mieux que le
mien...

A+

andré


"michdenis" <michdenis@hotmail.com> a écrit dans le message de news:
ez6hpG8rFHA.3884@TK2MSFTNGP11.phx.gbl...

Bonjour André,

Ceci devrait fonctionner :

'--------------------------------------
Sub essai()

Dim Nombre As Integer, A As Integer
Dim Nom As String
Dim Dest As Workbook
'Classeur de destination
Set Dest = Workbooks("Classeur1.xls")
Nom = ActiveWorkbook.Name
Application.ScreenUpdating = False
With Workbooks("ERFsvg.xls")
Nombre = .Sheets.Count
For A = 1 To Nombre
.Worksheets(A).Copy After:Þst.Sheets(Dest.Sheets.Count)
Next
End With
Workbooks(Nom).Activate

End Sub
'--------------------------------------


Salutations!



"AndréSch" <cephaspierre@aol.com> a écrit dans le message de news:
OkjdTh7rFHA.2064@TK2MSFTNGP09.phx.gbl...
Bonjour à tous

je voudrais copier des feuilles dans un autre classeur...

copier-coller la zone_user et redimentionner les lignes et colonnes plante
le système au bout de 3 passages dans la macro

j'essaie donc copier la feuille et...ça plante à la seconde feuille...
J'ai
beau chercher

Xp ou w98 et Excel 97

Y a t il une erreur dans mon code ?

Sub essai()
Dim Nombre As Integer
Dim Nom As String
Dim i As Integer

'soit à copier les pages de ERFsvg.xls dans Classeur1
Workbooks("ERFsvg.xls").Activate
Nombre = Sheets.Count

For i = Nombre To 2 Step -1
Workbooks("ERFsvg.xls").Activate
Nom = Sheets(i).Name
Debug.Print Nom
Worksheets(Nom).Select
Worksheets(Nom).Copy
before:=Workbooks("Classeur1.xls").Worksheets("Feuil1")
Next i

End Sub

quel est le mec sympa qui ...etc comme d'habitude... ;-)

Merci d'avance

André