Importer status d'un autre fichier

Bonsoir les amis,

J'ai deux fichier (fichier1) la colonne B contient des numéros de lots (peuvent être répétitifs puisque plusieurs paquets) et la colonne H les Status des lots. (Ok or NOT)

Dans le deuxième fichier (fichier2) je fais entrer le numéro de lot une seule fois dans la colonne A et statut OK par défaut en colonne B.

je veux qu'a l'ouverture du fichier 1 il examine le fichier 2 et si la colonne A contient exemple : 121 et la colonne B : OK

Changer le status de tous les lignes qui contient ces lots dans le fichier 1

Merci d'avance

Bonjour xxmedxx,

Si j'ai bien compris, voici une possibilité

Sub MàJ_Statut()
  Dim WbkS As Workbook
  Dim sDossier As String, sFichier As String, sNomF As String
  Dim dLig As Long, Lig As Long
  ' Chemin et nom du fichier source (fichier 2)
  sDossier = ThisWorkbook.Path & "\"
  sFichier = "Fichier2.xlsx"
  ' Nom de la feuille source (fichier 2)
  sNomF = "Feuil1"
  ' Désactiver l'affichage
  Application.ScreenUpdating = False
  ' Ouvrir le fichier 2
  Set WbkS = Workbooks.Open(sDossier & sFichier)
  ' Inscrire la formule
  With ThisWorkbook
    .Activate
    With .Sheets(1)
      ' Dernière ligne remplie de la colonne B du fichier 1
      dLig = .Range("B" & Rows.Count).End(xlUp).Row
      ' Inscrire dans la colonne H la formule a base de RECHERCHEV() pour récupérer les valeurs
      .Range("H2:H" & dLig).FormulaLocal = "=RECHERCHEV(B2;'[" & sFichier & "]" & sNomF & "'!$A:$B;2;FAUX)"
      ' Transformer les formules en valeurs
      .Range("H2:H" & dLig).Value = .Range("H2:H" & dLig).Value
    End With
  End With
  ' Fermer le classeur source
  WbkS.Close SaveChanges:=False
  ' Réactiver l'affichage
  Application.ScreenUpdating = False
  ' Effacer la variable objet
  Set WbkS = Nothing

A+

Salut BrunoM45,

Votre solution ne marche pas je vais vous montrer mes fichier :

A l'aide de ce fichier :

Merci

Bonsoir,

Code de mon précédent post rectifié, j'ai ajouté des commentaires pour une meilleur compréhension

Bonne fin de dimanche