Suite à cette discussion (avec moi même) j'ai le problème suivant:
Un client m'envoie un fichier en .xls, cependant celui-ci est détecté comme un fichier texte unicode par Access (ce qu'il est en vérité).

Je souhaiterais savoir s'il est possible de convertir un fichier .txt en .xls dynamiquement (autrement qu'en l'ouvrant avec Excel et en utilisant "enregistrer sous").

Dans l'idéal je cherche :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
 
on error goto Erreur:
    Fichier = (CurrentProject.Path & "\926.XLS")
import:
    DoCmd.TransferSpreadsheet acImport, acSpreadsheetTypeExcel8, "import_926", Fichier, False
 
Erreur:
select case err.number
 
case 3274' Le fichier n'est pas dans le format attendu, c'est un "faux" xls
convertir le fichier
goto import:
PS: J'ai pensé à utiliser systématiquement docmd.transferttext mais certains des fichiers du client sont effectivement au format Excel: un vrai casse tête.

Merci d'avance.