Macro : copier vers la deuxième ou N ième feuille quelque so

Bonjour,

Je souhaite copier les données d'un Template vers une autre fichier excel dans la feuille 2 quelque soit son nom. Car les mois sont emmenés à changer.

Voici la macro arrangée par un pro de ce site...

Merci pour votre bienveillance

changul

===============================================

Option Explicit

Dim ws As Workbook, wt As Workbook, ft As Worksheet, fs As Worksheet

Dim lgn&

Sub CopieListeServeurs()

Set wt = ActiveWorkbook

Set ft = wt.Sheets("Template")

Workbooks.Open Filename:="C:\User\ABCDR\SERVERS List.xlsx"

Set ws = ActiveWorkbook

Set fs = ws.Sheets (" May-2017") <<== c'est ici que je souhaite copier les données mais sans cité le nom May-2017

lgn = fs.Range("A" & Rows.Count).End(xlUp)(2).Row

ft.Range("A2:DL" & ft.Range("A" & Rows.Count).End(xlUp).Row).Copy

fs.Range("A" & lgn).PasteSpecial xlPasteAll

Application.CutCopyMode = False

ws.Close True

End Sub

Bonjour,

Set fs = ws.Sheets(2)

Bonjour SabV

Merci beaucoup pour ton aide.

ça fonctionne

Salutations

changul