Bonjour à tous !

Je me permets à nouveau de faire appel à vous pour m'aider à résoudre un problème à l'aide de vos lumières

Je suis dans un formulaire, qui contient des données. Dans ce formulaire, j'ai insérée un sous-formulaire ( les deux tables sont liées ).

Sur ce formulaire principal, j'ai un bouton, qui écrit des données dans un fichier texte ( tout cela fonctionne ), sur base de ce code :

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
Set fs = CreateObject("Scripting.FileSystemObject")
Set a = fs.CreateTextFile(CurrentProject.Path & "\Résultats.txt", True)
 
'Lignes à écrire
a.WriteLine
a.WriteLine ("Test de texte" & me.MONCHAMP.Value )
 
a.Close
 
MsgBox "Le fichier généré a été créé.", vbInformation, "MON APPLICATION"
Je souhaite maintenant écrire plusieurs lignes, qui seraient toutes celles contenues dans mon sous-formulaire.

Comment y arriver ?

Merci de vos réponses.