Discussion :

[guigui1976]

Bonjour,
Aprés plusieur recherche j'ai trouvé le moyen de faire une copie d'une plage de cellule sans ouvrir le fichier source.
Mais comment puis-je faire pour faire une recherche sur une plage de cellule pour copié et coller dans le fichier destination.
Voici la macro qui fonctionne pour la copie d'une plage.
J'ai testé avec Find mais rien n'y fait.
Merci de votre patient.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
Sub extractionValeurCelluleClasseurFerme()
Dim v As String
    Dim Source As ADODB.Connection
    Dim Rst As ADODB.Recordset
    Dim ADOCommand As ADODB.Command
    Dim Fichier As String, Cellule As String, Feuille As String
    v = Range("a1").Value 'valeur recherche dans fichier source
 
    Cellule = (Find(v)("a2:k35"))resize (1,1)
 
    Feuille = "Feuil1$" 'n'oubliez pas d'ajouter $ au nom de la feuille.
    'Chemin complet du classeur fermé
    Fichier = "C:\Users\Moi\Desktop\s.xls"
 
    Set Source = New ADODB.Connection
    Source.Open "Provider=Microsoft.Jet.OLEDB.4.0;" & _
        "Data Source=" & Fichier & ";Extended Properties=""Excel 8.0;HDR=No;"";"
 
    Set ADOCommand = New ADODB.Command
    With ADOCommand
        .ActiveConnection = Source
        .CommandText = "SELECT * FROM [" & Feuille & Cellule & "]"
    End With
 
    Set Rst = New ADODB.Recordset
    Rst.Open ADOCommand, , adOpenKeyset, adLockOptimistic
 
    Set Rst = Source.Execute("[" & Feuille & Cellule & "]")
 
    Range("A2").CopyFromRecordset Rst
 
    Rst.Close
    Source.Close
    Set Source = Nothing
    Set Rst = Nothing
    Set ADOCommand = Nothing
End Sub

[pgz]

Bonjour.

Vu le code que tu as déjà fait, tu devrais y arriver très facilement!
2 pistes :
Tu utilises une commande SQL "SELECT ...". Tu peux modifier cette commande pour ne sélectionner que ce que tu cherches.
Sinon tu peux aussi travailler sur le recordset ADO. Je suppose que c'est là que tu as essayé sans succès la méthode Find. Peux-tu montrer ce que tu as fais et dire en quoi cela ne fonctionne pas?

Cordialement,

PGZ

[guigui1976]

Je suis flatté de ta réponse, mais je ne suis pas l'auteur de ce code.
Je désire copie la valeur cherche et les 2 cellules qui l'approche, pour les coller dans le fichier ou j'execute la macro.
ci joint le fichier