Discussion :

[sellig60]

Bonjour
Je voudrais pouvoir exporter depuis un formulaire access , l'enregistrement courant.
J'ai essayé avec:

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
 
Private Sub cmd_transfert_excel_Click()
Dim requete As String
Dim nom_fich As String
 
  ' Construction de la requête
 
requete = "Select * From rqt_pps Where [21-N° MDPH]= " & "'" & Me.[21-N° MDPH] & "'"
 
 ' Construction du nom du fichier d'exportation
nom_fich = "'" & Me.[1-NOM DE L'ENFANT:] & "_" & Me.[2-Prénom] & "_" & Me.[21-N° MDPH] & "_origine_" & Me.[NOM_REFERENT] & ".xls'"
 
    DoCmd.OutputTo acOutputQuery, requete, acFormatXLS, nom_fich
 
End Sub

La construction de requete et de fic_nom marche correctement.

J'ai fini par comprendre que mon sql n'étant pas un objet requête, cela ne pouvait pas fonctionner.
Comment dois-je faire? ADO? DAO?
je ne sais pas comment faire.
Merci d'avance pour votre aide.
Sellig60

[Gabout]

Bonjour,

Je ne comprends pas ce que tu cherches... qu'est ce qui ne fonctionne pas (ou mal) ? Ta méthode semble correcte... sauf peut être le nom de ton champ avec les - et un espace. Mais ce n'est pas cela qui doit coincer...

[fold85]

Il faut créer un objet QueryDef et l'exporter à partir de son nom:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
 
Dim qry As QueryDef
 
   Set qry = CurrentDb.CreateQueryDef("haha", requete)

[sellig60]

Merci pour vos réponses.
Pour répondre à Gabout:
Mon code produit l'erreur n°2437 et le message suivant:
"L'action ou la méthode nécessite un argument Type objet"
J'ai compris qu'il fallait créer l'objet avant .
Je viens d'essayer

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
 
Dim qry As QueryDef
 
   Set qry = CurrentDb.CreateQueryDef("haha", requete)

ce qui donne:

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
 
Private Sub cmd_transfert_excel_Click()
Dim requete As String
Dim nom_fich As String
Dim qry As QueryDef
 
  ' Construction de la requête d'exportation
 
    requete = "Select * From rqt_pps Where [21-N° MDPH]= " & "'" & Me.[21-N° MDPH] & "'"
 
 
   Set qry = CurrentDb.CreateQueryDef("export_current_record", requete)
 
 
 ' Construction du nom du fichier d'exportation
 nom_fich = "'" & Me.[1-NOM DE L'ENFANT:] & "_" & Me.[2-Prénom] & "_" & Me.[21-N° MDPH] & "_origine_" & Me.[NOM_REFERENT] & ".xls'"
 'Le beep d'avertissement
    DoCmd.Beep
 'L'exportation proprement dite
    DoCmd.OutputTo acOutputQuery, "export_current_record", acFormatXLS, nom_fich
 
End Sub

mais j'obtiens l'erreur n° 3012 et le message suivant:

"L'objet 'export_current_record' existe déjà."

Sellig60

[sellig60]

Je viens me répondre. J'ai trouvé l'origine du deuxième message !
La requête "export_current_record" est bien créée, je l'ai trouvée dans access.
Donc le code fonctionne.
Merci Fold85

[sellig60]

Bon j'ai cliqué sur résolu mais je viens quand même donné le code propre et qui marche:

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
 
Private Sub cmd_transfert_excel_Click()
Dim requete As String
Dim nom_fich As String
Dim qry As QueryDef
 'Affichage du sablier
  DoCmd.Hourglass True
    ' Construction de la requête d'exportation
    requete = "Select * From rqt_pps Where [21-N° MDPH]= " & "'" & Me.[21-N° MDPH] & "'"
    ' Construction de la requête export
     Set qry = CurrentDb.CreateQueryDef("export_current_record", requete)
    'Construction du nom du fichier d'exportation
    'nom_fich = "'" & Me.[1-NOM DE L'ENFANT:] & "_" & Me.[2-Prénom] & "_" & Me.[21-N° MDPH] & "_origine_" & Me.[NOM_REFERENT] & ".xls'"
    nom_fich = Me.[1-NOM DE L'ENFANT:] & "_" & Me.[2-Prénom] & "_" & Me.[21-N° MDPH] & "_origine_" & Me.[NOM_REFERENT] & ".xls"
    'Le beep d'avertissement
    DoCmd.Beep
    'L'exportation proprement dite
    DoCmd.OutputTo acOutputQuery, "export_current_record", acFormatXLS, nom_fich
  'Rétablissement du pointeur normal
 DoCmd.Hourglass False
End Sub

Attention! Afin d'éviter le message d'erreur N°3012 :"L'objet 'export_current_record' existe déjà.", il faut ajouter un effacement de la requête "export_current_record" avant sa recréation.
Merci encore de vos réponses.
Sellig60