Bonjour

J'aimerai savoir s'il était possible d'insérer des données d'un classeur dans un autre ? J'aimerai regarder dans une colonne d'un classeur s'il existe une valeur et si elle existe prendre la valeur correspondante et l'insérer dans un autre classeur...j'ai beau essayer plein de chose différente rien ne marche... ça m'affiche pas de message d'erreur mais ça me met pas les valeurs correspondantes...je vous met ci dessous deux types de code que j'ai inscrit :


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
 Workbooks.Open Filename:=("C:\Users\\" & Worksheets("Liste fonds").Range("B2").Offset(i, 0))
        Range("I1").Select
 
        j = 0
        While Range("I1").Offset(j, 0) <> ""
        If Range("I1").Offset(j, 0) = "HS MONE" Then
        nbrehsbc = Range("I1").Offset(j, 17)
 
        Workbooks("CONTROLE MONE.xls").Activate
        Worksheets("CONTROLE").Activate
        Range("F13").Offset(i, 0) = nbrehsbc
 
        End If
 
        j = j + 1
 
        Wend
ici j'ouvre tous les excel portant le nom présent dans la colonne B2 et je check leur colonne I pour vérifier mes conditions...

Dans ce deuxième code je teste juste sur un classeur :

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
Workbooks.Open Filename:=("C:\Users\" & "HISINV_20141231_1416_UNOFI-RENDEMENT_2.xls")
    Range("I1").Select
    For i = 0 To 100
    If Range("I1").Offset(i, 0) = "HS MONE " Then
 
    Workbooks("CONTROLE MONE.xls").Worksheets("feuil3").Range("A2") = Range("I1").Offset(i, 17)
    End If
    Next i
mais ça ne s'affiche pas non plus ...

Si quelqu'un peut me dire si c'est possible et si oui quel procédé faut il utiliser s'il vous plait ?

Cordialement