Pour le moment j'utilise la commande :
Call Shell("NOTEPAD.EXE", 1)
qui permet d'ouvrir notepad puis manuellement je fais un copier/coller
de la colonne =E0 exporter.
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
Bonjour,
Colle cette fonction dans un module nommé modExporter par exemple pense à modifier le nom de tatable , tonchamp et tonfichier
Un bouton d'un formulaire ou une macro qui appelle cette fonction et le tour est joué
Function fExporterTXT()
Dim db As DAO.Database Dim Rst As DAO.Recordset
Dim TxtLine As String Set db = CurrentDb
Open "c:tonfichier.txt" For Output As #1
Set Rst = db.OpenRecordset("SELECT * FROM TaTable;") While Not Rst.EOF Print #1, "+" & Rst("TonChamp") & "+" Rst.MoveNext Wend Rst.Close Close #1 db.Close
Pour le moment j'utilise la commande : Call Shell("NOTEPAD.EXE", 1) qui permet d'ouvrir notepad puis manuellement je fais un copier/coller de la colonne à exporter.
Carine
Bonjour,
Colle cette fonction dans un module nommé modExporter par exemple
pense à modifier le nom de tatable , tonchamp et tonfichier
Un bouton d'un formulaire ou une macro qui appelle cette fonction et le tour est joué
Function fExporterTXT()
Dim db As DAO.Database
Dim Rst As DAO.Recordset
Dim TxtLine As String
Set db = CurrentDb
Open "c:tonfichier.txt" For Output As #1
Set Rst = db.OpenRecordset("SELECT * FROM TaTable;")
While Not Rst.EOF
Print #1, "+" & Rst("TonChamp") & "+"
Rst.MoveNext
Wend
Rst.Close
Close #1
db.Close
"Carine" <m9g4psysq5inydi@jetable.com> a écrit dans le message de news: 1153904237.583955.196150@p79g2000cwp.googlegroups.com...
Bonjour,
Je cherche à exporter en vba une colonne access (toujours la même)
vers notepad.
Idéalement j'aimerais aussi pouvoir insérer le symbole + de chaque
coté entre chaque ligne comme ceci :
Pour le moment j'utilise la commande :
Call Shell("NOTEPAD.EXE", 1)
qui permet d'ouvrir notepad puis manuellement je fais un copier/coller
de la colonne à exporter.
Colle cette fonction dans un module nommé modExporter par exemple pense à modifier le nom de tatable , tonchamp et tonfichier
Un bouton d'un formulaire ou une macro qui appelle cette fonction et le tour est joué
Function fExporterTXT()
Dim db As DAO.Database Dim Rst As DAO.Recordset
Dim TxtLine As String Set db = CurrentDb
Open "c:tonfichier.txt" For Output As #1
Set Rst = db.OpenRecordset("SELECT * FROM TaTable;") While Not Rst.EOF Print #1, "+" & Rst("TonChamp") & "+" Rst.MoveNext Wend Rst.Close Close #1 db.Close
Pour le moment j'utilise la commande : Call Shell("NOTEPAD.EXE", 1) qui permet d'ouvrir notepad puis manuellement je fais un copier/coller de la colonne à exporter.
Carine
Carine
Merci Arnaud. Ta fonction fonctionne de tonnerre.
Par contre j'aimerais bien, avant exportation d'une colonne Access vers .txt de supprimer le contenu du fichier .TXT.
Existe-il une commande permettant de faire cette action?
Merci de ton aide. Carine
Bonjour,
Colle cette fonction dans un module nommé modExporter par exemple pense à modifier le nom de tatable , tonchamp et tonfichier
Un bouton d'un formulaire ou une macro qui appelle cette fonction et le t our est joué
Function fExporterTXT()
Dim db As DAO.Database Dim Rst As DAO.Recordset
Dim TxtLine As String Set db = CurrentDb
Open "c:tonfichier.txt" For Output As #1
Set Rst = db.OpenRecordset("SELECT * FROM TaTable;") While Not Rst.EOF Print #1, "+" & Rst("TonChamp") & "+" Rst.MoveNext Wend Rst.Close Close #1 db.Close
Pour le moment j'utilise la commande : Call Shell("NOTEPAD.EXE", 1) qui permet d'ouvrir notepad puis manuellement je fais un copier/coller de la colonne à exporter.
Carine
Merci Arnaud. Ta fonction fonctionne de tonnerre.
Par contre j'aimerais bien, avant exportation d'une colonne Access vers
.txt de supprimer le contenu du fichier .TXT.
Existe-il une commande permettant de faire cette action?
Merci de ton aide.
Carine
Bonjour,
Colle cette fonction dans un module nommé modExporter par exemple
pense à modifier le nom de tatable , tonchamp et tonfichier
Un bouton d'un formulaire ou une macro qui appelle cette fonction et le t our est joué
Function fExporterTXT()
Dim db As DAO.Database
Dim Rst As DAO.Recordset
Dim TxtLine As String
Set db = CurrentDb
Open "c:tonfichier.txt" For Output As #1
Set Rst = db.OpenRecordset("SELECT * FROM TaTable;")
While Not Rst.EOF
Print #1, "+" & Rst("TonChamp") & "+"
Rst.MoveNext
Wend
Rst.Close
Close #1
db.Close
"Carine" <m9g4psysq5inydi@jetable.com> a écrit dans le message de news: 1153904237.583955.196150@p79g2000cwp.googlegroups.com...
Bonjour,
Je cherche à exporter en vba une colonne access (toujours la même)
vers notepad.
Idéalement j'aimerais aussi pouvoir insérer le symbole + de chaque
coté entre chaque ligne comme ceci :
Pour le moment j'utilise la commande :
Call Shell("NOTEPAD.EXE", 1)
qui permet d'ouvrir notepad puis manuellement je fais un copier/coller
de la colonne à exporter.
Par contre j'aimerais bien, avant exportation d'une colonne Access vers .txt de supprimer le contenu du fichier .TXT.
Existe-il une commande permettant de faire cette action?
Merci de ton aide. Carine
Bonjour,
Colle cette fonction dans un module nommé modExporter par exemple pense à modifier le nom de tatable , tonchamp et tonfichier
Un bouton d'un formulaire ou une macro qui appelle cette fonction et le t our est joué
Function fExporterTXT()
Dim db As DAO.Database Dim Rst As DAO.Recordset
Dim TxtLine As String Set db = CurrentDb
Open "c:tonfichier.txt" For Output As #1
Set Rst = db.OpenRecordset("SELECT * FROM TaTable;") While Not Rst.EOF Print #1, "+" & Rst("TonChamp") & "+" Rst.MoveNext Wend Rst.Close Close #1 db.Close
Pour le moment j'utilise la commande : Call Shell("NOTEPAD.EXE", 1) qui permet d'ouvrir notepad puis manuellement je fais un copier/coller de la colonne à exporter.
Carine
Eric
Bonsoir Carine,
Le plus simple serait de le supprimer avant de le créer Donc, avant le Open "c:tonfichier.txt" For Output As #1
l'instruction Open "c:tonfichier.txt" For Output As #1 crée un tout neuf.
Merci Arnaud. Ta fonction fonctionne de tonnerre.
Par contre j'aimerais bien, avant exportation d'une colonne Access vers .txt de supprimer le contenu du fichier .TXT.
Existe-il une commande permettant de faire cette action?
Merci de ton aide. Carine
Bonjour,
Colle cette fonction dans un module nommé modExporter par exemple pense à modifier le nom de tatable , tonchamp et tonfichier
Un bouton d'un formulaire ou une macro qui appelle cette fonction et le tour est joué
Function fExporterTXT()
Dim db As DAO.Database Dim Rst As DAO.Recordset
Dim TxtLine As String Set db = CurrentDb
Open "c:tonfichier.txt" For Output As #1
Set Rst = db.OpenRecordset("SELECT * FROM TaTable;") While Not Rst.EOF Print #1, "+" & Rst("TonChamp") & "+" Rst.MoveNext Wend Rst.Close Close #1 db.Close
Pour le moment j'utilise la commande : Call Shell("NOTEPAD.EXE", 1) qui permet d'ouvrir notepad puis manuellement je fais un copier/coller de la colonne à exporter.
Carine
-- A+ Eric http://www.mpfa.info/ Archives : http://groups.google.fr/group/microsoft.public.fr.access?hl=fr
Bonsoir Carine,
Le plus simple serait de le supprimer avant de le créer
Donc, avant le
Open "c:tonfichier.txt" For Output As #1
l'instruction Open "c:tonfichier.txt" For Output As #1 crée un tout neuf.
Merci Arnaud. Ta fonction fonctionne de tonnerre.
Par contre j'aimerais bien, avant exportation d'une colonne Access vers
.txt de supprimer le contenu du fichier .TXT.
Existe-il une commande permettant de faire cette action?
Merci de ton aide.
Carine
Bonjour,
Colle cette fonction dans un module nommé modExporter par exemple
pense à modifier le nom de tatable , tonchamp et tonfichier
Un bouton d'un formulaire ou une macro qui appelle cette fonction et le tour est joué
Function fExporterTXT()
Dim db As DAO.Database
Dim Rst As DAO.Recordset
Dim TxtLine As String
Set db = CurrentDb
Open "c:tonfichier.txt" For Output As #1
Set Rst = db.OpenRecordset("SELECT * FROM TaTable;")
While Not Rst.EOF
Print #1, "+" & Rst("TonChamp") & "+"
Rst.MoveNext
Wend
Rst.Close
Close #1
db.Close
"Carine" <m9g4psysq5inydi@jetable.com> a écrit dans le message de news: 1153904237.583955.196150@p79g2000cwp.googlegroups.com...
Bonjour,
Je cherche à exporter en vba une colonne access (toujours la même)
vers notepad.
Idéalement j'aimerais aussi pouvoir insérer le symbole + de chaque
coté entre chaque ligne comme ceci :
Pour le moment j'utilise la commande :
Call Shell("NOTEPAD.EXE", 1)
qui permet d'ouvrir notepad puis manuellement je fais un copier/coller
de la colonne à exporter.
Carine
--
A+
Eric
http://www.mpfa.info/
Archives : http://groups.google.fr/group/microsoft.public.fr.access?hl=fr
l'instruction Open "c:tonfichier.txt" For Output As #1 crée un tout neuf.
Merci Arnaud. Ta fonction fonctionne de tonnerre.
Par contre j'aimerais bien, avant exportation d'une colonne Access vers .txt de supprimer le contenu du fichier .TXT.
Existe-il une commande permettant de faire cette action?
Merci de ton aide. Carine
Bonjour,
Colle cette fonction dans un module nommé modExporter par exemple pense à modifier le nom de tatable , tonchamp et tonfichier
Un bouton d'un formulaire ou une macro qui appelle cette fonction et le tour est joué
Function fExporterTXT()
Dim db As DAO.Database Dim Rst As DAO.Recordset
Dim TxtLine As String Set db = CurrentDb
Open "c:tonfichier.txt" For Output As #1
Set Rst = db.OpenRecordset("SELECT * FROM TaTable;") While Not Rst.EOF Print #1, "+" & Rst("TonChamp") & "+" Rst.MoveNext Wend Rst.Close Close #1 db.Close
Pour le moment j'utilise la commande : Call Shell("NOTEPAD.EXE", 1) qui permet d'ouvrir notepad puis manuellement je fais un copier/coller de la colonne à exporter.
Carine
-- A+ Eric http://www.mpfa.info/ Archives : http://groups.google.fr/group/microsoft.public.fr.access?hl=fr
Bonjour Carine,
Je ne comprends pas : la fonction écrase le fichier s'il existe et ne fonctionne pas en mode ajout...... Sinon, faire comme a suggéré Eric, en rajoutant comme première ligne de fonction on error resume next pour éviter un message d'erreur en kas de suppression de fichier absent
"Carine" a écrit dans le message de news: Merci Arnaud. Ta fonction fonctionne de tonnerre.
Par contre j'aimerais bien, avant exportation d'une colonne Access vers .txt de supprimer le contenu du fichier .TXT.
Existe-il une commande permettant de faire cette action?
Merci de ton aide. Carine
Bonjour,
Colle cette fonction dans un module nommé modExporter par exemple pense à modifier le nom de tatable , tonchamp et tonfichier
Un bouton d'un formulaire ou une macro qui appelle cette fonction et le tour est joué
Function fExporterTXT()
Dim db As DAO.Database Dim Rst As DAO.Recordset
Dim TxtLine As String Set db = CurrentDb
Open "c:tonfichier.txt" For Output As #1
Set Rst = db.OpenRecordset("SELECT * FROM TaTable;") While Not Rst.EOF Print #1, "+" & Rst("TonChamp") & "+" Rst.MoveNext Wend Rst.Close Close #1 db.Close
Pour le moment j'utilise la commande : Call Shell("NOTEPAD.EXE", 1) qui permet d'ouvrir notepad puis manuellement je fais un copier/coller de la colonne à exporter.
Carine
Bonjour Carine,
Je ne comprends pas : la fonction écrase le fichier s'il existe et ne fonctionne pas en mode ajout......
Sinon, faire comme a suggéré Eric, en rajoutant comme première ligne de fonction
on error resume next pour éviter un message d'erreur en kas de suppression de fichier absent
"Carine" <m9g4psysq5inydi@jetable.com> a écrit dans le message de news: 1153943634.224438.281230@b28g2000cwb.googlegroups.com...
Merci Arnaud. Ta fonction fonctionne de tonnerre.
Par contre j'aimerais bien, avant exportation d'une colonne Access vers
.txt de supprimer le contenu du fichier .TXT.
Existe-il une commande permettant de faire cette action?
Merci de ton aide.
Carine
Bonjour,
Colle cette fonction dans un module nommé modExporter par exemple
pense à modifier le nom de tatable , tonchamp et tonfichier
Un bouton d'un formulaire ou une macro qui appelle cette fonction et le tour est joué
Function fExporterTXT()
Dim db As DAO.Database
Dim Rst As DAO.Recordset
Dim TxtLine As String
Set db = CurrentDb
Open "c:tonfichier.txt" For Output As #1
Set Rst = db.OpenRecordset("SELECT * FROM TaTable;")
While Not Rst.EOF
Print #1, "+" & Rst("TonChamp") & "+"
Rst.MoveNext
Wend
Rst.Close
Close #1
db.Close
"Carine" <m9g4psysq5inydi@jetable.com> a écrit dans le message de news: 1153904237.583955.196150@p79g2000cwp.googlegroups.com...
Bonjour,
Je cherche à exporter en vba une colonne access (toujours la même)
vers notepad.
Idéalement j'aimerais aussi pouvoir insérer le symbole + de chaque
coté entre chaque ligne comme ceci :
Pour le moment j'utilise la commande :
Call Shell("NOTEPAD.EXE", 1)
qui permet d'ouvrir notepad puis manuellement je fais un copier/coller
de la colonne à exporter.
Je ne comprends pas : la fonction écrase le fichier s'il existe et ne fonctionne pas en mode ajout...... Sinon, faire comme a suggéré Eric, en rajoutant comme première ligne de fonction on error resume next pour éviter un message d'erreur en kas de suppression de fichier absent
"Carine" a écrit dans le message de news: Merci Arnaud. Ta fonction fonctionne de tonnerre.
Par contre j'aimerais bien, avant exportation d'une colonne Access vers .txt de supprimer le contenu du fichier .TXT.
Existe-il une commande permettant de faire cette action?
Merci de ton aide. Carine
Bonjour,
Colle cette fonction dans un module nommé modExporter par exemple pense à modifier le nom de tatable , tonchamp et tonfichier
Un bouton d'un formulaire ou une macro qui appelle cette fonction et le tour est joué
Function fExporterTXT()
Dim db As DAO.Database Dim Rst As DAO.Recordset
Dim TxtLine As String Set db = CurrentDb
Open "c:tonfichier.txt" For Output As #1
Set Rst = db.OpenRecordset("SELECT * FROM TaTable;") While Not Rst.EOF Print #1, "+" & Rst("TonChamp") & "+" Rst.MoveNext Wend Rst.Close Close #1 db.Close
Pour le moment j'utilise la commande : Call Shell("NOTEPAD.EXE", 1) qui permet d'ouvrir notepad puis manuellement je fais un copier/coller de la colonne à exporter.
Carine
Eric
Bonsoir Arnaud,
Tu as parfaitement raison, il est écrasé à chaque lancement de la procédure s'il existe. Quand j'ai lu le post j'ai pensé au mode Append pour Open alors que j'ai copié par *2 fois* Open ... For Output. Alzheimer précoce :-(
Bonjour Carine,
Je ne comprends pas : la fonction écrase le fichier s'il existe et ne fonctionne pas en mode ajout...... Sinon, faire comme a suggéré Eric, en rajoutant comme première ligne de fonction on error resume next pour éviter un message d'erreur en kas de suppression de fichier absent
a+
-- A+ Eric http://www.mpfa.info/ Archives : http://groups.google.fr/group/microsoft.public.fr.access?hl=fr
Bonsoir Arnaud,
Tu as parfaitement raison, il est écrasé à chaque lancement de la
procédure s'il existe. Quand j'ai lu le post j'ai pensé au mode Append
pour Open alors que j'ai copié par *2 fois* Open ... For Output.
Alzheimer précoce :-(
Bonjour Carine,
Je ne comprends pas : la fonction écrase le fichier s'il existe et ne fonctionne pas en mode ajout......
Sinon, faire comme a suggéré Eric, en rajoutant comme première ligne de fonction
on error resume next pour éviter un message d'erreur en kas de suppression de fichier absent
a+
--
A+
Eric
http://www.mpfa.info/
Archives : http://groups.google.fr/group/microsoft.public.fr.access?hl=fr
Tu as parfaitement raison, il est écrasé à chaque lancement de la procédure s'il existe. Quand j'ai lu le post j'ai pensé au mode Append pour Open alors que j'ai copié par *2 fois* Open ... For Output. Alzheimer précoce :-(
Bonjour Carine,
Je ne comprends pas : la fonction écrase le fichier s'il existe et ne fonctionne pas en mode ajout...... Sinon, faire comme a suggéré Eric, en rajoutant comme première ligne de fonction on error resume next pour éviter un message d'erreur en kas de suppression de fichier absent
a+
-- A+ Eric http://www.mpfa.info/ Archives : http://groups.google.fr/group/microsoft.public.fr.access?hl=fr
Salut Eric
"Eric"
Quand j'ai lu le post j'ai pensé au mode Append
Ah ben tiens, je ne savais pas qu'on pouvait écrire
Open "c:tonfichier.txt" For Append As #1 à la place de Open "c:tonfichier.txt" For Output As #1
