Requête pour afficher l'historique

Version imprimable

18/03/2018, 19h14
pivoine1342

1 pièce(s) jointe(s)

Requête pour afficher l'historique

Bonsoir,je veux créer une requête qui m’affiche l'historique du salaire d'un salarié donné pendant les derniers 6 mois et l'exporter en excel.merci Pièce jointe 362053
18/03/2018, 19h26
marot_r
Bonjour.

Je n'ai pas regardé ta BD (pas la bonne version d'Access) ausis vais-je te faire un exemple de solution à adapter à ta réalité.

Si la date de référence n'est pas paramétrable.

reqHIstoriqueSalaire
Code:

1 2 select tblSalaire.* from tblSalaire where tblSalaire.dateSalaire between dateadd("m", -6, Date()) and Date()
Et après tu utilises l'export vers Excel :

Code:

call docmd.TransferSpreadsheet(acExport, acSpreadsheetTypeExcel12Xml , "reqHIstoriqueSalaire", "x:\UnChemin\UnFichier.xlss")

A+
29/03/2018, 12h06
pivoine1342

1 pièce(s) jointe(s)

Merci pour votre aide, mais l'exportation vers EXCEL sa marche pas.

Pièce jointe 365607
29/03/2018, 16h22
marot_r
Bonjour.

Et comment cela ne marche-t'il pas ?
- Tu n'as pas de résultats ?
- Tu as des résultats mais pas ceux attendus ? Qu'attendais-tu ? Qu'as-tu eu ?
- Tu as une erreur ? Laquelle ? Sur quelle ligne de code ?
- Tout à fait autre chose ? Quoi ?
A+
29/03/2018, 16h46
pivoine1342

3 pièce(s) jointe(s)

Pièce jointe 365723 Pièce jointe 365727 Pièce jointe 365719

Bonsoir,
tu utilises une requête qui contient un paramètre: [Formulaires]![Formulaire1]![Modifiable2]. Avec VBA, tu ne peux pas le récupérer même avec le formulaire ouvert. Il faut d'abord ouvrir la définition de la requête, ensuite passer le paramètre récupéré et enfin ouvrir le recordset :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
Dim oSheet As Object
Dim objRST As Recordset                             '<<========== 1 déclaration recordset
Dim oQdf As QueryDef                                '<<========== 2 déclaration querydef
strQueryName1 = "HISTO"
 
Set oExcel = CreateObject("Excel.Application")
Set oBook = oExcel.Workbooks.Open("D:\HISTO.XLSX")
Set oSheet = oBook.Worksheets(1)                    '<<========== 3 feuille nommée "1" ou feuille n°1 ???
Set oQdf = CurrentDb.QueryDefs(strQueryName1)       '<<========== 4 ouverture du querydef
oQdf.Parameters(0).Value = Me.Modifiable2           '<<========== 5 récupération paramètre de la liste de valeurs
Set objRST = oQdf.OpenRecordset                     '<<========== 6 ouverture du recordset lié au querydef
 
'Set objRST = Application.CurrentDb.OpenRecordset(strQueryName1) '<<========== 7 à supprimer
 
With oSheet
.Range("J18").CopyFromRecordset objRST
End With
 
oExcel.Visible = True
oExcel.Quit
Set oExcel = Nothing: Set oBook = Nothing: Set oSheet = Nothing: Set objRST = Nothing: Set oQdf = Nothing   '<<========== 8 destruction des instances
 
End Sub

30/03/2018, 17h45
pivoine1342

BONJOUR,il m affiche rien:piou:
31/03/2018, 17h08
marot_r

Bonjour.

As-tu mis en oeuvre la solution suggérée par tee_grandbois ?

A+