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 Salarié.rar
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 Salarié.rar
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 sql : Sélectionner tout - Visualiser dans une fenêtre à part
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 :
A+
Code : Sélectionner tout - Visualiser dans une fenêtre à part call docmd.TransferSpreadsheet(acExport, acSpreadsheetTypeExcel12Xml , "reqHIstoriqueSalaire", "x:\UnChemin\UnFichier.xlss")
Merci pour votre aide, mais l'exportation vers EXCEL sa marche pas.
Salarié1.rar
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+
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 : 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 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
BONJOUR,il m affiche rien![]()
Bonjour.
As-tu mis en oeuvre la solution suggérée par tee_grandbois ?
A+
Vous avez un bloqueur de publicités installé.
Le Club Developpez.com n'affiche que des publicités IT, discrètes et non intrusives.
Afin que nous puissions continuer à vous fournir gratuitement du contenu de qualité, merci de nous soutenir en désactivant votre bloqueur de publicités sur Developpez.com.
Partager