Discussion :

[mah.ngaz]

Bonjour,

Quelqu'un saurait comment ouvrir un fichier texte sur UltraEdit via VBA?

Je m'explique: J'aimerais le faire dans une procédure qui effectue un test et dans le cas ou le test s'avère positif, il faudrait que cela déclenche l'ouverture d'un fichier texte sur UltraEdit.

Merci d'avance.

[SfJ5Rpw8]

bonjour ...

voir shell ..:

Code :

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

1
2
Dim ret As Long
ret = Shell("C:\Program Files\Notepad++\notepad++.exe D:\tmp\MesDates.csv", vbNormalFocus)

[mah.ngaz]

bonjour bbil,


Voici ce que j'ai inséré dans ma sub:

Code :

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

1
2
3
 
Dim ret As Long
ret = Shell("C:\Documents and Settings\B21037G\Start Menu\Programs\Accessories\Notepad.exe Z:\Live\Gts\Dev\GTS_ALPHALIB\Log\FR-W0121-F2\2013-04-19\20130419_063501_GTSCore_SecData_Values_History_Quotes.txt.err", vbNormalFocus)

Mais cela ne fonctionne pas.

Ai-je omis quelque chose?

Merci de ton aide.

[SfJ5Rpw8]

...
Mais cela ne fonctionne pas....

et alors ? que ce passe-t'il ..?

il est ou ce code dans une procédure ?

le chemin de notepad.exe ne me semble pas être le bon ...! si tu utilise Notepad je pense que tu peu même te passer de ce chemin qui par défaut est mémorisé par la variable Path.

[mah.ngaz]

1) Run time erro '53'
File not found


2) oui, dans une procédure

3) Donc si j'ai bien compris, dans le chemin, au lieu d'écrire :
Shell("C:\Documents and Settings\B21037G\Start Me..........


je devrais écrire:
Shell("C:\Path....?

Merci

[SfJ5Rpw8]

non ...

il faut mettre le bon chemin de notepad.exe ... où rien .. si tu utilise notepad :

Code :

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

ret = Shell("C:\windows\system32\notepad.exe Z:\Live\Gts\Dev\GTS_ALPHALIB\Log\FR-W0121-F2\2013-04-19\20130419_063501_GTSCore_SecData_Values_History_Quotes.txt.err", vbNormalFocus)

ou si le programme concerné (notepad.exe) à un chemin d'accès déclaré dans la variable d'environnement Path :

Code :

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

ret = Shell("notepad.exe Z:\Live\Gts\Dev\GTS_ALPHALIB\Log\FR-W0121-F2\2013-04-19\20130419_063501_GTSCore_SecData_Values_History_Quotes.txt.err", vbNormalFocus)