Discussion :

[bagheria85]

J'ai quasiment le même problème que celui posé sur ce sujet :
http://www.developpez.net/forums/d96...-date-feuille/

mais avec des départements au lieu de dates. Le problème, c'est que ce n'est pas sur 2 feuilles d'un même classeur mais sur 2 feuilles de deux classeurs différents. La RechercheV fonctionne-t-elle aussi (je pense que non) ?

Cdt

[bagheria85]

Pour mes départements, où mettrais-tu la rechercheV? D'ailleurs, avec ce code, ne peut-il pas trouver avec le classeur fermé? J'ai aussi entendu parler d'equiv et d'index. Qu'en penses-tu?

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
38
Sub extractionValeurCelluleClasseurFerme()
    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
 
    'Adresse de la cellule contenant la donnée à récupérer
    Cellule = "N7:N101"
      'Pour une plage de cellules, utilisez:
      'Cellule = "A4:C10"
 
    Feuille = "Données de la carte$" 'n'oubliez pas d'ajouter $ au nom de la feuille.
    'Chemin complet du classeur fermé
    Fichier = ActiveWorkbook.Path & "\" & "mes.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 & "]")
 
    Worksheets("MARGES EXPLOIT 2010").Range("B3").CopyFromRecordset Rst
 
    Rst.Close
    Source.Close
    Set Source = Nothing
    Set Rst = Nothing
    Set ADOCommand = Nothing
End Sub