Manipulation De fichier Excel Fermé

Version imprimable

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:

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

20/07/2018, 16h12
Menhir

Citation:

Envoyé par rampage92

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

Tu passes par une méthode qui considère le fichier Excel comme une base de données.
Il n'y a donc pas de "colonnes/lignes" mais des "champs/enregistrements".
Pour une base de données, toutes les "colonnes" ont la même taille puisqu'un nouvel enregistrement concerne tous les champs de la base.
20/07/2018, 17h15
Invité

Bonsoir,
Tu utilises le bon drever mais pas la bonne extension.

Un fichier excel 8 (xls et pas xlsx) ne peut pas dépasser 255 colonne !

https://www.developpez.net/forums/d1.../#post10372486
20/07/2018, 17h32
rampage92

Merci pour votre aide. Cependant je n'ai pas bien compris... Est donc possible de resoudre mon probleme sachant que j'ai plus de 4000 colonnes dans mon fichier ?
20/07/2018, 17h37
Invité

Click sur le lien.

j'ai cliqué sur le lien. j'ai essayé de modifier mon code de la maniere suivante :

Code:

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 12.0;HDR=YES;"""
        .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

Après cette modification je n'ai toujours que 255 colonnes. Y a-t-il quelque chose que j'ai omis de regarder dans le lien ? Est possible de travailler avec 4000 colonnes ?

MErci

23/07/2018, 09h24
Menhir

Citation:

Envoyé par rampage92

Est possible de travailler avec 4000 colonnes ?

Oui : en ouvrant le fichier de façon classique avec un Open.
23/07/2018, 09h58
rampage92

Merci a vous deux explications très claires
23/07/2018, 14h44
Invité

Bonjour,
oui je confirme 255 colonne, désolé je n'avais jamais été confronté au problème!

je ne l'imaginais pas !:oops:

en plus je suis en 365 pro 64!