VBA RechercheV dans fichier fermé
Bonjour,
Je ne parviens pas à faire fonctionner ma rechercheV via ma macro Excel.
Je souhaite faire une recherche V dans un fichier via macro qui va chercher l’information dans un fichier fermé.
Pour cela j’ai créé ce code ci dessous, savez vous qu’est ce qui cloche ?
Sub RechercheV_FichierFerme()
Dim Conn As Object
Dim rs As Object
Dim CheminFichier As String
Dim ValeurRecherche As String
Dim Resultat As Variant
Dim NomFeuille As String
CheminFichier = "C:\Users\sm229_1\Downloads\_-_Current_Employee_Detail_Report_-_France (50).xlsx"
NomFeuille = "[Employee$]"
ValeurRecherche = ThisWorkbook.Sheets("ABS").Range("H2").Value
On Error GoTo ErreurHandler
Set Conn = CreateObject("ADODB.Connection")
Conn.ConnectionString = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & CheminFichier & ";Extended Properties=""Excel 12.0 Xml;HDR=YES"";"
Conn.Open
Dim SQL As String
SQL = "SELECT AJ FROM " & NomFeuille & " WHERE B = '" & ValeurRecherche & "'"
Debug.Print "Requête SQL : " & SQL
Set rs = CreateObject("ADODB.Recordset")
rs.Open SQL, Conn, 1, 1
If Not rs.EOF Then
Resultat = rs.Fields("AJ").Value
Else
Resultat = 0
End If
rs.Close
Conn.Close
Set rs = Nothing
Set Conn = Nothing
Exit Sub
ErreurHandler:
MsgBox "Erreur lors de l'exécution de la macro : " & Err.Description
If Not rs Is Nothing Then rs.Close
If Not Conn Is Nothing Then Conn.Close
Set rs = Nothing
Set Conn = Nothing
End Sub
Malgré la msgbox j’ai un message d’erreur comme quoi cela ne peut fonctionner mais j’avoue que je ne comprends pas ce qui ne marche pas.
Quelqu’un peut il m’aider ?
un grand merci 🙏
Bonjour
RECHERCHEV ne fonctionne pas sur fichier fermé.
VBA ne peux pas faire ce qu'Excel ne fait pas. Il ne peux automatiser que ce qui fonctionne.
Bonjour à tous,
j'avais noté oui pour Recherchev() sur classeur fermé (?)
eric