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