Requête Access VBA sur zdl sélection étendue

Bonjour à tous,

Je réalise actuellement une base de données sous Access 2007.
Je cherche à faire une requête (requête créee sans VBA) qui s'exécute sur la base d'un formulaire dans lequel on retrouve une zdl (Liste10) qui regroupe les critères (villes) de ma requête sélection.

J'ai donc écrit le code suivant :

Function Extraction_fichiers_communes_Extraction_fichier_commune()
On Error GoTo Extraction_fichiers_communes_Extraction_fichier_commune_Err

Dim ligne As Integer
Dim valeur As Variant
Dim colonne As Integer
DoCmd.SetWarnings False

' Colonne de la zone de liste dans laquelle se situe l'informationcolonne = 0

' Parcours de la zone de liste
For ligne = 0 To Forms("MON FORMULAIRE").Liste10.ListCount - 1
If Forms("MON FORMULAIRE").Liste10.Selected(ligne) Then
' Si la ligne est sélectionnée, on stocke sa valeur dans la variable "valeur"
valeur = Forms("MON FORMULAIRE").Liste10.Column(colonne, ligne)

' Transfert de ma requête vers un fichier Excel
DoCmd.TransferSpreadsheet acExport, 10, "MA REQUETE", "MON CHEMIN, True, ""

End if
Next ligne

MsgBox "fin"

Cela fonctionne pour le mieux lorsque ma zdl a pour propriété (Sélection multiple) : AUCUN

Cependant, lorsque je souhaite la passer en (Sélection multiple) : ETENDU
Cela ne marche plus. J'ai une exportation avec 5 fichiers Excel vierges si j'ai sélectionner 5 valeurs dans ma zdl.

J'ai donc inséré une MsgBox me renvoyant ma variable valeur à chaque itération : elle m'affiche bien le résultat escompté, à savoir le nom de la ville sélectionné à chaque itération.

La boucle semble donc bien fonctionner. Le problème vient-il de mon transfert de requête ? Dois-je exécuter la requête en vba avant ?
Si oui, pouvez-vous m'orienter sur le code à formaliser pour lancer une requête SQL dans un module VBA ?


Par avance merci

SandrillonC