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 : 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
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