lier deux fichiers excel avec conditions
Bonjour,
J'aimerais lier deux fichiers excel. Le 1er sert de "base de données".
Je souhaite "copier/coller" des données du 1er Fichier vers le 2ème sous certaines conditions.
J'ai écrit un macro avec des SI et un EACH, je dois apparemment définir mes feuilles comme des objets mais je ne sais pas comment.
Merci d'avance pour votre aide
Ci-dessous mon essai
Code:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
| Sub copier_data()
For Each cellule In Workbook("2010 STD Activities status").Range("q5:q1000")
'condition de période
If Worksheet("datas test").Cells(2, 6) = Workbook("2010 STD Activities status").Range("q5:q1000") Then
Exit Do
' condition si le montant de scrap est >0
If Worksheet("2010 STD Activities status").Range("x5:x1000") > 0 Then
'alors si ces conditions sont respectées copier/coller dans le fichier NQC
Workbook("2010 STD Activities status.xls").Range("L5:L1000").Copy
Worksheet("datas test").Range("G7:G1000").Paste
End If
End Sub |
