Discussion :

[Kutoh]

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

[kiki29]

Salut, tutoriel à lire.

[Daniel.C]

Bonjour,

Essaie de mettre :

Code :

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

Set oRst = oCon.Execute("SELECT MONTANT FROM [" & Feuille.Name & "]")

[Kutoh]

Bonjour #Daniel.C
quand j'écris le code suivant:

Code :

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

Set oRst = oCon.Execute("SELECT MONTANT3 FROM [" & Feuille.Name & "]")

j'obtient ce message d'erreur



j'ai l'impression que le code SQL ne considère pas MONTANT3 comme une colonne de la table "hisinv"

[Daniel.C]

Je suis arrivé à la limite de mes connaissances. J'ai fait un test et je récupère bien le champ recherché...

PS. J'utilise ce code :

Code :

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

1
2
3
4
5
6
7
8
9
10
Fichier = "C:\Users\Daniel\Documents\Donnees\Daniel\Excel\ADO\Volume.xlsx"
With Cnn
    .Provider = "Microsoft.Jet.OLEDB.4.0"
    .ConnectionString = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" _
            & Fichier & ";Extended Properties=""Excel 12.0;HDR=YES;"""
    .Open
End With
NomFeuille = "Volume"
texte_SQL = "SELECT Nombres FROM [" & NomFeuille & "$]"
rst.Open texte_SQL, Cnn, adOpenStatic

[AlainTech]

Bonjour,

Essaye avec un "$" après le nom de la feuille.

[Kutoh]

En fait quand j'exécute mon code pas à pas, je constate que le nom de la feuille contient déjà le "$".
y'en aura deux si je le rajoute

[AlainTech]

Bonjour,

Effectivement, feuille.Name contient bien le $.
Donc, ton problème ne vient pas de là.

Mais, à la lecture de ton message, je ne comprends pas bien où il se situe.

As-tu compris que le RecordSet te renvoie le premier record trouvé?

Pour les parcourir tous, il faudra faire une boucle While jusqu'à oRst.EOF et, à la fin du traitement de chaque record , un oRst.MoveNext.

[clementmarcotte]

Bonjour,

Personnellement, je me questionne sur ces deux lignes :

Code :

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

1
2
3
4
5
 
 
        .Provider = "Microsoft.Jet.OLEDB.4.0"
        .ConnectionString = "Provider=Microsoft.ACE.OLEDB.12.0 ;Data Source=" & ChClasseur & _
             ";Extended Properties=""Excel 12.0;HDR=YES;"""

Tu ne peux pas utiliser en même temps le moteur Jet et le moteur ACE. Tu dois donc prendre l'un ou l'autre.

Le moteur Jet est incompatible avec tout classeur Excel des versions Office 2007 et suivantes. Cela inclut également les fichiers Access.

Le moteur ACE a été conçu pour Office 2007 et suivants.

D'après ce que je sais, le moteur ACE est compatible avec les versions précédant 2007.