Discussion :

[facteur]

Bonjour,
Au mois de juin 2016, Avec l'aide immense de rdurupt,
J'ai mis au point un code qui permet d'afficher le resultat d'une requete Access dans une feuille Excel
Ci dessous le 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
 
.....
Sql = "SELECT  * FROM MyRequete" ' je détremine une requête sql qui pointe sur ta requête Acces.
 
Dim Cm As object 'Pour utiliser une requête parametrés il faut utiliser l'oblet Command!
Dim cn As  as object 'Pour ce connecter à un base de données Access il faut utiliser l'objet Connection!
set Cn=createObject("ADODB.Connection")
set Cm=createobject("Adodb.Command")
 
 GenereCSTRING = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\Users\rdurupt\Documents\Données1.accdb;" 'Je defini un chêne de texte qui contient les information de ma connection.
 cn.Open GenereCSTRING 'J'ouvre ma connection.
 Cm.CommandText = Sql 'je passe ma requête à mon objet command
Cm.ActiveConnection = cn 'j'affecte ma connection à ma commande
 
Const adDate = 7
 
'c'est avec l'objet Parameter que je vais renseinger les parmetres de ma requête Access.
 
'Cellule où est stokcé la date cdate(format(ThisWorkbook.Sheets("MaFeuilleConfig").range("A1").value,"yyyy-mm-dd")) 
 
set Debut=createobject("ADODB.Parameter")
Debut.Name = "debut" : Debut.Type = adDate: Debut.Value =cdate(format(ThisWorkbook.Sheets("MaFeuilleConfig").range("A1").value,"yyyy-mm-dd")) : Cm.Parameters.Append Debut
 
set Fin=createobject("ADODB.Parameter") 'c'est avec l'objet Parameter que je vais resenger les parmetres de ma requête Access.
 Fin.Name = "Fin" : Fin.Type = adDate: Fin.Value =cdate(format(ThisWorkbook.Sheets("MaFeuilleConfig").range("B1").value,"yyyy-mm-dd")) : Cm.Parameters.Append Fin
 
 
set rs=cm.execute 'on recupere le résultat de la requête.
 with ThisWorkbook.Sheets("MaFeuilleResultat")
     for i=0 to rs.Fields.count-1 'On place le nom des champs sur la ligne 1 de ma feuille Excel
               .range("C1").Offset(0,i)=rs(i).name
     next 
       .range("C2").CopyFromRecordset rs 'la on copie le résultat de la requête!
 
end With

Le code fonnctionne trés bien .
Mais j'aimerais le compléter en copier le resultat de la requete à partir de plusieurs cellule d'une même feuille Excel

J'ai donc crée deux lignes à la suite de la ligne 32 ( ligne 10 et 11 sur le code ci dessous)

Si les noms s'affichent bien sur la ligne 1 , le resultat par contre s'affiche uniquement à partir de la cellule C1
Je n'aie pas de donnée qui s'affiche en L2 et ni en U2

Code :

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

1
2
3
4
5
6
7
8
9
10
11
.....
with ThisWorkbook.Sheets("MaFeuilleResultat")
     for i=0 to rs.Fields.count-1 'On place le nom des champs sur la ligne 1 de ma feuille Excel
               .range("C1").Offset(0,i)=rs(i).name
               .range("L1").Offset(0,i)=rs(i).name
               .range("U1").Offset(0,i)=rs(i).name

     next 
       .range("C2").CopyFromRecordset rs 'la on copie le résultat de la requête!
       .range("L2").CopyFromRecordset rs 'la on copie le résultat de la requête!
       .range("U2").CopyFromRecordset rs 'la on copie le résultat de la requête!

merci de votre aide

[Jean-Philippe André]

Salut,

une fois le CopyFromRecordset execute, le RS est arrive a EOF, donc tu dois le "remettre a zero" avec un RS.MoveFirst

[facteur]

Bonjour JpCheck

Lorsque tu dis

ne fois le CopyFromRecordset execute, le RS est arrive a EOF, donc tu dois le "remettre a zero" avec un RS.MoveFirst

J'ai donc bêtement ecris ce code
.

Code :

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

1
2
3
4
5
....
next 
       .range("C2").CopyFromRecordset rs
       .range("L2").CopyFromRecordset rs.MoveFirst 
       .range("U2").CopyFromRecordset rs.MoveFirst

