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 Export de données

Export de données

9 réponses
Avatar
Chris50
Bonjour,
Commande TransfertText
est-il possible de définir un nom de fichier variable automatiquement avec
comme nom date.txt avec comme variable la date
je m'explique je voudrais tous les jours ou tous les mois exporter les
valeurs d'une table dans un fichier texte different chaque jour et qu'il ait
comme nom la date en cliquant sur un bouton.
dans cette table il y a un champ date

donc je veux obtenir des fichiers de ce style :
23032006.txt
24032006.txt
etc...

ou mettre dans un formulaire un champ où on pourrait mettre un commentaire
du style le mois et que l'on exporte ces données vers le fichier
c:\truc\mois.txt
Merci
Signaler un problème avec ce contenu

9 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
G.Genier
Si tu passes par VBA, tu peux défénir le nom que tu veux.
La ligne de code c'est : DoCmd.TransfertText (ou quelque chose comme ça),
ensuite une aide t'indique les paramètres exactes.

Cordialement,

"Chris50" a écrit dans le message de
news:
Bonjour,
Commande TransfertText
est-il possible de définir un nom de fichier variable automatiquement avec
comme nom date.txt avec comme variable la date
je m'explique je voudrais tous les jours ou tous les mois exporter les
valeurs d'une table dans un fichier texte different chaque jour et qu'il
ait

comme nom la date en cliquant sur un bouton.
dans cette table il y a un champ date

donc je veux obtenir des fichiers de ce style :
23032006.txt
24032006.txt
etc...

ou mettre dans un formulaire un champ où on pourrait mettre un commentaire
du style le mois et que l'on exporte ces données vers le fichier
c:trucmois.txt
Merci


Avatar
boisgontier
Bonjour,

DoCmd.TransferText acExportDelim, , "pers", Format(Date, "yyyymmdd") &
".txt", True

JB
Avatar
Papy Bernard
Slt,
DE "Chris50"

Bonjour,
Commande TransfertText
est-il possible de définir un nom de fichier variable automatiquement avec
comme nom date.txt avec comme variable la date
je m'explique je voudrais tous les jours ou tous les mois exporter les
valeurs d'une table dans un fichier texte different chaque jour et qu'il
ait
comme nom la date en cliquant sur un bouton.
dans cette table il y a un champ date


Ne sais pas faire.

donc je veux obtenir des fichiers de ce style :
23032006.txt
24032006.txt
etc...


Si tu souhaites trier tes fichiers ou les retrouver facilememnt, je te
recommanderais de les enregistrer selon aaaammjj

--
A+
Papy Bernard (RTCien malgré lui)
--
A+
Papy Bernard (RTCien malgré lui)

Avatar
Raymond [mvp]
Bonjour.

tu peux utiliser ceci:
DoCmd.TransferText acExportDelim, , "matable", Format(Madate, "yyyymmdd") &
".txt", True

--
@+
Raymond Access MVP
http://OfficeSystem.Access.free.fr/
http://www.mpfa.info/ pour débuter sur le forum.
Inscrivez-vous à la Newsletter TechNet. 100 T-shirts à gagner pour les
premiers inscrits !
http://www.microsoft.com/france/technet/presentation/flash/default.mspx


"Chris50" a écrit dans le message de
news:
| Bonjour,
| Commande TransfertText
| est-il possible de définir un nom de fichier variable automatiquement avec
| comme nom date.txt avec comme variable la date
| je m'explique je voudrais tous les jours ou tous les mois exporter les
| valeurs d'une table dans un fichier texte different chaque jour et qu'il
ait
| comme nom la date en cliquant sur un bouton.
| dans cette table il y a un champ date
|
| donc je veux obtenir des fichiers de ce style :
| 23032006.txt
| 24032006.txt
| etc...
|
| ou mettre dans un formulaire un champ où on pourrait mettre un commentaire
| du style le mois et que l'on exporte ces données vers le fichier
| c:trucmois.txt
| Merci
Avatar
Chris50
Merci beaucoup, je teste ça ce soir
Merci à tous

"Raymond [mvp]" wrote:

Bonjour.

