Discussion :

[guigui1976]

Bonjour, j'ai quelque chose que je ne comprends pas.
Sous Office 2010 nous ne sommes plus limité par le nbres de colonnes.
Alors pourquoi la Connexion ADO est-elle limité à 256 Colonnes ?
Pour info, j'arrive à importer 10 000 lignes
Si vous avez une idée.

Cordialement
Guillaume

Bonne journée.

Voici la macro

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
Sub un()
    Dim Source As ADODB.Connection
    Dim Rst As ADODB.Recordset
    Dim ADOCommand As ADODB.Command
    Dim Fichier As String
    Dim Cellule As String, Feuille As String
 
    'Adresse de la cellule contenant la donnée à récupérer
    Cellule = "I7:IDT9"
 
    Feuille = "feuille oxydation 2.0$" 'n'oubliez pas d'ajouter $ au nom de la feuille.
    'Chemin complet du classeur fermé
  Fichier = Range("b13").Value
 
    Set Source = New ADODB.Connection
    'Source.Open "Provider=Microsoft.Jet.OLEDB.4.0;" & _
        "Data Source=" & Fichier & ";Extended Properties=""Excel 8.0;HDR=No;"";"
    Source.Open "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" _
& Fichier & ";Extended Properties=""Excel 12.0;HDR=no;"""
 
    Set ADOCommand = New ADODB.Command
    With ADOCommand
        .ActiveConnection = Source
        .CommandText = "SELECT * FROM [" & Feuille & Cellule & "]"
    End With
 
    Set Rst = New ADODB.Recordset
    Rst.Open ADOCommand, , adOpenKeyset, adLockOptimistic
 
    Set Rst = Source.Execute("[" & Feuille & Cellule & "]")
    Sheets("feuil1").Range("b20").CopyFromRecordset Rst
 
    Rst.Close
    Source.Close
    Set Source = Nothing
    Set Rst = Nothing
    Set ADOCommand = Nothing
End Sub

[guigui1976]

Aprés plusieurs lecture de post sur divers sites.
Ma demande n'est pas possible.
Merci de m'avoir lu
Bonne journée