VBA : Creation de table à partir de fichier texte

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:

---

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 ;)

Bonjour

Met ton instrucion en dehors de la boucle de lecture pour voir, mychar converti la en srting (cstr) avant

Starec

Merci pour ton aide precieuse

Code:

---

1 2 3 4 5 6 7 8 9 10 11

Sub LireFichier() Dim MyChar As String Mychar = "C" Open "FICHTEST" For Input As #1 'Ouvre le fichier Do While Not EOF(1) ' Effectue la boucle jusqu'à la fin du fichier MyChar = Mychar + Input(1, #1) ' Lit un caractère Loop Close #1 ' Ferme le fichier DoCmd.RunSQL Mychar End Sub

---

La question maintenant que je me pose c'est comment lui faire prendre en compte les ; comme fin et debut d'une nouvelle instruction sql.

Une idée pour m'aider ? merci ;)

C'est bon probleme réglé merci 8-)