Discussion :

[Celia1303]

Bonjour !

L'export des dates et lien hypertexte d'access vers excel ne se fait pas correctement, ou plutot ne s'affiche pas dans le même format.
Voici une partie du code qui exporte le résultat d'une requete dans un classeur excel :

Code :

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

1
2
3
4
5
6
7
8
9
10
 
 
 
SQL = "SELECT Num_Ent, Entite_Ent, RaisonSociale_Ent, Adresse_Ent, Adresse2_Ent, CP_Ent, Ville_Ent, Tel_Ent, Fax_Ent, Email_Ent, SiteInternet_Ent, DateEntreeReseau_Ent, AppartenanceCCI_Ent, CodeNaf_Ent, Activite_Ent, OrigineContact_Ent, CodeNAF_Court, TypeAdherent_Ent, GSC_Ent, PBE , Effectif_Ent, TrancheEffectif_Ent FROM T_Entreprise WHERE TypeAdherent_Ent<>'Prospect' "
 
 
appexcel.Cells(i, 10) = Rst_RechercheMC![Email_Ent]
appexcel.Cells(i, 11) = Rst_RechercheMC![SiteInternet_Ent]
appexcel.Cells(i, 12) = Rst_RechercheMC![DateEntreeReseau_Ent]
...[/color]

Dans le classeur excel, il s'affiche par exemple :
pour une date : 31048 ou encore 36800
pour un lien hypertexte : www.miramarcrouesty.com#http://www.miramarcrouesty.com#
ou encore
info@cellulose-broceliande.com#http://info@cellulo


Comment puis-je résoudre ce problème ??

Merci d'avance pour votre aide !

[Arkham46]

Salut,

Pour les dates :
- tu formates tes cellules :

Code :

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

appexcel.Cells(i, 12).NumberFormat = "dd/mm/yyyy"

- ou tes colonnes :

Code :

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

appexcel.Columns(12).NumberFormat = "dd/mm/yyyy"

- ou alors tu formates dans access :

Code :

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

appexcel.Cells(i, 12) = format(Rst_RechercheMC![DateEntreeReseau_Ent],"dd/mm/yyyy")

Pour le lien hypertexte je sais pas là, il doit y avoir un moyen de ne récupérer que le texte du lien...

[Celia1303]

Merci pour les dates !

C'est impecable, merci beaucoup!!!