Bonjour a tuos
j'ai un problème sur VBA, j'aurai aimé savoir si vous pouviez m'aider.

je suis entrain d'automatiser un reporting, et sur 1 colonne, je fais un recherche v qui va me chercher des données sur un fichier externe.
cette manoeuvre, je la fais 5 fois, je l'ai fait via l automatisation de macro.

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
23
24
25
26
27
    Range("BS3").Select
    ActiveCell.FormulaR1C1 = _
        "=VLOOKUP(RC[-69],'[Extract - EUR - Tuesday, January 15, 2013.xlsx]ODS'!C3:C52,50,FALSE)"
    Range("BS3").Select
    Selection.FillDown
    ActiveWindow.SmallScroll Down:=-200
 
    Range("BT3").Select
    ActiveCell.FormulaR1C1 = _
        "=(VLOOKUP(RC[-70],'[Extract - EUR - Tuesday, January 15, 2013.xlsx]ODS'!C3:C55,53,FALSE)/RC[-1])"
    Range("BT3").Select
    Selection.FillDown
    ActiveWindow.SmallScroll Down:=-200
 
    Range("BU3").Select
    ActiveCell.FormulaR1C1 = _
        "=VLOOKUP(RC[-71],'[Extract - EUR - Tuesday, January 15, 2013.xlsx]ODS'!C3:C32,30,FALSE)"
    Range("BU3").Select
    Selection.FillDown
    ActiveWindow.SmallScroll Down:=-200
 
    Range("U3").Select
    ActiveCell.FormulaR1C1 = _
        "=IF(RC[-6]=""EUR"",RC[-1],RC[-1]/VLOOKUP(RC[-6],'[Extract - EUR - Tuesday, January 15, 2013.xlsx]Conversion Rate'!C1:C2,2,FALSE))"
    Range("U3").Select
    Selection.FillDown
    ActiveWindow.SmallScroll Down:=-200
je ne sais pas si c est le bon, mais j arrive pas à le compiler.

Merci enormement par avance pour votre aide.

Cordialement.