Salut,

Tu dois procéder de la manière suivante:
A. Définir to format d'export:
1. Tu ouvre la table que tu veux exporter
2. Dans le menu File, tu choisis Save As/Export
3. Tu choisis comme type de fichier "Text"
4. Un dialogue apparaît dans le quel tu spécifies le format d'export
5. Tu cliques sur "Advanced" et tu sauvegardes ces spécifications

B. Das un form, tu crées un boutons auquel tu lies la commande suivante:
DoCmd.TransferText acExportFixed, Nom_de_tes_specs, Nom_de_ta_table, Nom_du_fichier_texte

Pour ce qui est de l'envoi par mail, je ne sais pas.

Rien n'est plus dangereux qu'une idée quand on a 
qu'une idée  :-)

Je crois que tu n'as pas compris mon explication. Il est inutile d'utiliser Openddatabase ou recordset pour faire ce que tu veux. Une seule ligne de commande suffit à faire ce que tu désires (partie export).

Pour pouvoir exporter une table en VBA il faut que tu définisses préalablement ton format d'export. Tu utilises en suite ce format pour créer ton fichier texte.

Il est inutile d'ouvrir la table avec un Opendatabase ou Openrecordset. La commande Docmd.TransferText le fait sans aucun problème.

La table ne doit pas être lues pour être exportée.

Donc si tu crées un Form avec un bouton que tu nomes "Envoyer", cela donnera quelque chose comme ça:

Sub Envoyer_Click()

DoCmd.TransferText acExportFixed, Nom_de_tes_specs, Nom_de_ta_table, Nom_du_fichier_texte

Code permettant d'envoyer le fichier par mail (que je ne connais pas)

End Sub



Rien n'est plus dangereux qu'une idée quand on a 
qu'une idée  :-)

Salut,

pour lire le contenu d'une table tu peux utiliser ce code :

Dim Db As Database
Dim Rs As Recordset
Dim StrSql As String
Set Db = CurrentDb
Set Rs = Db.OpenRecordset("Listes", dbOpenForwardOnly)
With Rs
Do While Not .EOF
If Rs!Nom_Liste = "toto" Then
MsgBox "La liste existe déjà !!!", vbCritical
GoTo Fin:
End If
.MoveNext
Loop
End With
Rs.Close
Rs.Close
Db.Close
Set Rs = Nothing
Set Db = Nothing
Fin:
End Sub

Le nom de la table à lire est "listes" et elle contient entre autres un champ nommé Nom_Liste.

Mais comme le recordset ne parcourt la table que ligne à ligne, il faut que tu insères à chaque lecture une écriture dans un fichier.

Pour ouvrir un fichier en écriture :
Ecr = FreeFile(0)
Open StrEcr For Output Access Write As #Ecr

Pour écrire dedans :
Print #Ecr, champ1,champ2...

Pour fermer :
Close #Ecr

Regarde l'aide, elle est bien faite pour les accès aux fichiers.

Pour l'envoi des données, deux solutions : tu crées un objet de type outlook et tu joues avec, ou tu récupères un contrôle ActiveX sur le net et tu le programmes pour attaquer directement ton serveur SMTP (solution bien plus élégante, un gratos que j'utilise et qui est là :
http://www.ostrosoft.com/smtp.asp )

Ca irait comme explications ?

A+ Blux

 "Les cons, ça ose tout.
C'est même à ça qu'on les reconnait"

Merci bcp t'es un amour

J'aimerais savoir comment a partir d'un texte, je peux supprimer les mots inutiles (du, de, la, un,...) et ensuite sauvegarder les mots restants en leur attribuant un numero. ( le langage que j'utilise est le C++ et je debute)

Salut à tous,
J'aimerais lire/écrire une classe Qt (QMap) dans un fichier. Si quelqu'un peut m'aider, ce serait pas mal du tout. Merci.

Bonjour à tous,

J'aimerais savoir s'il est possible de faire la démarche inverse:
- je souhaite partir d'un fichier texte structuré mais non séquentiel, ni indexé
- extraire les données qui m'interesse et les mettre dans une table access.

Est ce nécessaire à votre avis de passer par du code VB pour lire le texte et le reformater ?

Merci pour votre aide

YB

Salut,

Les données que tu les obtiendra serront enregistrées dans un fichier .txt qui normalement peuvent être importé dans une table Access.

Donc l'étape la plus difficile c'est de parser le fichier .txt

En ce cas essaie avec un langage script Perl, Python avec leur regex et oublie le parsing de text avec VB.

Si tu as la structure de ton fichier et ce que tu veux obtenir tu n'as qu'à le dire et on verra si on peut le traiter pour obtenir ce que tu veux.

Ca peut être une bonne experience. A toi de voir.

lami20j