tu peux utiliser ceci:
DoCmd.TransferText acExportDelim, , "matable", Format(Madate, "yyyymmdd") &
".txt", True

--
@+
Raymond Access MVP
http://OfficeSystem.Access.free.fr/
http://www.mpfa.info/ pour débuter sur le forum.
Inscrivez-vous à la Newsletter TechNet. 100 T-shirts à gagner pour les
premiers inscrits !
http://www.microsoft.com/france/technet/presentation/flash/default.mspx


"Chris50" a écrit dans le message de
news:
| Bonjour,
| Commande TransfertText
| est-il possible de définir un nom de fichier variable automatiquement avec
| comme nom date.txt avec comme variable la date
| je m'explique je voudrais tous les jours ou tous les mois exporter les
| valeurs d'une table dans un fichier texte different chaque jour et qu'il
ait
| comme nom la date en cliquant sur un bouton.
| dans cette table il y a un champ date
|
| donc je veux obtenir des fichiers de ce style :
| 23032006.txt
| 24032006.txt
| etc...
|
| ou mettre dans un formulaire un champ où on pourrait mettre un commentaire
| du style le mois et que l'on exporte ces données vers le fichier
| c:trucmois.txt
| Merci





Avatar
Chris50
alors voici ce que j'ai fait
Private Sub Commande3_Click()
MkDir Format([Forms]![Formulaire1]![madate], "mmmyyyy") pour créer un
repertoire pour le mois en cours
DoCmd.TransferText acExportDelim, , "matable",
Format([Forms]![Formulaire1]![madate], "mmmyyyy") & "" &
Format([Forms]![Formulaire1]![madate], "yyyy mm dd") & ".txt", True

End Sub

et ça fonctionne, sauf... que si le repertoire du mois en cours existe le
code se bloque
alors ma question existe-t-il une commande pour dire que si le repertoire
existe, pas besoin de le créer sinon on le crée?
Merci



Merci beaucoup, je teste ça ce soir
Merci à tous

"Raymond [mvp]" wrote:

Bonjour.

tu peux utiliser ceci:
DoCmd.TransferText acExportDelim, , "matable", Format(Madate, "yyyymmdd") &
".txt", True

--
@+
Raymond Access MVP
http://OfficeSystem.Access.free.fr/
http://www.mpfa.info/ pour débuter sur le forum.
Inscrivez-vous à la Newsletter TechNet. 100 T-shirts à gagner pour les
premiers inscrits !
http://www.microsoft.com/france/technet/presentation/flash/default.mspx


"Chris50" a écrit dans le message de
news:
| Bonjour,
| Commande TransfertText
| est-il possible de définir un nom de fichier variable automatiquement avec
| comme nom date.txt avec comme variable la date
| je m'explique je voudrais tous les jours ou tous les mois exporter les
| valeurs d'une table dans un fichier texte different chaque jour et qu'il
ait
| comme nom la date en cliquant sur un bouton.
| dans cette table il y a un champ date
|
| donc je veux obtenir des fichiers de ce style :
| 23032006.txt
| 24032006.txt
| etc...
|
| ou mettre dans un formulaire un champ où on pourrait mettre un commentaire
| du style le mois et que l'on exporte ces données vers le fichier
| c:trucmois.txt
| Merci







Avatar
Eric
Bonjour,

Tu peux faire un truc du genre:

Dim strRep as string
'préciser le niveau supérieur du repertoire à créer
strRep = Format([Forms]![Formulaire1]![madate], "mmmyyyy")
If dir(strRep, vbDirectory)="" then
MkDir Format([Forms]![Formulaire1]![madate], "mmmyyyy")
...
end if

alors voici ce que j'ai fait
Private Sub Commande3_Click()
MkDir Format([Forms]![Formulaire1]![madate], "mmmyyyy") pour créer un
repertoire pour le mois en cours
DoCmd.TransferText acExportDelim, , "matable",
Format([Forms]![Formulaire1]![madate], "mmmyyyy") & "" &
Format([Forms]![Formulaire1]![madate], "yyyy mm dd") & ".txt", True

End Sub

