Discussion :

[guiMM]

Bonjour ,

J'ai un problème de syntaxe dans du code vba et je m'en remets à l'aide du forum.

J'ai deux classeurs différents : Classeur_source et classeur_de_synthése.

J'ai une boucle qui tourne sur toutes les pages de classeur_source et qui préleve certaines infos via un vlookup pour les déposer sur classeur_de_synthese à savoir un AUTRE classeur :En gros :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
sub()
 
Workbooks("classeur_source.xls").Activate 
 
for each feuille in Worksheets 
Workbooks("classeur_de_synthése.xls").Activate 
Range("C4").Select 
'ActiveCell.FormulaR1C1 = _ 
"=VLOOKUP(RC[-2],""[classeur_source.xls]"" & feuille &""!R9C2:R1000C13"",11,FALSE)" 
Next

en fait je voudrai qu'en passant sur chaque feuille il aille me récuperer une valeur par un vlookup et j'ai un problème de syntaxe dans mon vlookup.

Merci d'avance

[mercatog]

bonsoir,
en répondant à ta question sur la synthaxe:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
Sub import()
Dim feuille As Worksheet
Dim i As Integer
i = 4
For Each feuille In wbks.Worksheets
    Range("C" & i).FormulaR1C1 = "=VLOOKUP(RC[-2],[classeur_source.xls]" & feuille.Name & "!R9C2:R1000C13,11,FALSE)"
    i = i + 1
Next feuille
End Sub