RECHERCHE_V dans un classeur fermé

Question

Bonjour à vous, j'essai de réaliser une macro qui me permettrait de faire une recherche verticale dans l'onglet d'un classeur fermé et de renvoyer 2 valeurs d'autres colonnes situées sur la même ligne.

Seulement j'ai un problème dans ma macro si quelqu'un pouvait m'aider :

Sub RechercheV_FSA()

Application.ScreenUpdating = False

Dim Chemin As String, Wbk As Workbook

Chemin = ThisWorkbook.Path & "\01 - DOSSIER VERS SERVICE ACHAT\RCT+WEP\"

' Récupérer des données d'un classeur fermé par OLE automation

' Ouverture de l'objet en question

Set Wbk = GetObject(PathName:=Chemin & "RCT + WEP-N° ECC-Item.xlsm")

Wbk.Worksheets("Data Saving-Rev0").Range("H12") = ECC ---------------------------------------------ICI j'ai un bug ...

Range("H12").Select

For I = 1 To 300

ActiveCell.Offset(1, 0).Range("A1").Select

If Range("H12") = ActiveCell Then GoTo a

If I = 300 Then MsgBox ("On ne connait pas la Date de création")

Next I

a:

Revision = ActiveCell.Offset(0, 63)

Date = ActiveCell.Offset(0, 65)

' Fermeture de l'objet (workbook) sans sauvegarde

Wbk.Close SaveChanges:=False

' Activer la feuille de saisie (au cas ou)

Sheets("Feuille de saisies").Activate

Range("B32").Select

Application.ScreenUpdating = True

End Sub

Amadéus · Answer

Je n'ai pas de réponse à ta question (Pas fort en VBA) Juste une remarque: Cela fait beaucoup, juste pour récupérer 2 valeurs quand on sait que la formule RECHERCHEV fonctionne classeur fermé ou ouvert. Cordialement...