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 Format Wordpad et access

Format Wordpad et access

5 réponses
Avatar
Gil
Bonjour,

Je g=E9n=E8re en VBA un fichier texte.
Pour obtenir le format d=E9sir=E9 (par mon destinataire), je=20
dois l'ouvrir avec WORDPAD et l'enregistrer dans ce=20
format.
Comment puis-je =E9viter cette derni=E8re manip?
Merci de votre aide.

Gil
Signaler un problème avec ce contenu

5 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 [mvp]
Bonjour.

tu crées ton fichier avec TransferText ? si oui le format est bon.
su tu le crées avec un objet FileSystemObject, le nformat est bon aussi.
si tu le crées spécifiquement en access, avec quelle commandes le crées-tu ?

--
@+
Raymond Access MVP
http://OfficeSystem.Access.free.fr/
http://OfficeSystem.Access.free.fr/runtime/
http://users.skynet.be/mpfa/ pour débuter sur le forum


"Gil" a écrit dans le message de news:
267d01c533a5$166d7620$
Bonjour,

Je génère en VBA un fichier texte.
Pour obtenir le format désiré (par mon destinataire), je
dois l'ouvrir avec WORDPAD et l'enregistrer dans ce
format.
Comment puis-je éviter cette dernière manip?
Merci de votre aide.

Gil
Avatar
Gil
Bonjour Raymond,

Voici mon code:

Public Function création_fichier()
Dim rst As Recordset, txt As String
Set rst = CurrentDb().OpenRecordset("table1")
Open "C:toto.txt" For Output As #1
rst.MoveFirst
Do While Not rst.EOF
Print #1, rst!valeur & Chr(13);
rst.MoveNext
Loop
Close #1
rst.Close
Set rst = Nothing
End Function

Le fichier toto.txt ainsi généré ne convient pas à mon
destinataire, je dois passer par WORDPAD...peut être à
cause du chr(13)?

Merci de ton aide.
Gil.


-----Message d'origine-----

Bonjour.

tu crées ton fichier avec TransferText ? si oui le
format est bon.

su tu le crées avec un objet FileSystemObject, le
nformat est bon aussi.

si tu le crées spécifiquement en access, avec quelle
commandes le crées-tu ?


--
@+
Raymond Access MVP
http://OfficeSystem.Access.free.fr/
http://OfficeSystem.Access.free.fr/runtime/
http://users.skynet.be/mpfa/ pour débuter sur le forum


"Gil" a écrit dans
le message de news:

267d01c533a5$166d7620$
Bonjour,

Je génère en VBA un fichier texte.
Pour obtenir le format désiré (par mon destinataire), je
dois l'ouvrir avec WORDPAD et l'enregistrer dans ce
format.
Comment puis-je éviter cette dernière manip?
Merci de votre aide.

Gil


.



Avatar
Raymond [mvp]
essaie:
Print #1, rst!valeur & Chr(13) & Chr(10)
ou
Print #1, rst!valeur & VbCrLf

--
@+
Raymond Access MVP
http://OfficeSystem.Access.free.fr/
http://OfficeSystem.Access.free.fr/runtime/
http://users.skynet.be/mpfa/ pour débuter sur le forum


"Gil" a écrit dans le message de news:
1f1501c533a7$a5580010$
Bonjour Raymond,

Voici mon code:

Public Function création_fichier()
Dim rst As Recordset, txt As String
Set rst = CurrentDb().OpenRecordset("table1")
Open "C:toto.txt" For Output As #1
rst.MoveFirst
Do While Not rst.EOF
Print #1, rst!valeur & Chr(13);
rst.MoveNext
Loop
Close #1
rst.Close
Set rst = Nothing
End Function

Le fichier toto.txt ainsi généré ne convient pas à mon
destinataire, je dois passer par WORDPAD...peut être à
cause du chr(13)?

Merci de ton aide.
Gil.


-----Message d'origine-----

Bonjour.

tu crées ton fichier avec TransferText ? si oui le
format est bon.

su tu le crées avec un objet FileSystemObject, le
nformat est bon aussi.

si tu le crées spécifiquement en access, avec quelle
commandes le crées-tu ?


--
@+
Raymond Access MVP
http://OfficeSystem.Access.free.fr/
http://OfficeSystem.Access.free.fr/runtime/
http://users.skynet.be/mpfa/ pour débuter sur le forum


"Gil" a écrit dans
le message de news:

267d01c533a5$166d7620$
Bonjour,