et ça fonctionne, sauf... que si le repertoire du mois en cours existe le
code se bloque
alors ma question existe-t-il une commande pour dire que si le repertoire
existe, pas besoin de le créer sinon on le crée?
Merci




Merci beaucoup, je teste ça ce soir
Merci à tous

"Raymond [mvp]" wrote:


Bonjour.

tu peux utiliser ceci:
DoCmd.TransferText acExportDelim, , "matable", Format(Madate, "yyyymmdd") &
".txt", True

--
@+
Raymond Access MVP
http://OfficeSystem.Access.free.fr/
http://www.mpfa.info/ pour débuter sur le forum.
Inscrivez-vous à la Newsletter TechNet. 100 T-shirts à gagner pour les
premiers inscrits !
http://www.microsoft.com/france/technet/presentation/flash/default.mspx


"Chris50" a écrit dans le message de
news:
| Bonjour,
| Commande TransfertText
| est-il possible de définir un nom de fichier variable automatiquement avec
| comme nom date.txt avec comme variable la date
| je m'explique je voudrais tous les jours ou tous les mois exporter les
| valeurs d'une table dans un fichier texte different chaque jour et qu'il
ait
| comme nom la date en cliquant sur un bouton.
| dans cette table il y a un champ date
|
| donc je veux obtenir des fichiers de ce style :
| 23032006.txt
| 24032006.txt
| etc...
|
| ou mettre dans un formulaire un champ où on pourrait mettre un commentaire
| du style le mois et que l'on exporte ces données vers le fichier
| c:trucmois.txt
| Merci







--
A+
Eric
http://www.mpfa.info/
Archives : http://groups.google.fr/group/microsoft.public.fr.access?hl=fr



Avatar
Eric
../...
Répondu trop vite:

Dim strRep as string
'préciser le niveau supérieur du repertoire à créer
strRep = Format([Forms]![Formulaire1]![madate], "mmmyyyy")
If dir(strRep, vbDirectory)="" then
MkDir Format([Forms]![Formulaire1]![madate], "mmmyyyy")
End if
DoCmd.TransferText acExportDelim, , "matable", strRep & "" &
Format([Forms]![Formulaire1]![madate], "yyyy mm dd") & ".txt", True


Bonjour,

Tu peux faire un truc du genre:

Dim strRep as string
'préciser le niveau supérieur du repertoire à créer
strRep = Format([Forms]![Formulaire1]![madate], "mmmyyyy")
If dir(strRep, vbDirectory)="" then
MkDir Format([Forms]![Formulaire1]![madate], "mmmyyyy")
...
end if



--
A+
Eric
http://www.mpfa.info/
Archives : http://groups.google.fr/group/microsoft.public.fr.access?hl=fr

Avatar
Raymond [mvp]
tu rajoutes ceci:

If Nz(Dir(Format([Forms]![Formulaire1]![Madate], "mmmyyyy"), vbDirectory),
"") = "" Then
MkDir Format([Forms]![Formulaire1]![Madate], "mmmyyyy")
End If

normalement le dir ne renvoie jamais une valeur nulle, donc Nz pas
indispensable, mais on ne sait jamais plus tard.
--
@+
Raymond Access MVP
http://OfficeSystem.Access.free.fr/
http://www.mpfa.info/ pour débuter sur le forum.
Inscrivez-vous à la Newsletter TechNet. 100 T-shirts à gagner pour les
premiers inscrits !
http://www.microsoft.com/france/technet/presentation/flash/default.mspx


"Chris50" a écrit dans le message de
news:
| alors voici ce que j'ai fait
| Private Sub Commande3_Click()
| MkDir Format([Forms]![Formulaire1]![madate], "mmmyyyy") pour créer un
| repertoire pour le mois en cours
| DoCmd.TransferText acExportDelim, , "matable",
| Format([Forms]![Formulaire1]![madate], "mmmyyyy") & "" &
| Format([Forms]![Formulaire1]![madate], "yyyy mm dd") & ".txt", True
|
| End Sub
|
| et ça fonctionne, sauf... que si le repertoire du mois en cours existe le
| code se bloque
| alors ma question existe-t-il une commande pour dire que si le repertoire
| existe, pas besoin de le créer sinon on le crée?
| Merci
|