Bonjour,

J'ai actuellement un problème pour créer une table à partir d'un fichier texte qui contient du code SQL.

j'ai recupéré le code de l'aide pour lire une fichier texte :


Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
 
Sub LireFichier()
    Dim MyChar
    Open "FICHTEST" For Input As #1 'Ouvre le fichier
        Do While Not EOF(1) ' Effectue la boucle jusqu'à la fin du fichier
        MyChar = Input(1, #1) ' Lit un caractère
    Debug.Print MyChar ' Affiche dans la fenêtre Exécution
Loop
Close #1 ' Ferme le fichier
End Sub
Donc pour ca pas de problème la lecture du fichier marche bien.
Maintenant quand je remplace la ligne "Debug.Print Mychar" par la commande " DoCmd.RunSQL Mychar" il me dit : "Instruction SQL non valide; delete, insert, procedure, select ou update attendus".

Or j'ai testé cela ne vient pas du sql puisque en faisant du DoCmd.RunSQL CREATE TABLE dans une autre fonction la table se crée bien.

J'en deduit que cela vient du code de lecture du fichier, peut etre mal mis dans la variable.

je ne sais pas trop comment faire , merci pour votre aide