Discussion :

[zoom61]

Bonjour,

J'ai fait ce code :

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
Function InfoRef(CheminFichier as string)
    NbLigne = Range("C100000").End(xlUp).Row
 
    Set wk1 = Workbooks.Open(CheminFichier)
    NbMax = wk1.Sheets(1).Range("A100000").End(xlUp).Row
 
    ThisWorkbook.Activate
    For i = 17 To NbLigne
        ValRef = Range("C" & i).Value
        ValPrix = Range("E" & i).Value
        ValLib = "Inconnu"
        For j = 22 To NbMax
            MsgBox ValRef & " - " & wk1.Sheets(1).Range("F" & j).Value & Chr(10) & ValPrix & " - " & wk1.Sheets(1).Range("J" & j).Value
            If wk1.Sheets(1).Range("F" & j).Value = ValRef And wk1.Sheets(1).Range("J" & j).Value = ValPrix Then
                ValLib = wk1.Sheets(1).Range("B" & j).Value
                GoTo Suite
            End If
        Next j
Suite:
        ThisWorkbook.Activate
        Range("G" & i).Value = ValLib
    Next i
 
    wk1.Close
End Function

Et j'ai deux problèmes :

1. Le NbMax = wk1.Sheets(1).Range("A100000").End(xlUp).Row ne me ramène pas la dernière ligne de mon tableau
2. Le msgbox me donne aucune donnée pour wk1.Sheets(1).Range("F" & j).Value et wk1.Sheets(1).Range("J" & j).Value

Avez-vous une idée où se trouve mes erreurs ?
Le fichier distant s'ouvre bien, et il y a bien des données dans les colonnes F et J.

Merci de votre aide.

[zoom61]

Gloups, j'avais fait une erreur sur l'onglet...