Bonjour à tous !

Je vous expose mon problème...

J'ai 2 fichiers excel.
Dans le fichier 1 je dois rappatrier des données du fichier 2.

Dans le fichier 2, je dois récupérer les informations dans un onglet spécifique...


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
39
40
41
42
43
44
45
46
47
48
49
50
Sub INITIALISATION(Nom_Feuil)
    'ouverture connexions
    'Connexion_Bases
 
    Dim OrdreConnection As String
 
    'ordre de connexion à la liste des ilots
    OrdreConnection = _
            "Provider= MicroSoft.Jet.OLEDB.4.0;" & _
            "Data Source= C:\Documents\" & Nom_Feuil & ".xls ;" & _
            "Extended Properties= Excel 8.0"
 
    'ouverture de la base technique
    Une_Connexion.ConnectionString = OrdreConnection
    Une_Connexion.Open
 
End Sub
 
Sub Lance_ADO(Nom_Feuil As String)
 
    INITIALISATION Nom_Feuil
 
    Dim OrdreSQL As String
    Dim i As Integer
 
    Dim MonRS As ADODB.Recordset
    Set MonRS = New ADODB.Recordset
 
    'la recherche de données
        'OrdreSQL = _
        "Select * from [" & Nom_Feuil & "$]"
        OrdreSQL = _
        "Select * from [BD$]"
 
 
    MonRS.Open OrdreSQL, Une_Connexion.ConnectionString, adOpenForwardOnly, adLockReadOnly, adCmdText
 
    'les noms de colonnes
    'For i = 0 To MonRS.Fields.Count - 1
    '    Feuil2.Range("A1").Offset(0, i).Value = MonRS.Fields(i).Name
    'Next
 
    'les résultats
    Feuil3.Range("A2").CopyFromRecordset MonRS
 
    'fermeture connexion
    'fermeture de la base technique
    Une_Connexion.Close
 
End Sub
ca ne marche pas...

qq1 pourrait m'aider.... merci beaucoup.

Firelord