copie de feuille

[gillesj]

Bonjour

Je voudrais copier la feuille 1 de plusieurs classeurs dans un nouveau classeur. Dans ce nouveau classeur, j'ai une feuille "liste" qui récapitule en colonne a tous les classeurs

J'ai bâti le code suivant :
Dim r
r = Range("A65000").End(xlUp).Row

For i = 1 To r
Application.DisplayAlerts = False
ChDir ActiveWorkbook.Path

Sheets("Liste").Select
Workbooks.Open Filename:=ActiveWorkbook.Path & "\" & Range("A" & i).Value
Sheets("Feuil1").Select
Sheets("Feuil1").Copy After:=Workbooks("nouveau classeur.xls").Sheets(2)


Windows("nouveauclasseur.xls").Activate
Windows(Range("A" & i) & ".xls").Activate
ActiveWindow.Close SaveChanges:=False
Sheets("Liste").Select

Application.DisplayAlerts = True
Next i


J'ai un souci d'indice sur " Windows(Range("A" & i) & ".xls").Activate " qq'un peut-il m'aider?

 

[gillesj]

Re : copie de feuille

ça vaudra bien un remerciement...tu m'enverras si tu veux tes coordonnées pour que je me rattrappe

 

[gillesj]

Re : copie de feuille

Je t'ai envoyé le modèle de classeur

Bonne journée