Copier les données excel à partir d'une macro sur autre fichier excel onglet2 quelque soit le nom
Bonjour,
Je suis à la recherche d'une grande aide pour compléter ma macro SVP.
Je ne suis pas pro, le script ci-dessous a été revu-corrigé par des pro ...mais ils sont en pannes d'idées !
Mon problème :
Je souhaite savoir quel serait la formule pour copier a partir d'une donnée précise vers un fichier final dont ce dernier est créé chaque mois SVP?
voir script ci-dessous (en rouge, concerne l'onglet du fichier final SERVERS List.xlsx)
merci d'avance pour votre aide
Salutations
changul
Code:
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22
| 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") ' <<== Macro
Workbooks.Open Filename:="C:\User\ABCDR\SERVERS List.xlsx" ' <<== Fichier Final
Set ws = ActiveWorkbook
Set fs = ws.Sheets (" 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 |