Création d'un fichier txt avec une table Access

**watred** · 15/09/2016, 20h31

Bonjour j'ai fait une macro pour créer un fichier txt à partir d'une feuille excel, je voulais savoir comment faire la même chose avec acess voici ma macro:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
Public Sub Creationtxt()
Dim l_Ligne As Integer
Dim l_OutputLine As Integer
 
    Call CreateWorksheet(cSheetOutputs)
    Call SelectSheet(cSheetInputs)
    l_Ligne = cFirstLine
    Worksheets(cSheetOutputs).Cells(1, 1) = "<CECI EST LE CODE"?>"
    Worksheets(cSheetOutputs).Cells(3, 1) = "<A TRANSMETTRE">"
    Worksheets(cSheetOutputs).Cells(4, 1) = "  <VALEUR type=""text"">"
    Do While (IsCellEmpty(l_Ligne, cColumnA) = False)
        l_OutputLine = PrintCreatetxt(l_Ligne)
        l_Ligne = l_Ligne + 1
    Loop
    MsgBox l_Ligne
    Worksheets(cSheetOutputs).Cells(l_OutputLine + 1, 1) = "  </FIN>"
    Worksheets(cSheetOutputs).Cells(l_OutputLine + 2, 1) = "</FIN>"
 
 
End Sub
Private Function PrintCreatetxt(p_Line As Integer) As Integer
Dim l_OutputLine As Integer
Dim l_Dn As String
 
    l_Dn = Worksheets(cSheetInputs).Cells(p_Line, cColumnDN)
 
    l_OutputLine = ((p_Line - 2) * cNbLinePerBloc) + 5
    'Worksheets(cSheetOutputs).Cells(l_OutputLine, 1) = "<?VERSION?>"
    'Worksheets(cSheetOutputs).Cells(l_OutputLine , 1) = "<!valeur'>"
    'Worksheets(cSheetOutputs).Cells(l_OutputLine + 2, 1) = "<et">"
    'Worksheets(cSheetOutputs).Cells(l_OutputLine + 3, 1) = "<et">"
    Call PrintCreateDN(p_Line, l_OutputLine)
 
    PrintCreatetxt = l_OutputLine
 
End Function
Private Sub PrintCreateDN(p_inputLine As Integer, p_outputLine As Integer)
Dim l_BTS As Integer
 
