Discussion :

[bdel1724]

Bonjour,
Je dois importer le fichier texte ci-joint. Ensuite je dois le modifier dans Access et finalement l'exporter à nouveau dans un fichier texte en gardant exactement le même format que celui de l'import (ou original)
Je n'y arrive pas. Est-ce que quelqu'un peut m'aider
Merci d'avance
BDel

[hyperion13]

Salut. Et le fichier final après modification devrait ressembler à quoi ?

[bdel1724]

Salut,
Désolé pour le retard de ma réponse.
Le fichier de sortie doit avoir le même format que le fichier d'entrée

[EricDgn]

Bonjour,
Une solution est de procéder de la façon suivante:
1) lier le fichier Catl2.txt à Access à l'aide de l'assistant Attache de texte (bouton "Fichier texte" dans le groupe "Importer" de l'onglet "Données externes")
Dans la fenêtre, cliquer sur le bouton "Avancé..." pour ouvrir la fenêtre "Spécification d'attache" et là, pour le champ "Page de codes:" sélectionner "OEM Multilingual Latin I"

et cliquer sur OK (les accents apparaissent alors correctement), puis poursuivre la procédure d'attache (bouton "Suivant" et "Terminer")
On a ainsi une table attachée 'Catl2' ... dont les données ne sont pas modifiables.
2) créer une table Access normale 'tCatl' qui est à l'image de la table liée, en y spécifiant correctement les types de données (texte, date, ...) et leurs formats.
3) alimenter cette table 'tCatl' avec les données de la table liée 'Catl2' à l'aide d'une requête ajout du genre:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
INSERT INTO tCatl ( Champ1, Champ2, Champ3, Champ4, Champ5, Champ6, Champ7, Champ8 )
SELECT Catl2.Champ1, Catl2.Champ2, Catl2.Champ3, Catl2.Champ4, Catl2.Champ5, Catl2.Champ6, Catl2.Champ7, Catl2.Champ8
FROM Catl2;

4) créer un formulaire 'fCatl' sur base de la table normale 'tCatl'
5) utiliser ce formulaire pour traiter les données.
6) y ajouter des boutons pour
d'une part importer les données

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
Private Sub btnImport_Click()
   DoCmd.RunSQL "DELETE * FROM tCatl"
   Me.Requery
   DoCmd.OpenQuery "Catl2 vers tCatl"
   Me.Requery
End Sub

d'autre part exporter les données dans le même format que celui de départ:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
Private Sub btnExport_Click()
   DoCmd.TransferText acExportDelim, , "tCatl", "Catl2bis.txt", False, , 850
   '--- <a href="https://docs.microsoft.com/fr-fr/windows/desktop/Intl/code-page-identifiers" target="_blank">https://docs.microsoft.com/fr-fr/win...ge-identifiers</a>
End Sub

C'est la valeur 850 attribuée au paramètre PageCode qui permet d'avoir la même présentation des lettres accentuées en sortie.
En attaché, un exemple. Pour l'utiliser il faudra "réattacher" convenablement le fichier Catl2.txt
Bonne continuation.

[EricDgn]

P.S. Il doit être possible de remplacer les étapes 1 + 3 (en se passant de la table liée et de la requête ajout) en utilisant une instruction du genre

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

DoCmd.TransferText acImportDelim, , "tCatl", "Catl2.txt", False, , 850

Cdt