lien + mise à jour Fermé

Question

Bonjour, 
Je travaille sur 2 fichiers excel depuis un moment mais je ne réussi pas à finir ma macro. les 2 tableaux contiennent 4 colonnes: 
- les codes client qui sont identiques sur les deux fichiers mais ne se trouvent pas sur la même ligne dans les 2. Je suppose qu'on pourra se baser sur ca pour faire le lien. 
- les 2 colonnes que je cherche à actualiser c'est les noms des gérants. Je voudrais que ca se met à jour une fois je change le nom sur le premier fichier.
Pourriez-vous m'aider svp?
merci d'avance

yg_be · Answer

Tu connais la fonction recherchev, que tu peux utiliser dans des formules?

tonik4 · Answer

Option Explicit
Sub tri_company()
    Columns("B:B").Select
    ActiveWorkbook.Worksheets("Feuil1").Sort.SortFields.Clear
    ActiveWorkbook.Worksheets("Feuil1").Sort.SortFields.Add Key:=Range("B2"), _
        SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
    With ActiveWorkbook.Worksheets("Feuil1").Sort
        .SetRange Range("A2:D520")
        .Header = xlNo
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
End Sub
Sub tri_BCT()
    Columns("A:A").Select
    ActiveWorkbook.Worksheets("Feuil1").Sort.SortFields.Clear
    ActiveWorkbook.Worksheets("Feuil1").Sort.SortFields.Add Key:=Range("A2"), _
        SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
    With ActiveWorkbook.Worksheets("Feuil1").Sort
        .SetRange Range("A2:D520")
        .Header = xlNo
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
End Sub
Sub miseajour()
'la macro MiseAJour permettra de mettre à jour, en fonction du code bct,les données extraites du systeme dans un rapport excel.
'le but étant d'éviter de copier et coller à chaque fois que le bdm ou le rm change
'Colonne bdm
    Workbooks.Open("\hld.net\dfs\users	khater\desktop	estlistebdm.xlsm").Sheets("feuil1").Range("$C$2").Copy
    Workbooks.Open("\hld.net\dfs\users	khater\desktop	estlisterm.xlsm").Activate
    ActiveSheet.Paste Destination:=Range("$G$2")
'colonne rm
    Workbooks.Open("\hld.net\dfs\users	khater\desktop	estlistebdm.xlsm").Range("$C$2").Copy
    Workbooks.Open("\hld.net\dfs\users	khater\desktop	estlisterm.xlsm").Activate
    ActiveSheet.Paste Destination:=Range("$E$2")
With Range("$G$2:$E$2")
.Font.ColorIndex = 3
.Font.Size = 8
.HorizontalAlignment = xlLeft
End With
End Sub

Lien + mise à jour

2 réponses

Discussions similaires