Dim l_a As String
Dim l_b As Integer
Dim l_c As Integer
 
     l_a = Worksheets(cSheetInputs).Cells(p_inputLine, cColumna)
     l_b = Worksheets(cSheetInputs).Cells(p_inputLine, cColumnb)
    l_c = Worksheets(cSheetInputs).Cells(p_inputLine, cColumnc)
   l_d = Worksheets(cSheetInputs).Cells(p_inputLine, cColumnd)
 
 
    Worksheets(cSheetOutputs).Cells(p_outputLine, cColumnDN) = "    <class=""A"" et=""20"" dir=""val-" & a & "/a-" & b & "/b-" & c & "/c" & d & """ operation=""fin""/>"
End Sub
Private Sub CreateWorksheet(ByRef p_Name)
 
    DeleteWorksheet (p_Name)
    Sheets.Add after:=Worksheets(Worksheets.Count)
    ActiveSheet.Name = p_Name
 
End Sub
 
Private Sub DeleteWorksheet(ByRef p_Name)
 
Application.DisplayAlerts = False
    On Error Resume Next
    Sheets(p_Name).Delete
Application.DisplayAlerts = True
 
End Sub
 
Private Sub SelectSheet(ByRef p_Name)
    Sheets(p_Name).Activate
End Sub
 
Private Function IsCellEmpty(p_Line As Integer, p_column As Integer) As Boolean
 
    If (Len(Cells(p_Line, p_column)) > 0) Then
        IsCellEmpty = False
    Else
        IsCellEmpty = True
    End If
 
End Function

merci

Invité · 16/09/2016, 17h08

Bonjour

Il manque quelques informations :

C'est une table Access avec la même structure que ton fichier Excel ?
C'est à partir d'Access que tu veux exporter ton fichier Excel ?

Un exemple du fichier texte en sortie serait pas mal.

Philippe

**watred** · 16/09/2016, 17h23

Bonjour et merci de ton retour
il s'agit d'un fichier texte qu'on va compléter avec les infos cellules de la table acess en sortie et l’enregistrer sur le bureau le-fichier finale doit être de cette forme :

Code xml :

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

1
2
3
4
5
6
7
<?txt version="1.0" ceci est le code ?>
 
  <Data type="text">
 
    <Object class="a" valeur="20" Name="valeur de a -$a1 /valeur de b $B1 /valeur de c $c1 " operation="valeur />    
  </fin>
</fin >

avec dans les A1 ET B1 ET C1 les valeurs des cellules en boucle en onction de données

merci

**watred** · 16/09/2016, 21h02

Bonjour,
Je me réexplique car il me semble que c’est peu claire pour vous :
Je possède un fichier Excel de cette forme :

Nom	Prénom	âge	type
Alain	Pierre	24	H
David	Vincent	43	H
LAURENT	Julien	23	H
Leclerc	Laure	53	F

Ceci me génère 2 fichiers txt,(me proposant de les enregistré sur un path) 1 nommé H ou on trouvent :
Le nom de la personne est Alain son prénom est pierre son âge es de 24
Le nom de la personne est David son prénom c’est Vincent son âge est de 43
… ect en fonction du nombre des cellules
Et un autre fichier txt nommé F avec les mêmes donnes des femmes :
Le nom de la personne est LECLERC sont prénom est laure son âge est de 53.
La macro que j’avais cité fait bien le travail pour Excel mais pas pour acess
Merci

Invité · 16/09/2016, 21h15

Bonsoir,
Tu nous parles d'un fichier texte qui ressemble étrangement à du xml sans vraiment en être.
Avec des données dont on ne connait pas la provenance, transitant par Excel, on ce demande pourquoi;
Pour enfin terminer dans un fichier texte!

**watred** · 16/09/2016, 21h20

Bonsoir
Justement le fichier txt fait office d'un xml pour traitement cela c'est le résultat attendu, mais avant d'arriver à ce fichier
il faut que j'adapte ma macro d'ou ma demande

Invité · 17/09/2016, 05h46

Re

Donc si j'ai bien compris, tes données sont dans une table.

Une solution serait une requête pour filtrer les hommes des femmes.
Ensuite utiliser cette requête et parcourir les enregistrements avec un recordset DAO par exemple (il y a un tutoriel sur le sujet).
Et crée ton fichier texte ligne par ligne (il y a un tutoriel sur le sujet).

Pour les tutos il y a un lien en haut de cette page.

Sinon si c'est du vrai xml il y a des exports possibles, mais pas pour toutes les versions.

Et si je n'ai pas compris et que tes données sont dans Excel et que tu veux faire le code dans Access, en fait tu as déjà tout, car tu peux piloter Excel à partir d'Access (exemples de pilotage dans la FAQ).

Philippe

Invité · 17/09/2016, 16h18

Envoyé par watred

Bonsoir
Justement le fichier txt fait office d'un xml pour traitement cela c'est le résultat attendu, mais avant d'arriver à ce fichier
il faut que j'adapte ma macro d'ou ma demande

Bonjour,
Il faut créer une macro de toutes pièces, pas adapter la macro qui même dans Excel n'a aucun sens!

Il faut déjà ta requête, si tu ne sais pas comment faire, on va t'aider.

Code :

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

1
2
3
4
5
6
dim Sql as string
Sql="Select [Nom],[Prenom],[les autre champs] from [TA TABLE]"
Set Requete=CurrentDb.OpenRcodset(Sql)
While rs.eof=false
Rs.movenext
Wend

**watred** · 18/09/2016, 17h23

RE bonjour jai suivi le uto que tu m'a donné , et je suis bloqué dans une boucle
acess lis bien s mes valeurs et les stock dans la table que je voulais mais il plante dés qu'il ya une cellule vide
voici le code

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
Set rst = CurrentDb.OpenRecordset("SELECT * FROM Champ WHERE Position_CSV <> -1 AND Table = '" & TableName & "' Order by OrderIndex")
    If rst.RecordCount > 0 Then
        While Not oTxt.AtEndOfStream
            ligne = oTxt.ReadLine
            'Debug.Print Ligne
 
            strArray = Split(ligne, ";")
 
            Set rst2 = CurrentDb.OpenRecordset(TableName)
            rst2.AddNew
 
            rst.MoveFirst
            Do While Not rst.EOF
               data = Replace(strArray(rst!Position_CSV), """", "")
                 'If strArray(rst!Position_CSV) <> "" And strArray(rst!Position_CSV) <> """""" Then
                If data <> "" Then
                    rst2(rst!Champ).Value = data
                End If
                rst.MoveNext
            Loop
            rst2.Update
        Wend
    End If
 
    oTxt.Close

Avez vous une idee pour sauter ces cellules vide et finir de copier toute la colonne
merci

