Discussion :

[watred]

Bonjour,

Je cherche un moyen pour exporter que des lignes avec un filtre de ma table :
C’est-à-dire copier que les lignes avec le critère d’âge à 24 ans :
Exemple de table

Prénom nom AGE
Fabrice LUCAS 24
DAVID dupont 32

Quand j’exécute ce code il m’exporte dans un fichier txt tous les champs :

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
Function Export_txt()
  Dim rs As DAO.Recordset
 
Open "path " For Output As #1
 
  Set rs = CurrentDb.OpenRecordset("tablename")
 
   age= rs.Fields("age").Value
 
 
 
  Do While Not rs.EOF
 
    If age ="24" Then
 
    Print #1, (" l'age est & rs.Fields("age") ")
 
    rs.MoveNext
     Else
Print #1, (" ")
 
 End If
  Loop
 
 
  Close #1
End Function

mon but est déxporter uniquement les champs voulus.
merci

[helas]

Bonjour,
Les déplacements en rouge devraient corriger

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
Function Export_txt()
  Dim rs As DAO.Recordset
 
Open "path " For Output As #1
 
  Set rs = CurrentDb.OpenRecordset("tablename")

  Do While Not rs.EOF
    age= rs.Fields("age").Value
    If age ="24" Then
          Print #1, (" l'age est " & rs.Fields("age"))
          rs.MoveNext
     Else
          Print #1, (" ")
     End If
  Loop
 
 
  Close #1
End Function

Il faut que l'age soit dans la boucle sinon il reste celui du premier enregistrement
Les guillemets étaient mal placés

[Invité]

bonjour,

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Dim Con As Object
Dim Rs As Object
Set Con = CreateObject("adodb.connection")
Con.Open "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & CurrentDb.Name & ";"
Set Rs = Con.Execute("SELECT  'Voici la liste des personnes âgées de 24 ans : ' AS Expr1 , Nom,Prenom FROM tablename where age ='24'")
If Rs.EOF = False Then
    Open "path " For Output As #1
    Print #1, Rs.getstring
    Close
End If
Rs.Close: Set Rs = Nothing
Con.Close: Set Con = Nothing