Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Applications Microsoft Office Access voir le formulaire que j'utilise

voir le formulaire que j'utilise

3 réponses
Avatar
zarbout
En faut j'utilise un formulaire développé par un gars ( FindRecord qui
tuilise le SQL pour faire des recherches dans 1 ou pls
tables , voir http://www.mvps.org/accessfr/forms/frm0045.htm ). Dommage que
la fonction Export ne marche pas.
Signaler un problème avec ce contenu

3 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Avatar
Raymond
Bonjour et merci.

Tu trouveras le même genre de formulaire sur :
http://perso.wanadoo.fr/access2000/bases_exemples.htm N° 2, avec export
texte mais que tu peux modifier toi-même en excel ou autre.
--
@+
Raymond Access MVP.
http://access.seneque.free.fr/
http://users.skynet.be/mpfa/charte.htm pour une meilleure
efficacité de tes interventions sur MPFA.


"zarbout" a écrit dans le message de
news:3f246d47$0$23040$
En faut j'utilise un formulaire développé par un gars ( FindRecord qui
tuilise le SQL pour faire des recherches dans 1 ou pls
tables , voir http://www.mvps.org/accessfr/forms/frm0045.htm ). Dommage
que

la fonction Export ne marche pas.







Avatar
3stone
Bonjour aussi,

zarbout
En faut j'utilise un formulaire développé par un gars ( FindRecord qui
tuilise le SQL pour faire des recherches dans 1 ou pls
tables , voir http://www.mvps.org/accessfr/forms/frm0045.htm ). Dommage que
la fonction Export ne marche pas.



Il suffit de corriger le code "sous" le bouton Export (qui est écrit pour une configuration US)
en remplacant les virgules "," par des points-virgules ";"

Corrige cette partie:


With lstResult
.ColumnCount = 4
.ColumnWidths = "0;0;0"
.RowSourceType = "Value List"
.RowSource = "-1;-1;-1;Export Type;" _
& "0;0;.xls;Excel 3;" _
& "0;6;.xls;Excel 4;" _
& "0;5;.xls;Excel 5;" _
& "0;5;.xls;Excel 7;" _
& "0;8;.xls;Excel 97;" _
& "0;2;.wk1;Lotus WK1;" _
& "0;3;.wk3;Lotus WK3;" _
& "0;7;.wk4;Lotus WK4;" _
& "0;4;.wj2;Lotus WJ2 (Japanese);" _
& "1;2;.txt;Delimited Text;" _
& "1;8;.html;HTML"
'& "1,3,.txt,Fixed Length Text,"
.Selected(1) = True
End With


Le problème sera alors, que cela ne fonctionnera plus que sur
une configuration FR (à cause du séparateur...)


--
A+
Pierre (3stone) Access MVP
--------------------------------------
Une pour tous, tous pour une ;-)
http://users.skynet.be/mpfa/
--------------------------------------

Avatar
zarbout
Super cool., ça marche du tonnerre.

Merci



"3stone" a écrit dans le message de news:

Bonjour aussi,

zarbout
En faut j'utilise un formulaire développé par un gars ( FindRecord qui
tuilise le SQL pour faire des recherches dans 1 ou pls
tables , voir http://www.mvps.org/accessfr/forms/frm0045.htm ). Dommage
que


la fonction Export ne marche pas.



Il suffit de corriger le code "sous" le bouton Export (qui est écrit pour
une configuration US)

en remplacant les virgules "," par des points-virgules ";"

Corrige cette partie:


With lstResult
.ColumnCount = 4
.ColumnWidths = "0;0;0"
.RowSourceType = "Value List"
.RowSource = "-1;-1;-1;Export Type;" _
& "0;0;.xls;Excel 3;" _
& "0;6;.xls;Excel 4;" _
& "0;5;.xls;Excel 5;" _
& "0;5;.xls;Excel 7;" _
& "0;8;.xls;Excel 97;" _
& "0;2;.wk1;Lotus WK1;" _
& "0;3;.wk3;Lotus WK3;" _
& "0;7;.wk4;Lotus WK4;" _
& "0;4;.wj2;Lotus WJ2 (Japanese);" _
& "1;2;.txt;Delimited Text;" _
& "1;8;.html;HTML"
'& "1,3,.txt,Fixed Length Text,"
.Selected(1) = True
End With


Le problème sera alors, que cela ne fonctionnera plus que sur
une configuration FR (à cause du séparateur...)


--
A+
Pierre (3stone) Access MVP
--------------------------------------
Une pour tous, tous pour une ;-)
http://users.skynet.be/mpfa/
--------------------------------------