mais j'ai un message d'erreur :

erreur d'execution 13
incompatibilité de type

[Jean-Philippe André]

Presque

Code :

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

1
2
3
4
5
.range("C2").CopyFromRecordset RS
rs.MoveFirst
.range("L2").CopyFromRecordset RS 
rs.MoveFirst
.range("U2").CopyFromRecordset rs

[facteur]

j'ai fais ceci

Code :

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

1
2
3
4
5
6
7
8
.range("C2").CopyFromRecordset RS
if not rs.BOF then rs.MoveFirst
 
.range("L2").CopyFromRecordset RS 
if not rs.BOF then rs.MoveFirst
 
 
.range("U2").CopyFromRecordset rs

[facteur]

jpcheck

J'en profite pour te soulever un autre problème

Sur la même feuille Excel, mais sur des cellules différentes, je réutilise la requête avec des date debut et fin différentes
Actuellement, j'ai crée 3 procédures avec le même code et j'ai changé simplement les cellules qui correspondent à la date début et fin
L 20 et 23;

N'y aurait il pas moyen de garder une seule procédure et de pouvoir affecter sur ce code une autre date debut et fin sur une autre cellule de la même feuille Excel

Exemple :
exécuter la requete en M2 avec une date debut qui correspond à la cellule A2 et une date fin qui corrrespond à la cellule B2
ensuite
réexecuter la même requête en N2 avec avec une date debut qui correspond à la cellule C2 et une date fin qui corrrespond à la cellule D2
en enfin
éxécuter une derniere fois la même requete en O2 avec avec une date debut qui correspond à la cellule E2 et une date fin qui corrrespond à la cellule F2

Je ne sais pas si j'étais claire..
Merci d'avance

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
Sql = "SELECT  * FROM MyRequete" ' je détremine une requête sql qui pointe sur ta requête Acces.
 
Dim Cm As object 'Pour utiliser une requête parametrés il faut utiliser l'oblet Command!
Dim cn As  as object 'Pour ce connecter à un base de données Access il faut utiliser l'objet Connection!
set Cn=createObject("ADODB.Connection")
set Cm=createobject("Adodb.Command")
 
 GenereCSTRING = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\Users\rdurupt\Documents\Données1.accdb;" 'Je defini un chêne de texte qui contient les information de ma connection.
 cn.Open GenereCSTRING 'J'ouvre ma connection.
 Cm.CommandText = Sql 'je passe ma requête à mon objet command
Cm.ActiveConnection = cn 'j'affecte ma connection à ma commande
 
Const adDate = 7
 
'c'est avec l'objet Parameter que je vais renseinger les parmetres de ma requête Access.
 
'Cellule où est stokcé la date cdate(format(ThisWorkbook.Sheets("MaFeuilleConfig").range("A1").value,"yyyy-mm-dd")) 
 
set Debut=createobject("ADODB.Parameter")
Debut.Name = "debut" : Debut.Type = adDate: Debut.Value =cdate(format(ThisWorkbook.Sheets("MaFeuilleConfig").range("A1").value,"yyyy-mm-dd")) : Cm.Parameters.Append Debut
 
set Fin=createobject("ADODB.Parameter") 'c'est avec l'objet Parameter que je vais resenger les parmetres de ma requête Access.
 Fin.Name = "Fin" : Fin.Type = adDate: Fin.Value =cdate(format(ThisWorkbook.Sheets("MaFeuilleConfig").range("B1").value,"yyyy-mm-dd")) : Cm.Parameters.Append Fin
 
 
set rs=cm.execute 'on recupere le résultat de la requête.
 with ThisWorkbook.Sheets("MaFeuilleResultat")
     for i=0 to rs.Fields.count-1 'On place le nom des champs sur la ligne 1 de ma feuille Excel
               .range("C1").Offset(0,i)=rs(i).name
     next 
       .range("C2").CopyFromRecordset rs 'la on copie le résultat de la requête!
 
end With

[Invité]

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
With ThisWorkbook.Sheets("MaFeuilleResultat")
    .Range("C1").Offset(0, 0) = rs(0).Name
    .Range("C1").Offset(0, 1) = rs(1).Name
    .Range("C1").Offset(0, 2) = rs(2).Name
    Dim L As Integer
    While rs.EOF = False
        .Range("C1").Offset(L, 0) = rs(0).Value
        .Range("C1").Offset(L, 1) = rs(1).Value
        .Range("C1").Offset(L, 2) = rs(2).Value
        L=L+1
        rs.movenext
    Wend

