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
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