Discussion :

[changul]

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

[Roiser]

Bonjour,

Si tu connais la position de la cellule où se trouve la donnée tu peux utiliser :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

fs.Cells(NumLigne,Numcolone)=ft.Cells(NumLigne,Numcolone)

(si j'ai bien compris ton problème)

[changul]

Bonjour Rosier,

Pour mieux comprendre mon problème, ci-joint les fichiers excel.

Le fichier SERVERS List est celui du mois de Mai. La macro Template est écrite pour ce fichier.
Je serai obligé de modifier la macro a chaque fois que je crée un nouveau fichier SERVERS List....

Ta ligne, je la met dans quelle partie STP ?

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

fs.Cells(NumLigne,Numcolone)=ft.Cells(NumLigne,Numcolone)

Merci
Salutations
changul