Discussion :

[MOHSSINO]

Bonjour
j'ai développé une petite application pour gérer la déclaration fiscale ( TVA) et je veux exporter le résultat d'une requête vers fichier XML ( format spécifique)?
ci joint un exemple de fichier XML.
au niveau l'application j'ai crée les tables suivants :
DeclarationReleveDeduction (identifantFiscal,annee,periode,regime)
mp ( Id,mode)
RefF (if,nom,ice)
rd(ord,num,des,mht,tx,prorata,tva,ttc,nom,id,dpai,dfac)
Merci d'avance.

[Jean-Philippe André]

Bonjour,

la syntaxe est simple, il suffit de faire le nécessaire dans une requete qui te donnera les résultats souhaités, puis de l'exporter au format XML, avec par exemple :

Code :

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

1
2
3
Application.ExportXML ObjectType:=acExportQuery, _
                      DataSource:="TarequeteXML", _
                      DataTarget:="C:\temp\requete.xml"

[MOHSSINO]

Merci pour votre réponse
j'ai fait une requette avec résultat , et j'ai recopie le code et j'ai excuté le code un message s'affiche
erreur d'exécution 2467 , l'experssion entrée fait référence à un objet ou supprimé.

Code :

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

1
2
3
4
5
6
7
Option Compare Database
Private Sub Bascule13_Click()
Application.exportXML ObjectType:=acExportQuery, _
                      DataSource:="DeclarationReleve_DeductionXML", _
                      DataTarget:="C:\temp\DeclarationReleve_deduction.xml"
 
End Sub

[Zekraoui_Jakani]

ça devrait fonctionner; vérifier vos librairies chargées dans les références, comme Microsoft HTML object library.

[PipoWIL]

Boujour,

Oui, cela devrait fonctionner mais j'ai déjà eu le cas cela ne fonctionnait pas avec une query faisant appel à une source extérieure (ODBC). Par contre, si la table source de la query était une table Access dans la base Access, alors cela fonctionnait.

[Jean-Philippe André]

Dans quelles conditions est-on ici ?

[MOHSSINO]

Merci ca fonctionne parfaitement
le 1er chose j'ai crée le répertoire C:\temp
2eme chose j'ai le code suivant ;

Code :

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

1
2
3
4
5
6
Private Sub Bascule13_Click()
Application.exportXML ObjectType:=acExportQuery, _
                      DataSource:="DeclarationReleve_Deduction", _
                      DataTarget:="C:\temp\DeclarationReleve_deduction.xml"
 
End Sub

si vous avez remraqué j'ai mis le nom de ma requette directement sans XML
Mais le probleme c'est la sturcture , le schéma imposé n'est pas celui demandé.

[Jean-Philippe André]

ok,
je viens de voir ton format, il est trop alambiqué pour faire ca simplement, ca sent le VBA vu de mon balcon