Re bonjour
Pour éviter des noms de fichiers contenant des espaces, j'ai ajouté:
' Replace spaces with underscores in filenames.
cNewFileName = Replace(cNewFileName, " ", "_")
Au passage, j'ai noté qu'il n'ignore pas les champs signalés par "9", il importe
tout mais ce n'est pas grave, ca marche :-)
Alain