<>«
'Montrer les titres de table pour chaque colonne dans le Recordset
Obscurcir le rowHeader, rowAll, rowPerc
rowHeader = « | «
rowAll = « L'espace | «
rowPerc = « PERC | «
Tandis que pas objRS.EOF
rowHeader = rowHeader et « « et objRS (« ville ») et » | « Et VbCrLf
rowAll = rowAll et « « et objRS (« SpaceAll ») et » | « Et VbCrLf
rowPerc = rowPerc et « « et objRS (« SpacePERC ») et » | « Et VbCrLf
'Avancer le recordset
objRS.MoveNext
Wend
objRS.Close
Placer l'objRS = rien
rowHeader = rowHeader et « « Et VbCrLf
rowAll = rowAll et « |