Shell

Bonjour René,

Sub test()
Shell "notepad.exe C:TempDiscordances.txt", 1
End Sub

'lSteph
"René" <pasdepub@cegetel.net> a écrit dans le message de news:
%23dSo%2389cFHA.228@TK2MSFTNGP12.phx.gbl...

Bonjour à tous,
je ne sais pas comment...?

Depuis excel , ouvrir le fichier texte "C:TempDiscordances.txt" en
visualisation.

Sub test()
toto = Shell("notepad.exe", 1)
End Sub

Quelqu'un connait-il la commande ?

bonjour rené
avec ceci, tu ouvres notepad :

Shell "C:WindowsNotepad.exe", 1

je ne sais pas si cela peut t'aider
jps

"René" <pasdepub@cegetel.net> a écrit dans le message de
news:%23dSo%2389cFHA.228@TK2MSFTNGP12.phx.gbl...

Bonjour à tous,
je ne sais pas comment...?

Depuis excel , ouvrir le fichier texte "C:TempDiscordances.txt" en
visualisation.

Sub test()
toto = Shell("notepad.exe", 1)
End Sub

Quelqu'un connait-il la commande ?

Bonjour.

De J@C :

Shell "explorer C:TempDiscordances.txt", vbNormalFocus

ou bien :

Shell "start C:TempDiscordances.txt",vbHide

Alain CROS

"René" <pasdepub@cegetel.net> a écrit dans le message de news: #dSo#89cFHA.228@TK2MSFTNGP12.phx.gbl...
| Bonjour à tous,
| je ne sais pas comment...?
|
| Depuis excel , ouvrir le fichier texte "C:TempDiscordances.txt" en
| visualisation.
|
| Sub test()
| toto = Shell("notepad.exe", 1)
| End Sub
|
| Quelqu'un connait-il la commande ?
|
|

Grand merci à LSteph qui m'évite une bonne migraine.

Ça marche !!



Avec ton aide, voici ma bidouille.



Dim commande As String

Dim RetVal



Repertoire = ThisWorkbook.Path & ""



commande = "notepad.exe " & Repertoire & "Discordances.txt"

RetVal = Shell(commande, 1)





MERCI A TOUS...