[Invité]

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
Sub a()
With ThisWorkbook.Sheets("MaFeuilleResultat")
    .Range("C1")= rs(0).Name
    .Range("L1") = rs(1).Name
    .Range("U1") = rs(2).Name
    Dim L As Integer
    While rs.EOF = False
        .Range("C1").Offset(L, 0) = rs(0).Value
        .Range("L1").Offset(L, 0) = rs(1).Value
        .Range("U1").Offset(L, 0) = rs(2).Value
        L = L + 1
        rs.movenext
    Wend
End With
End Sub

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
Function RetournRs(DDebut As String, DFin As String) As Object
Dim Sql As String
Sql = "SELECT  * FROM MyRequete" ' je détremine une requête sql qui pointe sur ta requête Acces.
 
Dim Cm As Object 'Pour utiliser une requête parametrés il faut utiliser l'oblet Command!
Set cn = CreateObject("ADODB.Connection")
Set Cm = CreateObject("Adodb.Command")
 
 GenereCSTRING = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\Users\rdurupt\Documents\Données1.accdb;" 'Je defini un chêne de texte qui contient les information de ma connection.
 cn.Open GenereCSTRING 'J'ouvre ma connection.
 Cm.CommandText = Sql 'je passe ma requête à mon objet command
Cm.ActiveConnection = cn 'j'affecte ma connection à ma commande
 
Const adDate = 7
 
'c'est avec l'objet Parameter que je vais renseinger les parmetres de ma requête Access.
 
'Cellule où est stokcé la date cdate(format(ThisWorkbook.Sheets("MaFeuilleConfig").range("A1").value,"yyyy-mm-dd"))
 
Set Debut = CreateObject("ADODB.Parameter")
Debut.Name = "debut": Debut.Type = adDate: Debut.Value = CDate(Format(DDebut, "yyyy-mm-dd")): Cm.Parameters.Append Debut
Set Fin = CreateObject("ADODB.Parameter") 'c'est avec l'objet Parameter que je vais resenger les parmetres de ma requête Access.
 Fin.Name = "Fin": Fin.Type = adDate: Fin.Value = CDate(Format(DFin, "yyyy-mm-dd")): Cm.Parameters.Append Fin
Set RetournRs = Cm.Execute 'on recupere le résultat de la requête.
End Function
Sub test()
Set rs = RetournRs(ThisWorkbook.Sheets("MaFeuilleConfig").Range("A1").Value, ThisWorkbook.Sheets("MaFeuilleConfig").Range("B1").Value) 'on recupere le résultat de la requête.
With ThisWorkbook.Sheets("MaFeuilleResultat")
    .Range("C1") = rs(0).Name
    .Range("L1") = rs(1).Name
    .Range("U1") = rs(2).Name
    Dim L As Integer
    While rs.EOF = False
        .Range("C1").Offset(L, 0) = rs(0).Value
        .Range("L1").Offset(L, 0) = rs(1).Value
        .Range("U1").Offset(L, 0) = rs(2).Value
        L = L + 1
        rs.movenext
    Wend
End With
End Sub

[facteur]

Bonjour rdurupt
Merci pour ces réponses
Les 3 codes que tu m' envoyé correspondent à la question sur l'affichage du resultat d'une même requete access sur plusieurs cellules d'une feuille Excel , c'est bien cela ?

Pourrais tu m'aider pour ma dernière problématique concernant l'affichage du resultat d'une même requête sur plusieurs cellules d'une feuille Excel mais avec des dates debut et fin differentes ( cf.question ci dessous)

[Invité]

Bonjour,

Pourrais tu m'aider pour ma dernière problématique concernant ... mais avec des dates debut et fin differentes ( cf.question ci dessous)

La fonction RetournRs du poste précédant te permet de définir le date que tu veux il suffit de lui en donner d'autres!

Ceci dit tu peux fournir à la sub principale un paramètres qui lié à un select case pour modifier le comportement du programme.

Mais si tu le veux bien réglons un problème à la fois!

Les 3 codes que tu m' envoyé correspondent à la question sur l'affichage du resultat d'une même requete access sur plusieurs cellules d'une feuille Excel , c'est bien cela ?

