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 : Sélectionner tout - Visualiser dans une fenêtre à part
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