Discussion :

[Kutoh]

Bonjour, j'utilise la méthode ADO pour lire des plages de cellules.
Voici un bout de 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
    Dim oCon As ADODB.Connection, oRst As ADODB.Recordset, oCmd As ADODB.Command, Recup As String
 
 
    Recup = "B77:B96"
    Set oCon = New ADODB.Connection
    With oCon
        .Provider = "Microsoft.Jet.OLEDB.4.0"
        .ConnectionString = "Provider=Microsoft.ACE.OLEDB.12.0 ;Data Source=" & FichierChoisiPanier & _
             ";Extended Properties=""Excel 12.0;HDR=YES;"""
        .Open
    End With
    FeuilPanier = FeuilPanier & "$"
    Set oCmd = New ADODB.Command
    With oCmd
        .ActiveConnection = oCon
        .CommandText = "SELECT * FROM [" & FeuilPanier & Recup & "]"
    End With
 
    Set oRst = New ADODB.Recordset
    oRst.Open oCmd, , adOpenKeyset, adLockOptimistic
    Set oRst = oCon.Execute("[" & FeuilPanier & Recup & "]")
 
       Workbooks("TP8.xlsm").Sheets(NomFeuil).Range("C10").CopyFromRecordset oRst

le soucis c'est que je voudrais également lire les plages

Code :

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

1
2
3
4
 
Range("D6").Value
Range("B5").Value
Range("B6:B9").Value:

sans à chaque fois redéfinir la ligne suivante

Code :

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

1
2
    Set oCmd = New ADODB.Command
    Set oRst = New ADODB.Recordset

En gros je voudrais savoir s'il est possible de raccourcir le code.

Une Idée?
Merci d'avance.

[Daniel.C]

Bonjour,

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
    Dim oCon As ADODB.Connection, oRst As ADODB.Recordset, oCmd As ADODB.Command, Recup As String
    Dim Plages, C
    Plages = Array("B77:B96", "D6", "B5", "B6:B9")
 
    Set oCon = New ADODB.Connection
    With oCon
        .Provider = "Microsoft.Jet.OLEDB.4.0"
        .ConnectionString = "Provider=Microsoft.ACE.OLEDB.12.0 ;Data Source=" & FichierChoisiPanier & _
             ";Extended Properties=""Excel 12.0;HDR=YES;"""
        .Open
    End With
    FeuilPanier = FeuilPanier & "$"
    Set oCmd = New ADODB.Command
    For Each C In Plages
       Recup = C
       With oCmd
           .ActiveConnection = oCon
           .CommandText = "SELECT * FROM [" & FeuilPanier & Recup & "]"
       End With
 
       Set oRst = New ADODB.Recordset
       oRst.Open oCmd, , adOpenKeyset, adLockOptimistic
       Set oRst = oCon.Execute("[" & FeuilPanier & Recup & "]")
 
          Workbooks("TP8.xlsm").Sheets(NomFeuil).Range("C10").CopyFromRecordset oRst
    Next C

Non testé, mais ça devrait presque le faire; il reste à modifier la ligne :

Code :

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

Workbooks("TP8.xlsm").Sheets(NomFeuil).Range("C10").CopyFromRecordset oRst

Ca dépend comment tu veux copier les plages de données, si tu as quelque chose dans la cellule C9...

[Kutoh]

Effectivement c'est cette ligne qui cause problème, parce que je voudrais coller ces données dans différentes plages. Je peux par exemple mettre un compteur et poser une condition.

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
 
 
Plages = Array("B77:B96", "D6", "B5", "B6:B9")
Dim n As Integer
n=0
For Each C In Plages
       Recup = C : n = n + 1
       With oCmd
           .ActiveConnection = oCon
           .CommandText = "SELECT * FROM [" & FeuilPanier & Recup & "]"
       End With
 
       Set oRst = New ADODB.Recordset
       oRst.Open oCmd, , adOpenKeyset, adLockOptimistic
       Set oRst = oCon.Execute("[" & FeuilPanier & Recup & "]")
 If n = 1 Then    Workbooks("TP8.xlsm").Sheets(NomFeuil).Range("C10").CopyFromRecordset    oRst
If n = 2 Then Workbooks("TP8.xlsm").Sheets(NomFeuil).Range("F10").CopyFromRecordset    oRst
.
.
.
    Next C

Ou tu trouves qu'il y'a une autre solution?

Avec la condition et le compteur j'ai ce que je veux. C'est déjà moins long que ce que j'ai préalablement écris.
Merci

[Daniel.C]

Tu peux aussi tester la valeur de "C" (qui contient l'adresse de la plage cherchée).

[Kutoh]

ca marche! ca me permet d'avoir moins de variables, et c'est aussi plus sur.
Merci