Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11

exportation et importation fichier texte

3 réponses
Avatar
larval01
Je suis dans Word 97.
Je me suis fais un formulaire Word.
Je veux une macro qui qui exporte le contenu de mes champs dans Access.
Étant donné que je crois que c'est impossible, j'ai décidé d'exporter dans
un fichier texte et par la suite d'importer ce fichier texte à partir
d'Access mais je n'y arrive pas.
Mon problème:
Quand j'exporte mes données de mon formulaire (sur une ligne) (À l'aide de
Print ou de Write), je n'arrive pas à trouver la bonne façon (ou le bon
format) pour exporter. Quand j'essais d'importer d'Access, il n'est pas
capable de séparer mes champs comme il faut ou il me fait une erreur "Text
file specification field separator matches decimal separator or text
delimiter." qui suit avec "Une erreur est survenue lors de l'imporation du
fichier "C:\doc\compil.txt". Le fichier n'a pas été importé."

Voici mon code d'exportation :
Open "C:\DOC\Parl\compil.txt" For Output As #1
Write #1, _
ActiveDocument.FormFields("NoFiche").Result, _
; ActiveDocument.FormFields("NoResult").Result, _
; ActiveDocument.FormFields("indicateur").Result, _
; ActiveDocument.FormFields("CaseAnCiv").Result
Close #1

Merci à tous ceux qui peuvent m'aider, ça fait 1 semaine que je gosse là
dessus.

3 réponses

Avatar
Geo

Je n'y connais pas grand chose, mais je mettrais bien le ; entre "",
c'est à dire :

Write #1, _
ActiveDocument.FormFields("NoFiche").Result _
& ";" & ActiveDocument.FormFields("NoResult").Result _
& ";" & ActiveDocument.FormFields("indicateur").Result _
& ";" & ActiveDocument.FormFields("CaseAnCiv").Result
Close #1


qui donnerait comme résultat :
"NoFiche;NoResult;indicateur;CaseAnCiv"

Puisque tu y vas à tâtons
essaie des fichiers avec le bloc note, jusqu'à avoir le résultat
escompté, puis essaie de la générer avec word.
Là tu cumules les deux difficultés.
Pour la première partie tu pourrais te faire aider sur le forum Access.

--
A+

Avatar
larval01
Merci beaucoup!
C'était niaiseux mais je le voyais pas. Quand ça fait longtemps que tu
gosses sur quelques choses, tu vois plus clair.
Encore Merci!

--
VAll




Je n'y connais pas grand chose, mais je mettrais bien le ; entre "",
c'est à dire :

Write #1, _
ActiveDocument.FormFields("NoFiche").Result _
& ";" & ActiveDocument.FormFields("NoResult").Result _
& ";" & ActiveDocument.FormFields("indicateur").Result _
& ";" & ActiveDocument.FormFields("CaseAnCiv").Result
Close #1


qui donnerait comme résultat :
"NoFiche;NoResult;indicateur;CaseAnCiv"

Puisque tu y vas à tâtons
essaie des fichiers avec le bloc note, jusqu'à avoir le résultat
escompté, puis essaie de la générer avec word.
Là tu cumules les deux difficultés.
Pour la première partie tu pourrais te faire aider sur le forum Access.

--
A+






Avatar
Geo

Merci beaucoup!
C'était niaiseux mais je le voyais pas. Quand ça fait longtemps que tu
gosses sur quelques choses, tu vois plus clair.


Faut dire que le vba a accpeté deux séparateurs de liste différents, ce
qui est un peu permissif il me semble.
Content d'avoir pu t'aider.

--
A+