Je génère en VBA un fichier texte.
Pour obtenir le format désiré (par mon destinataire), je
dois l'ouvrir avec WORDPAD et l'enregistrer dans ce
format.
Comment puis-je éviter cette dernière manip?
Merci de votre aide.

Gil


.



Avatar
Gil
Effectivement le résultat dans NotePad est le même que
dans WORDPAD, c'est à dire avec retour à la ligne.
Par contre il crée un saut de ligne dans les 2 cas.
Peut-être que cela ne gênera pas mon destinataire,
réponse demain...
En tous cas merci de ton aide Raymond.
Gil.

-----Message d'origine-----
essaie:
Print #1, rst!valeur & Chr(13) & Chr(10)
ou
Print #1, rst!valeur & VbCrLf

--
@+
Raymond Access MVP
http://OfficeSystem.Access.free.fr/
http://OfficeSystem.Access.free.fr/runtime/
http://users.skynet.be/mpfa/ pour débuter sur le forum


"Gil" a écrit dans
le message de news:

1f1501c533a7$a5580010$
Bonjour Raymond,

Voici mon code:

Public Function création_fichier()
Dim rst As Recordset, txt As String
Set rst = CurrentDb().OpenRecordset("table1")
Open "C:toto.txt" For Output As #1
rst.MoveFirst
Do While Not rst.EOF
Print #1, rst!valeur & Chr(13);
rst.MoveNext
Loop
Close #1
rst.Close
Set rst = Nothing
End Function

Le fichier toto.txt ainsi généré ne convient pas à mon
destinataire, je dois passer par WORDPAD...peut être à
cause du chr(13)?

Merci de ton aide.
Gil.


-----Message d'origine-----

Bonjour.

tu crées ton fichier avec TransferText ? si oui le
format est bon.

su tu le crées avec un objet FileSystemObject, le
nformat est bon aussi.

si tu le crées spécifiquement en access, avec quelle
commandes le crées-tu ?


--
@+
Raymond Access MVP
http://OfficeSystem.Access.free.fr/
http://OfficeSystem.Access.free.fr/runtime/
http://users.skynet.be/mpfa/ pour débuter sur le forum


"Gil" a écrit dans
le message de news:

267d01c533a5$166d7620$
Bonjour,

Je génère en VBA un fichier texte.
Pour obtenir le format désiré (par mon destinataire), je
dois l'ouvrir avec WORDPAD et l'enregistrer dans ce
format.
Comment puis-je éviter cette dernière manip?
Merci de votre aide.

Gil


.




.




Avatar
Gil
Champion Raymond!
Mon destinataire est ravi et moi aussi ;-)
Merci.
Gil
-----Message d'origine-----
essaie:
Print #1, rst!valeur & Chr(13) & Chr(10)
ou
Print #1, rst!valeur & VbCrLf

--
@+
Raymond Access MVP
http://OfficeSystem.Access.free.fr/
http://OfficeSystem.Access.free.fr/runtime/
http://users.skynet.be/mpfa/ pour débuter sur le forum


"Gil" a écrit dans
le message de news:

1f1501c533a7$a5580010$
Bonjour Raymond,

Voici mon code:

Public Function création_fichier()
Dim rst As Recordset, txt As String
Set rst = CurrentDb().OpenRecordset("table1")
Open "C:toto.txt" For Output As #1
rst.MoveFirst
Do While Not rst.EOF
Print #1, rst!valeur & Chr(13);
rst.MoveNext
Loop
Close #1
rst.Close
Set rst = Nothing
End Function

Le fichier toto.txt ainsi généré ne convient pas à mon
destinataire, je dois passer par WORDPAD...peut être à
cause du chr(13)?

Merci de ton aide.
Gil.


-----Message d'origine-----

Bonjour.

tu crées ton fichier avec TransferText ? si oui le
format est bon.

su tu le crées avec un objet FileSystemObject, le
nformat est bon aussi.

si tu le crées spécifiquement en access, avec quelle
commandes le crées-tu ?


--
@+
Raymond Access MVP
http://OfficeSystem.Access.free.fr/
http://OfficeSystem.Access.free.fr/runtime/
http://users.skynet.be/mpfa/ pour débuter sur le forum


"Gil" a écrit dans
le message de news:

267d01c533a5$166d7620$
Bonjour,

Je génère en VBA un fichier texte.
Pour obtenir le format désiré (par mon destinataire), je
dois l'ouvrir avec WORDPAD et l'enregistrer dans ce
format.
Comment puis-je éviter cette dernière manip?
Merci de votre aide.

Gil


.




.