Je ne suis pas sur d'avoir bien répondu car tous les codes publiés par mes collègues proposent de copier 3 fois le même valeurs et peut-être suis-je à côté de la plaque!

Maintenant Si il s'agit d'afficher 3 fois la même requête mais à trois plage de date différentes alors ce serait plus un mixte de la version de la discussion précédente et mon dernier poste!

[facteur]

rdurupt
je vais adapter la fonction "RetournRs" à ma requête et je reviens vers toi si je bloque de nouveau
Merci encore de ton aide

[Invité]

En soit la fonction RetournRs permet déjà de retourner la requête sur des date différentes, elle n'a pas besoin de modifications elle s'adapte à différentes plage de date.

C'est la sub principale qu'il faut adapter. A savoir [C1],[L1],[U1] ont des plages de date différentes.

[facteur]

rdurupt
Je essayé d'adapter ton code mais en vain.
Afin de ne pas se disperser, je reformule ma demande


Sur la même feuille Excel, mais sur des cellules différentes, je réutilise 3 fois une même requête avec des date debut et fin différentes pour chaque requetes.
Actuellement, j'ai crée 3 procédures avec le même code et j'ai changé simplement les cellules qui correspondent à la date début et fin


N'y aurait il pas moyen de garder une seule procédure et de pouvoir affecter sur ce code une autre date debut et fin

Exemple :
exécuter la requete en M2 avec une date debut qui correspond à la cellule A2 et une date fin qui corrrespond à la cellule B2
ensuite
réexecuter la même requête en N2 avec avec une date debut qui correspond à la cellule C2 et une date fin qui corrrespond à la cellule D2
en enfin
éxécuter une derniere fois la même requete en O2 avec avec une date debut qui correspond à la cellule E2 et une date fin qui corrrespond à la cellule F2



Si je reprend ton code ci dessous, là on je ne comprend pas, c'est
- Ou est la ligne de code qui execute la même requete avec un nouvelle date debut et fin
- A quoi correspond la variable L


Ton code ci dessous :

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
Function RetournRs(DDebut As String, DFin As String) As Object
Dim Sql As String
Sql = "SELECT  * FROM MyRequete" ' je détremine une requête sql qui pointe sur ta requête Acces.
 
Dim Cm As Object 'Pour utiliser une requête parametrés il faut utiliser l'oblet Command!
Set cn = CreateObject("ADODB.Connection")
Set Cm = CreateObject("Adodb.Command")
 
 GenereCSTRING = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\Users\rdurupt\Documents\Données1.accdb;" 'Je defini un chêne de texte qui contient les information de ma connection.
 cn.Open GenereCSTRING 'J'ouvre ma connection.
 Cm.CommandText = Sql 'je passe ma requête à mon objet command
Cm.ActiveConnection = cn 'j'affecte ma connection à ma commande
 
Const adDate = 7
 
'c'est avec l'objet Parameter que je vais renseinger les parmetres de ma requête Access.
 
'Cellule où est stokcé la date cdate(format(ThisWorkbook.Sheets("MaFeuilleConfig").range("A1").value,"yyyy-mm-dd"))
 
Set Debut = CreateObject("ADODB.Parameter")
Debut.Name = "debut": Debut.Type = adDate: Debut.Value = CDate(Format(DDebut, "yyyy-mm-dd")): Cm.Parameters.Append Debut
Set Fin = CreateObject("ADODB.Parameter") 'c'est avec l'objet Parameter que je vais resenger les parmetres de ma requête Access.
 Fin.Name = "Fin": Fin.Type = adDate: Fin.Value = CDate(Format(DFin, "yyyy-mm-dd")): Cm.Parameters.Append Fin
Set RetournRs = Cm.Execute 'on recupere le résultat de la requête.
End Function
Sub test()
Set rs = RetournRs(ThisWorkbook.Sheets("MaFeuilleConfig").Range("A1").Value, ThisWorkbook.Sheets("MaFeuilleConfig").Range("B1").Value) 'on recupere le résultat de la requête.
With ThisWorkbook.Sheets("MaFeuilleResultat")
    .Range("C1") = rs(0).Name
    .Range("L1") = rs(1).Name
    .Range("U1") = rs(2).Name
    Dim L As Integer
    While rs.EOF = False
        .Range("C1").Offset(L, 0) = rs(0).Value
        .Range("L1").Offset(L, 0) = rs(1).Value
        .Range("U1").Offset(L, 0) = rs(2).Value
        L = L + 1
        rs.movenext
    Wend
