Ouvrir un fichier texte sur UltraEdit via VBA

Version imprimable

19/04/2013, 15h48
mah.ngaz

Ouvrir un fichier texte sur UltraEdit via VBA

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.

bonjour ...

voir shell ..:

Code:

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

bonjour bbil,

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

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.

19/04/2013, 16h24
SfJ5Rpw8

Citation:

Envoyé par mah.ngaz

...
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.
19/04/2013, 16h31
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
19/04/2013, 16h49
SfJ5Rpw8

non ...

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

Code:

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:

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)