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 |
