Creer un fichier Excel depuis un form access
Fermé
Bonjour,
Je n'arrive pas à créer un fichier Excel avec uniquement les champs sélectionnés dans un formulaire Access. Plus précisément, dans mon formulaire, il y a des combox associées à des checkbox qui permettent de filtrer les données de la table, et je souhaiterais ensuite, cliquer sur un bouton dans le formulaire pour ressortir que les champs choisis dans un fichier Excel.
Pourriez-vous m'aider?
Merci.
Je n'arrive pas à créer un fichier Excel avec uniquement les champs sélectionnés dans un formulaire Access. Plus précisément, dans mon formulaire, il y a des combox associées à des checkbox qui permettent de filtrer les données de la table, et je souhaiterais ensuite, cliquer sur un bouton dans le formulaire pour ressortir que les champs choisis dans un fichier Excel.
Pourriez-vous m'aider?
Merci.
A voir également:
- Creer un fichier Excel depuis un form access
- Créer un compte google - Guide
- Comment réduire la taille d'un fichier - Guide
- Comment ouvrir un fichier epub ? - Guide
- Creer un fichier .bat - Guide
- Comment créer un groupe whatsapp - Guide
2 réponses
Voilà ce que j'ai essayé de faire, mais il apparait un message d'erreur disant "Impossible de trouver l'objet "Select ....""
Le problème doit donc probablement venir du fait que j'ai des combox...
Private Sub Commande70_Click()
On Error GoTo Err_Commande70_Click
Dim sql As String
sql = "SELECT champ1, champ2 FROM matable Where matable!champ1<> 0"
If Not Me.chkchamp1 Then
sql = sql & "AND matable!champ1 like '*" & Me.cmbRechchamp1 & "*' "
End If
If Not Me.chkchamp2 Then
sql = sql & "AND matable!champ2 like '*" & Me.cmbRechchamp2 & "*' "
End If
sql = sql & ";"
'on execute la requete
DoCmd.OpenQuery sql, acNormal
'on exporte vers le fichier
DoCmd.OutputTo acOutputQuery, sql, acFormatXLS, , True
Exit_Commande70_Click:
Exit Sub
Err_Commande70_Click:
MsgBox Err.Description
Resume Exit_Commande70_Click
End Sub
Est-ce que quelqu'un pourrait m'aider???
Merci beaucoup d'avance...
Le problème doit donc probablement venir du fait que j'ai des combox...
Private Sub Commande70_Click()
On Error GoTo Err_Commande70_Click
Dim sql As String
sql = "SELECT champ1, champ2 FROM matable Where matable!champ1<> 0"
If Not Me.chkchamp1 Then
sql = sql & "AND matable!champ1 like '*" & Me.cmbRechchamp1 & "*' "
End If
If Not Me.chkchamp2 Then
sql = sql & "AND matable!champ2 like '*" & Me.cmbRechchamp2 & "*' "
End If
sql = sql & ";"
'on execute la requete
DoCmd.OpenQuery sql, acNormal
'on exporte vers le fichier
DoCmd.OutputTo acOutputQuery, sql, acFormatXLS, , True
Exit_Commande70_Click:
Exit Sub
Err_Commande70_Click:
MsgBox Err.Description
Resume Exit_Commande70_Click
End Sub
Est-ce que quelqu'un pourrait m'aider???
Merci beaucoup d'avance...