Pouvoir effectuer un vlookup sur une plage entre fichier de répertoire different

[sebos]

J'ai effectué le script ci dessous, que j'ai vu sur le post :
89268-recherchev-en-vba.html

Sub Test()
Dim Chemin As String
Dim WkbB As Workbook
Const Wsht As String = "Test1807b" 'ici on donne le nom de la feuille Cible
Dim Ok As Boolean
Dim DerLgn As Long
Application.ScreenUpdating = False
Const NomClasseur As String = "Prixfournisseur2.xls"
Chemin = "U:\Public\VIK\"
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

La macro bug sur la fonction ExistFile
Je en vois pas à quoi est dûe le prb

Merci de vos retour, j'utile VB 6.3

 

[Pierrot93]

Re : Pouvoir effectuer un vlookup sur une plage entre fichier de répertoire different

Bonjour,

m'étonne que la fonction "ExistFile" soit native sous excel 2000, perso je ne la connais pas sous 2003... regarde peut être du coté de la fonction "Dir", F1 dans l'aide vba t'en dira un peu plus...

bon après midi
@+

 

[Paritec]

Re : Pouvoir effectuer un vlookup sur une plage entre fichier de répertoire different

Bonsoir sebos le forum
bon alors comme tu le dis existfile est une fonction, cette fonction est-elle dans ton fichier??? si elle n'y est pas c'est normal que cela bug
a+
papou🙂

 

[Paritec]

Re : Pouvoir effectuer un vlookup sur une plage entre fichier de répertoire different

re Sebos Pierrot🙂 le forum
autrement tu remplaces

Ok = ExistFile(Chemin & NomClasseur) 'ici on teste l'existence du fichier Source via son chemin et son nom
par 
If dir(Chemin & NomClasseur,vbdirectory)<>"" then OK

a+
papou🙂

 

[sebos]

Re : Pouvoir effectuer un vlookup sur une plage entre fichier de répertoire different

Bonjour,

merci de votre aide ,
j'ai readapté le sript au besoin,c'est OK
Je cherche maintenant à réaliser une mise en formme conditionnel si la cellule a été modifiée suite au lookup.
La fonction sub couleur n'est pas concluante, il me semble que la fonction worksheet calculate peut répondre à ce genre de prb, mais je ne connais pas bien son fonctionnement.

Merci de vos retour



Sub LookUp()

With Sheets("Feuil1")
DerLgn = .Range("A65536").End(xlUp).Row
.Range("C1:C" & DerLgn).Value = WorksheetFunction.VLookup(.Range("A1:A9999").Value, _
Workbooks("Prix_fournisseur2.xls").Sheets("Feuil1").Range("A1:B9999"), 2, False)
End With
End Sub

Sub couleurs()
For n = 1 To Sheets("Feuil1").Range("B65536").End(xlUp).Row
If Sheets("Feuil1").Range("B1:B99") <> Sheets("Feuil1").Range("C1").End(xlUp) Then
Sheets("Feuil1").Range("C" & n).Font.ColorIndex = 10
End If
Next n
End Sub