Discussion :

[redstoff]

Bonjour,

j'ai réalisé une connexion à un fichier afin de récuperer des données.

j'utilise ce code lorsque je travail sur la feuille en question

Code :

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

1
2
3
4
5
For l = 1 To DerniereLigne
    For c = 1 To DerniereColone
        MonTableau(l, c) = Cells(l, c)
    Next c
Next l

je cherche donc a travailler sur une nouvelle feuille où MonTableau() sera un variable de cette derniere mais les valeurs cells() seront dans le document au bout de la connexion.

ma question est, quelle est la syntaxe que je dois utiliser pour que cela fonctionne?

[Michel_M]

Bonjour

voir ce tuto
http://silkyroad.developpez.com/VBA/ClasseursFermes/

[redstoff]

j'ai vu ce tutorial mais le soucis cest que je ne le comprend pas trop...

[Theze]

Bonjour,

Montre ton code afin qu'on puisse voir ce que tu veux faire et pour l'instant où tu en es.

Hervé.

[redstoff]

bonjour,
j'ai finalement joué la facilité.

je voulais a la base ne copier que certaine valeur dans une variable tableau, mais n'y arrivant pas quand je fais la connexion je copie toute la page sur nouveau fichier et apres copie les valeurs

mon code est

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
Sub Connection_V1()
    Dim Cn As ADODB.Connection
 
    Dim Fichier As String
 
    'Définit le classeur fermé servant de base de données
    Fichier = "S:\z Doc\z base documentaire\ER\SPRI\ANNEE EN COURS\ER 036 Archive des NC\ER 036 HB ARCHIVES NC.xls"
 
    Set Cn = New ADODB.Connection
 
    '--- Connexion ---
    With Cn
        .Provider = "Microsoft.Jet.OLEDB.4.0"
        .ConnectionString = "Data Source=" & Fichier & _
            ";Extended Properties=Excel 8.0;"
        .Open
    End With
 
    Dim NomFeuille As String
    NomFeuille = "liste des NC ligne"
    texte_SQL = "SELECT * FROM [" & NomFeuille & "$]"
 
    Set Rst = New ADODB.Recordset
    Set Rst = Cn.Execute(texte_SQL)
 
    Feuil1.Range("A2").CopyFromRecordset Rst
 
    Cn.Close
    Set Cn = Nothing
End Sub

mais j'accepte toutes les propositions pour réaliser mon idée à l'origine

[Sclarckone]

Pour récupérer seulement les données dont tu as besoin, il suffit d'écrire la requête SQL qui va bien.

Et pour tout mettre dans un tableau tu peux parcourir un à un les enregistrements de ton recordset et les stocker dans un tableau.