Bonjour
j'ai un classeur fermé dans lequel j'aimerai extraire des données contenues dans une colonne dont je ne connais pas l'adresse. j'aimerai donc pouvoir localiser cette colonne à partir de son entête et extraire donc les données. voici le code que j'ai écris

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
' Je me connecte au classeur 
Dim oCon As ADODB.Connection, oRst As ADODB.Recordset, oCmd As ADODB.Command, oCat As ADOX.Catalog, i As Integer
 
Dim Feuille As ADOX.Table
 
    Set oCon = New ADODB.Connection
    With oCon
        .Provider = "Microsoft.Jet.OLEDB.4.0"
        .ConnectionString = "Provider=Microsoft.ACE.OLEDB.12.0 ;Data Source=" & ChClasseur & _
             ";Extended Properties=""Excel 12.0;HDR=YES;"""
        .Open
    End With
    Set oCat = New ADOX.Catalog
    Set oCat.ActiveConnection = oCon
 
'J'essaie de déterminer de trouver la feuille dans laquelle se trouve mes données 
     For Each Feuille In oCat.Tables
        If Left(Feuille.Name, 6) = "hisinv" Then
             Set oRst = New ADODB.Recordset
             Set oRst = oCon.Execute("SELECT * FROM [" & Feuille.Name & "]")
 
'j'essaie ensuite de repérer la colonne des données à partir de l'entête
    For i = 0 To oRst.Fields.Count - 1
        If Rst.Fields(i).Name = "MONTANT3" Then 
 
             '#########C'est donc à ce niveau que je suis bloqué parce que je ne sais pas comment récupérer la colonne entière 
             ' A little help will be great!!!
    Next i
Merci d'avance