Code VBA export "enregistrer formaté" vers ExcelFermé

Question

Bonjour, 
J'utilise le code ci dessous pour exporter une requête d'Access vers Excel mais les % qui résultent d'un calcul dans la requête sont exportés en nombre dans Excel. SVP, existe t-il un code pour ajouter la notion d'enregistrer formaté à la commande ?

DoCmd.TransferSpreadsheet acExport, acSpreadsheetTypeExcel9, "Requête1", "Chemin.Fichier1xls", True, "Feuil1"

Merci

Configuration: Windows XP / Firefox 24.0

sorosoro · Answer

création da la requête Détailsdescrédits :

On Error Resume Next
DoCmd.DeleteObject acQuery, "Détailsdescrédits"
Dim yyyyyy As Object
Set yyyyyy = CurrentDb.CreateQueryDef("Détailsdescrédits", "SELECT Recharge.Num2, Recharge.Num3, Recharge.Code_Client, Recharge.Date_Recharge, Recharge.Montant_Recharge, Recharge.Observatons, Recharge.Reste_à_verserxx, Recharge.Cumul_Rehargexx, Recharge.Cumul_Verséxx, Produits.Num22, Produits.Num3, Produits.Code_Client, Produits.Date_Recharge, Produits.Montant_Recharge, Produits.Designations, Produits.U, Produits.Qté, Produits.PU, Produits.Noms_Prenoms, Produits.PRIX_TOTAL, Produits.Code_Produit, Produits.Gérant, Client.Cumul_Reharge, Client.Cumul_Versé, Client.Reste_à_verser, Client.Nom_Prenoms FROM (Recharge INNER JOIN Produits ON Recharge.Num3 = Produits.Num3) INNER JOIN Client ON Recharge.Code_Client = Client.Code_Client")
mon Email : ***@***
EXPORTATION DE LA RQUËTE DE L'ETAT "Détailsdescrédits" :
On Error Resume Next
    Dim stDocName As String
    stDocName = "Détailsdescrédits"
    DoCmd.OutputTo acReport, stDocName
Err.Clear

Code VBA export "enregistrer formaté" vers Excel

1 réponse

Discussions similaires

Newsletters