Précédent   Forum des professionnels en informatique > Logiciels > Microsoft Office > Access > VBA Access
VBA Access Le forum pour les questions relatives au code VBA sous Access, et à son environnement de développement VBE.
Partagez cette discussion sur d'autres réseaux sociaux : Viadeo Twitter Google Facebook Digg Delicious MySpace Yahoo
Réponse Proposer ce sujet en actualité
 
Outils de la discussion
Publicité
'
Vieux 02/11/2011, 15h39   #1
Futur Membre du Club
 
Inscription : janvier 2007
Messages : 75
Détails du profil
Informations forums :
Inscription : janvier 2007
Messages : 75
Points : 19
Points : 19
Par défaut PB Export vers fichier .csv

Bonjour à tous, j'ai un problème de mise en forme lors de l'exportation de ma table vers un fichier .csv. Voici les champs qui me cause problème.
1-Telephone
2-Courriel
3-Web

Mon champs Telephone est un champs texte avec un masque de saisie;
!\ 999" "000-0000;0;_

Mes champs Courriel et Web sont des champs Lien hypertexte.

Résultat de mon exportation:
champs Telephone: 9999999999
champs courriel: MonCourriel.ca#mailto:MonCourriel.ca#
champs web: www.MonWeb.ca#http://www.MonWeb.ca#

Voici mon code
Code :
DoCmd.TransferText acExportDelim, "MonExportation", "MaTable", "D:\RExportCSV\MonFichier.csv", True
Comment faire pour mettre en forme ses trois champs de la façon suivante;

champs Telephone: 999 999-9999
champs courriel: MonCourriel.ca
champs web: www.MonWeb.ca

Merci
Daniel-Gérald est déconnecté   Envoyer un message privé Réponse avec citation 00
Vieux 02/11/2011, 15h57   #2
Membre confirmé
 
Inscription : juillet 2006
Messages : 346
Détails du profil
Informations forums :
Inscription : juillet 2006
Messages : 346
Points : 288
Points : 288
Bonjour,

Pour votre premier champ vous pouvez utiliser l'intruction format comme suit :

Code :
format(MonChamp,"000 000-000")
Pour vos champs de type liens hypertext vous pouvez utiliser la fonction HyperlinkPart comme suit :

Code :
HyperlinkPart(MonChamp,acDisplayText)
Bonne journée.
Access Newbie est déconnecté   Envoyer un message privé Réponse avec citation 00
Vieux 02/11/2011, 20h12   #3
Futur Membre du Club
 
Inscription : janvier 2007
Messages : 75
Détails du profil
Informations forums :
Inscription : janvier 2007
Messages : 75
Points : 19
Points : 19
Toujours le même problème, voici le code que j'ai utilisé:

Code :
DoCmd.TransferText acExportDelim, "MonExportation", "MaTable", format(MonChamp,"000 000-000"),"D:\RExportCSV\MonFichier.csv", True
Daniel-Gérald est déconnecté   Envoyer un message privé Réponse avec citation 00
Vieux 03/11/2011, 10h54   #4
Membre confirmé
 
Inscription : juillet 2006
Messages : 346
Détails du profil
Informations forums :
Inscription : juillet 2006
Messages : 346
Points : 288
Points : 288
Bonjour,

Vous devez crééer une requete intermediaire dans laquelle vous utilisez les differentes fonctions que je vous ai donné :

par exemple :

on cree une requete MaRequete dans laquelle vous utilisez la synthaxe :

Code :
select MonChamp1, MonChamp2, ... , format(MonChampTel,"000 000-000") as NumTel, HyperlinkPart(MonChampCouriel,acDisplayText) as Couriel, HyperlinkPart(MonChampWeb,acDisplayText) as Web from MaTable
et au lieu d'exporter MaTable, vous exportez MaRequete.

Code :
DoCmd.TransferText acExportDelim, "MonExportation", "MaRequete","D:\RExportCSV\MonFichier.csv", True
Vous devrez tres certainement refaire votre specification d'export.
Access Newbie est déconnecté   Envoyer un message privé Réponse avec citation 00
Réponse Proposer ce sujet en actualité
Outils de la discussion



Fuseau horaire GMT +2. Il est actuellement 12h49.


 
 
 
 
Partenaires

Hébergement Web