Discussion :

[Invité]

Bonjour Tout le monde,

J'ai créer une interface sous Access, qui permet de filtrer un tableau selon quelque critère saisi par l'utilisateur, puis y'aura un affichage de trois champs des résultats.

Donc maintenant je cherche à ajouter sur mon interface un Bouton qui permet à l'utilisateur d'enregistrer sous Excel son résultat trouver (c-à-d les trois champs).

J'ai essayé plusieurs procédure de réalisation de ce bouton mais malheureusement ça n'a pas marcher.

Merci de me proposé une solution et la procédure à suivre pour la réalisation de ce bouton (Enregistrer sous Excel)

[madefemere]

Bonsoir,

Intéressez-vous à la commande TransferSpreadSheet qui permet de transférer des feuilles de calcul d'Access ou vers Access.
Il vous faudrait CREER une requête ou une table représentant le résultat de votre filtre comme argument de TransfertSpreadSheet.

Cordialement,

[Invité]

******Bonjour, J'ai fait ce code pour mon bouton(Enregistrer), pour pouvoir transféré les données filtré depuis mon formulaire vers une feuil Excel mais ça ne fonctionne toujours pas ce bouton merci pour votre aide *******


Private Sub Commande38_Click()
Dim strSQL As String

Dim NomCapteur As String
Dim DateDebut As String
Dim DateFin As String

NomCapteur = Me.Texte16
DateDebut = Me.DateDebut
DateFin = Me.DateFin

strSQL = "SELECT dbo_DATA_LOG.timestamp, dbo_DATA_LOG.point_id, dbo_DATA_LOG._val" & _
" FROM dbo_DATA_LOG" & _
" WHERE " & _
" dbo_DATA_LOG.point_id=" & NomCapteur & " AND " & _
" dbo_DATA_LOG.timestamp Between " & DateDebut & " And " & DateFin & ";"

DoCmd.TransferSpreadsheet acExport,acSpreadsheetTypeExcel19,"Interface_des_donnees","C:\Documents and Settings\telgour\Bureau\Tablename\",".csv",False,,

End Sub


Voilà une image de mon interface avec mes bouton ci-joint:
Merci pour vos conseils vos suggestions
petit remarqueje ne suis pas un expert en VBA, mais j'essaye de me débrouiller comme je peu)

[madefemere]

Bonjour,

Comme je disais, il vous faut d'abord créer la table avant de la transférer.
Donc votre instruction SQL doit refléter une requête de création de table. Disons "TabExport", le code serait :

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
 
 
Private Sub Commande38_Click()
Dim strSQL As String
 
Dim NomCapteur As String
Dim DateDebut As String
Dim DateFin As String
 
NomCapteur = Me.Texte16
DateDebut = Me.DateDebut
DateFin = Me.DateFin
 
strSQL = "SELECT dbo_DATA_LOG.timestamp, dbo_DATA_LOG.point_id, dbo_DATA_LOG._val INTO TabExport" & _
" FROM dbo_DATA_LOG" & _
" WHERE " & _
" dbo_DATA_LOG.point_id=" & NomCapteur & " AND " & _
" dbo_DATA_LOG.timestamp Between " & DateDebut & " And " & DateFin & ";"
 
'Exécuter la requête action
Docmd.RunSQL strSQL
 
'Transférer la table TabExport qui vient d'être créée
DoCmd.TransferSpreadsheet acExport,acSpreadsheetTypeExcel19,"TabExport","C:\Documents and Settings\telgour\Bureau\Tablename\",".csv",False,,
 
End Sub

Cordialement,