Bonjour a tous,

J'ai lu le tuto de silkyroad sur la manipulation de fichier Excel Fermé. Tout marche correctement j'arrive à accéder a mon fichier sans encombre mais j'ai un léger soucis.

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
    Sub RequeteClasseurFerme()
    Dim Cn As ADODB.Connection
    Dim Fichier As String
    Dim NomFeuille As String, texte_SQL As String
    Dim Rst As ADODB.Recordset
    
    'Définit le classeur fermé servant de base de données
    Fichier = "T:\Team\Robin\Excel Test\Emerging.xlsx"
    'Nom de la feuille dans le classeur fermé
    NomFeuille = "Name"
    
    Set Cn = New ADODB.Connection
    
    '--- Connection ---
    With Cn
        .Provider = "Microsoft.ACE.OLEDB.12.0"
        .ConnectionString = "Data Source=" & Fichier & _
            ";Extended Properties=Excel 8.0;"
        .Open
    End With
    '-----------------
    
    'Définit la requête.
    '/!\ Attention à ne pas oublier le symbole $ après le nom de la feuille.
    texte_SQL = "SELECT * FROM [" & NomFeuille & "$]"
    
    Set Rst = New ADODB.Recordset
    Set Rst = Cn.Execute(texte_SQL)
    
    '--- Boucle sur les entêtes pour récupérer les noms ---
    For i = 0 To Rst.Fields.Count - 1
        Cells(1, i + 1) = Rst.Fields(i).Name
    Next i
    
    'Ecrit le résultat de la requête dans la cellule A2
    'Range("A1").CopyFromRecordset Rst
    
    '--- Fermeture connexion ---
    Cn.Close
    Set Cn = Nothing

End Sub
Rst.Fields.Count me renvoie 255 alors que j'ai 4000 colonnes. Y a-t-il un maximum ?

Une autre petite question est il possible de connaitre le nombre de lignes pour une colonne donné ?

Merci a tous