Trouver une valeur dans un fichier sans l'ouvrir et la recopier Résolu/Fermé

Question

Bonjour à tous,
Je veux faire une macro pour trouver une valeur dans une autre feuille s'en l'ouvrir. 
La valeur à chercher dans cette feuille se trouve dans la cellule "A2" de ma feuille ouverte et je veux trouver la valeur qui est comprise dans le nom dans la colonne "B" de mon fichier non ouvert. ex: je cherche C28021 dans C28021-004-12. Lorsque la valeur à été trouvé dans la feuille non ouverte, je veux la copier dans le cellule "A2" de ma feuille ouverte.
J'ai essayé avec une méthode ADODB mais la je suis un peu perdu!!
Voici ce que j'ai fait, j'ai un erreur sur la ligne texte_SQL qui dit que la Déclaration existante dans la portée en cours et je ne trouve pas c'est quoi le probème:Dim Cn As ADODB.Connection
    Dim Fichier2, texte_SQL As String
    Dim NomFeuille As String, texte_SQL As String
    Dim Rst As ADODB.Recordset'Comparaison des deux fichiers
        '-----------------------------
        Sondage = Cells(2, 1).Value
       
        'Définit le classeur fermé servant de base de données
        Fichier2 = "M:\Entrepot\BDFS\0_Sondages_a_saisir_Geotec\" & "SONDAGE.xlsx"
        'Nom de la feuille dans le classeur fermé
        NomFeuille = "SONDAGE"
    
        Set Cn = New ADODB.Connection
    
        '--- Connexion ---
        With Cn
            .Provider = "Microsoft.Jet.OLEDB.4.0"
            .ConnectionString = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" _
             & Fichier2 & ";Extended Properties=""Excel 12.0;HDR=YES;"""
            .Open
        End With
        '-----------------
    
        '... la requête ...
        'Value = application.vlookup(Sondage,range("B").Cells(.rows.count, 1).end(xldown)),1,1)
        texte_SQL = "SELECT*FROM*&fichier2"
        Set Rst = New ADODB.Recordset
        Rst.Open texte_SQL, Cn, adOpenStatic, adLockReadOnly
        MsgBox Rst.RecordCount & "Nombre de lignes"
        Rst.Close
        Set Rst = Nothing

'--- Fermeture connexion ---
        Cn.Close
        Set Cn = Nothing
Pouvez-vous m'aider?
Merci!

yg_be · Answer

bonsoir, peut-être parce que tu déclares deux fois texte_SQL As String?

michel_m · Answer

Bonjour à tous
Tu es obligé de laisser le classeur source fermé ?
ce classeur est il une liste de données ?

Kalissi · Answer

Bonjour,
syntaxe douteuse :
texte_SQL = "SELECT*FROM*&fichier2"
syntaxe amélioré :
texte_SQL = "SELECT * FROM *" & fichier2
K

michel_m · Answer

J'ai effectué quelques essais avec le fichier ouvert et je n'y arrivais pas! Est-ce possible de l'ouvrir dans le voir à l'écran? 
Non 
tu ne répond pas mA question: ce classeur est il une liste de données ?
et si oui quel est le nom de l'ent^te de la colonne B 
un texte sql se présente ainsi
nomfeuille="sondage" & "$"
Champ=???? ent^te colonne B
valeur=cells(2,1)
Select * From  nomfeuille Where champ Like '*" & valeur & "*'
maintenant si tu cherches seulement le nombre de C120004 (et pas d'autres valeurs) dans la colonne B, il y a une astuce qui t'évite de passer par ADO 
de plus avec 1 formule dans la feuille du classeur source et 1 ou 2 lignes de code sans ouvrir le classeur
 Michel

Trouver une valeur dans un fichier sans l'ouvrir et la recopier

4 réponses

Discussions similaires