Sub test()
With Sheets("Feuil1")
.Range("B1").Value = WorksheetFunction.VLookup(.Range("A1").Value, Sheets("Feuil2").Range("A1:B100"), 2, False)
End With
End Sub
Option Explicit
Sub test()
With Workbooks("NomClasseur.xls").Sheets("Feuil1")
.Range("B1").Value = WorksheetFunction.VLookup(.Range("A1").Value, _
Workbooks("NomClasseur.xls").Sheets("Feuil2").Range("A1:B100"), 2, False)
End With
End Sub
Sub test()
With Sheets("Feuil1")
.Range("B1").Value = WorksheetFunction.VLookup(.Range("A1").Value, _
Workbooks("NomClasseur.xls").Sheets("Feuil2").Range("A1:B100"), 2, False)
End With
End Sub
tu as aussi d'autres façons de faireConst NomClasseur As String = "Classeur2.xls" 'ici le nom du Fichier Cible
Chemin = "C:\Moi\Mes Documents\Test\" 'ici l'adresse du fichier Cible
Sub test()
'Workbooks("Classeur1.xls").Sheets ("Feuil1")
With Sheets("Feuil1")
.Range("J7:J20").Value = WorksheetFunction.VLookup(.Range("G7:G10").Value, _
Workbooks("Classeur1.xls").Sheets("Feuil1").Range("B1:C100"), 2, False)
End With
End Sub
ensuite si tu veux retourner l'ensemble d'une plage il faudra modifier (VLookup ne renvoie qu'une valeur à la fois je pense) LolSub Test()
Dim Chemin As String
Dim WkbB As Workbook
Const Wsht As String = "Feuil1" 'ici on donne le nom de la feuille Cible
Dim Ok As Boolean
Dim DerLgn As Long
Application.ScreenUpdating = False
Const NomClasseur As String = "Classeur2.xls"
'ci dessous j'ai mis en toutes lettres le chemin du fichier Source
en lieu et place de ThisWorkbook.Path & "\"
Chemin = "C:\Users\Jean Marie\Mes Documents\Downloads\"
Ok = ExistFile(Chemin & NomClasseur) 'ici on teste l'existence du fichier Source via son chemin et son nom
If Ok Then
Set WkbB = Workbooks.Open(NomClasseur) 'on affecte ce fichier à la variable en l'ouvrant
With WkbB
DerLgn = .Worksheets(Wsht).Range("A65536").End(xlUp).Row
End With
With Workbooks("Classeur1.xls").Sheets("Feuil1") 'avec le classeur actif
.Range("B2").Value = WorksheetFunction.VLookup(.Range("A2").Value, _
WkbB.Sheets(Wsht).Range("A1:B" & DerLgn), 2, False)
End With
Application.DisplayAlerts = False 'on inhibe le défilement
WkbB.Close False 'on ferme le classeur source ouvert
Else
MsgBox "Le fichier : " & NomClasseur & " N'existe pas " 'on affiche un message si le classeur n'existe pas
End If
With Application
.DisplayAlerts = True
.ScreenUpdating = True
End With
End Sub
Bonjour Roger
regarde le code ci dessous, si cela peut t'aider :
Code:Sub test() With Sheets("Feuil1") .Range("B1").Value = WorksheetFunction.VLookup(.Range("A1").Value, Sheets("Feuil2").Range("A1:B100"), 2, False) End With End Sub
bon après midi
@+