Mettre à jour un fichier à partir d'un autre

[jeanphi]

Bonjour

A partir des fichiers se trouvant dans les liens cjoint ci-dessous

http://cjoint.com/?gAqKAnvZnC
http://cjoint.com/?gAqKRKsasJ

je souhaite pouvoir faire ceci grâce à une macro:

Si le nombre se trouvant dans la colonne K du fichier "Acquisitions 2008" est > à 0,
je souhaite récupérer les valeurs des colonnes K, C, F et I de ce même fichier et les insérer
dans les colonnes N, E, K et L de la feuille "Ref" du fichier de calcul des coûts unitaires
Par ailleurs je voudrais insérer dans la feuille "Ref" du fichier de calcul des UO et ce à partir
de la ligne 10 autant de lignes qu'il y a de valeurs correspondant au critère de départ
soit K > 0


Quelqu'un peut t'il m'aider? 🙁
Merci

 

[jeanphi]

Re : Mettre à jour un fichier à partir d'un autre

J'ai écris ceci mais cà marche pas!!

Sub MAJ_UO()

Dim cell As Range

Workbooks.Open Filename:= _
"C:\Documents and Settings\xunp462\Bureau\UO 2009\Acquisition 2008.xls"


For Each cell In Sheets("Acquisition 2008").Range("K2:K" & Sheets("Acquisition 2008").Range("K500").End(xlUp).Row)

If cell.Value > 0 Then
Windows("UO 2009.xls").Activate
Sheets("Ref").Select
cell.Offset(0, 3).Copy Sheets("Ref").Range("N" & Sheets("Ref").Range("N500").End(xlUp).Row + 1)
End If

Next
End Sub