Discussion :

[Marco_SAP]

Bonjour,

J'essaie de créer une procédure en VBA pour lire un fichier texte "actif" à l'écran.

Mon application Access lit un fichier texte qui est un script SQL classique (renvoie à la ligne des instructions + commentaires).
La procédure lit le fichier texte, supprime les retours à la ligne et les commentaires puis éxécute un docmd.runsql.

J'ai crée une procédure pour rechercher le fichier texte à lancer et ça marche impecablement.

Maintenant, je veux lancer mon script à partir de mon éditeur, en l'occurence Ultraedit. Pour vela je tape la commande "C:\Program Files\Microsoft Office\OFFICE11\MSACCESS.EXE" "C:\Mes documents\reports.mdb"

Mais comment faire pour que mon appli Access arrive à lire le fichier texte actif à l'écran ?

Merci

Marco

[Tofalu]

Access ne peut pas lire un fichier SQL comme cela.

Il faut lire ligne à ligne avec le FSO et lancer les requêtes une à une.

[mout1234]

As-tu explorer les possiblités de la ligne de commande ... et notamment l'option /cmd qui te permet de lancer une macro précise au démarrage... je n'ai jamais essayé mais il ya peutêtre moyen de lui fournir le nom du fichier (qu'il reste à déterminer ...)

[Marco_SAP]

Je peux t'assurer que mon lanceur de script marche super, c'est juste de la transformation de texte: un point virgule marque la fin d'une instruction et un double trait un commentaire... bien sur cela ne fonctionne qu'avec les instructions de type DDL:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
Public Sub ExecuteSQLScript(NomFichier As String)
   On Error GoTo SQLError
   Dim db As Database
   Dim query As QueryDef
   Dim SQLStatement As String
   Dim ScriptLine As String
   Dim StopOrResume As Integer
 
   Set db = CurrentDb()
 
   Open NomFichier For Input As #1
   Do While Not EOF(1)
 
      SQLStatement = ""
      Line Input #1, ScriptLine
      ScriptLine = Trim(ScriptLine)
 
      If Left(ScriptLine, 2) <> "--" Then    
          SQLStatement = SQLStatement & " " & ScriptLine
          Do While (Not EOF(1)) And (ScriptLine <> "") And (Right(SQLStatement, 1) <> ";")
              Line Input #1, ScriptLine
              ScriptLine = Trim(ScriptLine)
              SQLStatement = SQLStatement & " " & ScriptLine
          Loop
          SQLStatement = Trim(SQLStatement)
      End If
 
      If SQLStatement <> "" Then
          db.Execute SQLStatement
      End If
   Loop

[Marco_SAP]

Effectivement, j'ai résolu ce premier pb en créant une macro autoExec pour lancer ma procédure.

As-tu explorer les possiblités de la ligne de commande ... et notamment l'option /cmd qui te permet de lancer une macro précise au démarrage... je n'ai jamais essayé mais il ya peutêtre moyen de lui fournir le nom du fichier (qu'il reste à déterminer ...)

[mout1234]

une autre piste .... j'ai vu une fois ou deux des solutions pour lancer un compactage d'une base Acces par clic droit sur le fichier dans l'explorer... peut être qu'en s'inspirant de ces astuces (qui s'inscrivent dans la base de registre ...) tu pourrais faire une commande similaire à partir d'un fichier texte ...

Quant à pouvoir lancer à partir du texte à l'écran... il faut vraissemblablement passer par des APIs... mais cela me parait utopique et risqué...

[Marco_SAP]

D'accord avec sur l'utilisation des APIs, j'ai pas les compétences...
Je vais essayer de coutourner le pb: Ultradit me propose une option de sauvegarde automatique de mon fichier avant de lancer mon appli
Je vais essayer de determiner quel est le fichier ouvert dans un répertoire donné, puis ensuite je déterminerais le chemin complet du fichier.
Reste à savoir comment tester si un fichier est ouvert !

une autre piste .... j'ai vu une fois ou deux des solutions pour lancer un compactage d'une base Acces par clic droit sur le fichier dans l'explorer... peut être qu'en s'inspirant de ces astuces (qui s'inscrivent dans la base de registre ...) tu pourrais faire une commande similaire à partir d'un fichier texte ...

Quant à pouvoir lancer à partir du texte à l'écran... il faut vraissemblablement passer par des APIs... mais cela me parait utopique et risqué...

[Marco_SAP]

je n'ai pas trouvé comment tester si un fichier est ouvert.

Je pars sur la stratégie suivante:

Je paramète Ultraedit pour qu'il renregistre automatiquement mon fichier texte avec le lancement de mon appli Access. Puis je lis les dates de modification (DateLasteModified) de tous les fichiers d'un répertoire donné, enfin j'ouvre le plus récent.

Alambiqué, mais je n'ai pas trouve autre chose !

Toutes les autres idées sont les bienvenues

[Strontium]

Est-ce que dans Ultraedit, dans tes macros, tu peux lui indiquer le fichier en cours (ou ne le fait-il pas tout seul?)

en gros il faudrait générer la ligne de commande

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
"C:\Program Files\Microsoft Office\OFFICE11\MSACCESS.EXE" "C:\Mes documents\reports.mdb" ; "fichier"

avec la comand "Command()" de vba, tu as le fichier à parser et c'est bon

[Marco_SAP]

Oui, on peut ajouter "%N" dans la ligne de commande pour indiquer le fichier en cours. Je vais tester...

Est-ce que dans Ultraedit, dans tes macros, tu peux lui indiquer le fichier en cours (ou ne le fait-il pas tout seul?)

en gros il faudrait générer la ligne de commande

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
"C:\Program Files\Microsoft Office\OFFICE11\MSACCESS.EXE" "C:\Mes documents\reports.mdb" ; "fichier"

avec la comand "Command()" de vba, tu as le fichier à parser et c'est bon

[Marco_SAP]

Impecable, j'ai ajouté ; %f à la fin de la ligne de commande pour obtenir le chemin avec le nom complet:

"C:\Program Files\Microsoft Office\OFFICE11\MSACCESS.EXE" "C:\Mes documents\reports.mdb" ; %f

Et j'ai ajouté dans mon code VBA "Fichier = Command sans les parenthéses

Merci beaucoup de votre aide

Marco