End With
End Sub

[Invité]

Descartes disait qu'un problème complexe, n'était que la somme de problème simple!

Machiavel lui diviser pour mieux régner!

Comme j'ai l'ego (pas la brique en plastique) sur dimensionné, j'ai la prétention d'être plus compétant que ces barbus d'un autre age!
donc c'est ce que nous allons faire!

nous allons distinguer 3 niveau (Comme des briques de Lego justement), ce qui ce passe au niveau du classeur, ce qu ce passe au niveau des tableaux ([C1],[L1],[U1]) et ce qui ce passe au niveau des requêtes.

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
51
52
Sub TEST()
'Dans la sub principale, nous allons gérer les informations au niveau du classeur ;
'La connexion à la base de données ainsi que le passage des plages de date à la méthode
'qui génère le tableau !
Dim Cn as Object
Set Cn = CreateObject("ADODB.Connection")
GenereCSTRING = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\Users\rdurupt\Documents\Données1.accdb;" 'Je defini un chêne de texte qui contient les information de ma connection.
 Cn.Open GenereCSTRING 'J'ouvre ma connection.
EnrichiTableau "01/01/2014", "31/12/2014", Cn, ThisWorkbook.Sheets("MaFeuilleResultat").Range("C1")
EnrichiTableau "01/01/2015", "31/12/2015", Cn, ThisWorkbook.Sheets("MaFeuilleResultat").Range("L1")
EnrichiTableau "01/01/2016", "31/12/2016", Cn, ThisWorkbook.Sheets("MaFeuilleResultat").Range("U1")
Cn.Close: Set Cn = Nothing
End Sub
Sub EnrichiTableau(DDebut As String, DFin As String, Cn As Object, Cellule As Range)
'Ici on va gérer la création du tableau, sens nous soucier de sa position !
'Comme dans la version initiale sauf ;
'Que nous travaillerons en position relative à la cellule passée en paramètre !
Dim Rs As Object, L As Integer
Set Rs = RetournRs(DDebut, DFin, Cn) 'on recupere le résultat de la requête.
If Rs.EOF = False Then
    Cellule = "Date début": Cellule.Offset(0, 1) = Format(DDebut, "YYYY-MM-DD")
    Cellule.Offset(0, 2) = "Date fin": Cellule.Offset(0, 3) = Format(DFin, "YYYY-MM-DD")
    L = L + 1
     For I = 0 To Rs.Fields.Count - 1 'On place le nom des champs sur la ligne 1 de ma feuille Excel
              Cellule.Offset(L, I) = Rs(I).Name
     Next
     L = L + 1
       Cellule.Offset(L).CopyFromRecordset Rs 'la on copie le résultat de la requête!
End If
End Sub
Function RetournRs(DDebut As String, DFin As String, Cn As Object) As Object
'Ici nous retrouvons notre requête initiale à la différence quelle
'est maintenant autonome encapsulé dans une fonction qui lui donne en paramètre
'la plage de date considéré  et retourne le résultat de la requête !
Dim Sql As String
Dim Cm As Object 'Pour utiliser une requête parametrés il faut utiliser l'oblet Command!
Set Cm = CreateObject("Adodb.Command")
Cm.CommandText = Sql 'je passe ma requête à mon objet command
Cm.ActiveConnection = Cn 'j'affecte ma connection à ma commande
 
Const adDate = 7
 
'c'est avec l'objet Parameter que je vais renseinger les parmetres de ma requête Access.
 
'Cellule où est stokcé la date cdate(format(ThisWorkbook.Sheets("MaFeuilleConfig").range("A1").value,"yyyy-mm-dd"))
 
Set Debut = CreateObject("ADODB.Parameter")
Debut.Name = "debut": Debut.Type = adDate: Debut.Value = CDate(Format(DDebut, "yyyy-mm-dd")): Cm.Parameters.Append Debut
Set Fin = CreateObject("ADODB.Parameter") 'c'est avec l'objet Parameter que je vais resenger les parmetres de ma requête Access.
 Fin.Name = "Fin": Fin.Type = adDate: Fin.Value = CDate(Format(DFin, "yyyy-mm-dd")): Cm.Parameters.Append Fin
Set RetournRs = Cm.Execute 'on recupere le résultat de la requête.
End Function