Discussion :

[4k1r4]

Bonjour à tous,

Depuis quelques heures je me penche sur les connections que l'on peut faire avec les classeurs Excel et/ou Access fermés. J'ai bien entendu lu et fait à la lettre le tuto suivant http://silkyroad.developpez.com/VBA/ClasseursFermes/.

Néanmoins je reste toujours sans réponse à une question :
Est-il possible de copier dans un vecteur les données extraites ? ou doit on forcément les coller dans une feuille ? (Range().CopyFromRecordset)

Pour mon cas je dois :
- chercher une certaine colonne dans un classeur Excel fermé répondant à un critère. Je cherche par exemple la colonne ayant pour entête "a" parmi toutes les colonnes existantes, en prenant le soin de vous préciser que l'entête de la colonne n'est pas à la première ligne ;
- copier toute les valeurs de la dite colonne dans un vecteur ;
- réutiliser ce vecteur "plus tard".

Avez-vous une idée ?

Merci d'avance.

Bonnes fêtes à tout le monde !

[Mr Poulpe]

Bonjour,

Je dirais un truc du style :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Dim Arr() As Variant
Dim i As Integer
Dim rst As ADODB.Recordset
 
i = 0
While Not rst.EOF
    ReDim Preserve Arr(UBound(Arr) + 1)
    Arr(i) = rst.Fields(0)
    rst.movenext
    i = i + 1
Wend

Pas vraiment testé mais ça donne l'idée

[Invité]

Bonsoir,

Code :

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

sql="select Champs1,Champ2 from [feuille1$A2:F129] where Champ1='toto'"

Tu sélectionne les champs que tu veux récupérer, sur la feuille et la plage qui t'intéresses, filtré (where) sur les valeurs du champ que tu veux.

Tu peux même trier et/ou supprimer le doublons.

[4k1r4]

Bonjour,

Je dirais un truc du style :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Dim Arr() As Variant
Dim i As Integer
Dim rst As ADODB.Recordset
 
i = 0
While Not rst.EOF
    ReDim Preserve Arr(UBound(Arr) + 1)
    Arr(i) = rst.Fields(0)
    rst.movenext
    i = i + 1
Wend

Pas vraiment testé mais ça donne l'idée

Merci pour le code c'est ça marche pas. Je montre mon code

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
43
44
45
46
47
48
49
50
 
Sub extractionValeurCelluleClasseurFerme()
    Dim Source As ADODB.Connection
    Dim Rst As ADODB.Recordset
    Dim ADOCommand As ADODB.Command
    Dim Fichier As String, Cellule As String, Feuille As String
 
 
    Cellule = "A1:A10"
 
    Feuille = "Feuil1$"
 
    Fichier = "P:\test.xlsm"
 
    Set Source = New ADODB.Connection
 
    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 & "]")
 
    Range("A1").CopyFromRecordset Rst
 
 
        Dim Arr() As Variant
        Dim i As Integer
        ReDim Arr(0)
 
        i = 0
        While Not Rst.EOF
            ReDim Preserve Arr(UBound(Arr) + 1)
            Arr(i) = Rst.Fields(1)
            Rst.MoveNext
            i = i + 1
        Wend
 
    Rst.Close
    Source.Close
    Set Source = Nothing
    Set Rst = Nothing
    Set ADOCommand = Nothing
End Sub

En gros ce que je souhaite c'est juste copier cette colonne là dans un vecteur :


Avec ton code je ne comprend pas pourquoi Rst.EOF = True. Donc il ne rentre pas dans la boucle.

J'ai réussi une fois à rentrer dans la boucle mais ça mettait "vide" pour chaque valeur.

Et puis aussi, je pense que ton idée est la meilleure, je ne pense pas que ta solution marche avec un début de colonne (une entête quoi) ne se trouvant pas sur la ligne 1.

Je continue de chercher je te tiens au jus :p


@rdurupt

En fait ce que j'aimerais savoir c'est comment faire pour stocker le résultat de ta requête sql (string) dans une variable.



EDIT :

En fait il faut supprimer la ligne de code où je copie dans Range("A1").
Là ça marche.

En revanche pour ce qui est de l'entête qui n'est pas la ligne 1 je cherche :/

Y a sans doute une option offset dans tout le bazar.

EDIT2 :

Ça y est j'ai trouvé.

Code :

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

Rst.Fields("nom_de_l'entete")

avec le header = YES

Code :

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

1
2
3
 Source.Open "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" _
            & Fichier & ";Extended Properties=""Excel 12.0;HDR=YES;"""

Nikel merci pour votre aide les gars (ou filles).



Bonnes fêtes à tous.