Invité · 18/09/2016, 22h53

Bonjour,

Dans le code que tu présentes je ne vois ni la table Sur laquelle point ta requête ni la notion de fichier texte!

Présentes le contenu d'un fichier texte et un imprime écran de la structure de ta table!

Code :

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

1
2
3
4
5
6
7
8
 
dim Sql as string, Txt as string 
Sql="SELECT * FROM [TableName] Champ WHERE Position_CSV <> -1 Order by OrderIndex")
    Set Requete=CurrentDb.OpenRcodset(Sql)
While rs.eof=false
Txt=txt & rd("nom") & ";" & rs("prénom") & vbcrlf
Rs.movenext
Wend

une fois Txt rempli pour toute la table on pourra écrire dans un fichier texte!

Sais tu au moins faire une requête avec le générateur de requête d'Access?

Et est ce que au moins une table contient les informations pour générer ton fichier texte si oui quelle est son nom?

Ne tentes pas de reproduire dans Access le code que tu avais dans Excel celui la est nul à chier!

**watred** · 18/09/2016, 23h05

Je ne suis pas arrivé encore à cette phase
Je suis dans la phase de parcourir les tables dont j'ai besoin,sauf que acess suand il va chercher la table csv dès qu'il trouve un chalons vide il beug,cest pour ca il me sort une erreur dans le code cen dessus.

**watred** · 18/09/2016, 23h06

Un champs vide

Invité · 19/09/2016, 07h07

Bonjour,
Les champs vide ne posent pas de problème sauf pour le split!

Les champs nul si if "" & champs <> ""

Code :

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

Sipli("" & champs  # ";",";")

**watred** · 19/09/2016, 13h56

Envoyé par rdurupt

Bonjour,
Les champs vide ne posent pas de problème sauf pour le split!

Les champs nul si if "" & champs <> ""

Sipli("" & champs # ";",";")

Je ne trouve pas comment on peut intégrer cela à mon code
Peux tu détailler?
merci

**Pierre Fauconnier** · 19/09/2016, 14h08

Salut.

Tu aurais intérêt à travailler avec des objets (ou des structures) et à découpler ton travail:
une procédure qui ouvre le fichier texte puis le referme en fin de lecture;
une procédure qui récupère chaque enregistrement de ta table;
une procédure qui transforme cet enregistrement en chaine de caractères;
une procédure qui enregistre cette chaine dans ton fichier texte;

Ce serait BEAUCOUP plus simple.

**Pierre Fauconnier** · 19/09/2016, 14h09

Autre piste:

Si ta table est assez simple, peut-être l'exporter en text en enregistrant l'export puis se servir de celui-ci en vba...

Invité · 19/09/2016, 14h10

tous est dans le code que tu as fournis!

Code :

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

strArray = Split(ligne, ";")

**watred** · 19/09/2016, 14h22

Envoyé par rdurupt

tous est dans le code que tu as fournis!

Code :

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

strArray = Split(ligne, ";")

Oui je remplace cette ligne par quoi?

**watred** · 19/09/2016, 14h23

Envoyé par Pierre Fauconnier

Salut.

Tu aurais intérêt à travailler avec des objets (ou des structures) et à découpler ton travail:
une procédure qui ouvre le fichier texte puis le referme en fin de lecture;
une procédure qui récupère chaque enregistrement de ta table;
une procédure qui transforme cet enregistrement en chaine de caractères;
une procédure qui enregistre cette chaine dans ton fichier texte;

Ce serait BEAUCOUP plus simple.

Merci pour ces pistes

**Pierre Fauconnier** · 19/09/2016, 15h48

Basiquement, voici comment coder un export txt sur base d'une table de la base Access courante... Le reste, ce n'est jamais que du formatage de données pour préparer la ligne. Après, on peut enjoliver avec un objet qui récupère l'enregistrement et qui propose une propriété qui crée la ligne, mais l'apport technologique est assez faible. Si une donnée pose problème pour son écriture en chaine de caractère (une date, par exemple), il existe des fonctions qui permettent une conversion aisée.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Function Export_Txt()
  Dim rs As DAO.Recordset
 
  Open "d:\export.txt" For Output As #1
 
  Set rs = CurrentDb.OpenRecordset("contact")
  Do While Not rs.EOF
    Print #1, rs.Fields("id") & ";"; rs.Fields("Prenom") & ";" & rs.Fields("nom")
    rs.MoveNext
  Loop
  Close #1
End Function

Création d'un fichier txt avec une table Access [Toutes versions]

VBA Access

Discussions similaires

Partager

Partager