Workbooks.OpenText ...README.txt

[Temjeh]

Bonjour à tous

Je cherche une facon d'ouvrir un fichier texte par vba....pas dans excel mais qu'il me le montre de sa facon normal comme si je l'ouvre sans excel.

Ceci me l'ouvre mais dans un claseur!
Workbooks.OpenText FileName:=ActiveWorkbook.Path & '\\' & 'README.txt'


Merci beaucoup

Temjeh

 

[Dan]

Bonjour,

Suis ce lien --> Lien supprimé.
cet exemple s'adresse à un fichier Word.

 

[Temjeh]

Merci beaucoup Dan

Quel est mon erreur pour readme dans même dir dans :

Dim Cible As String
Cible = Shell('Winword.EXE 'ActiveWorkbook.Path' & '\\' & 'README.txt''', 1)

Temjeh

 

[Temjeh]

Temjeh écrit:

Merci beaucoup Dan

Quel est mon erreur pour readme dans même dir dans :

Dim Cible As String
Cible = Shell('Winword.EXE 'ActiveWorkbook.Path' & '\\' & 'README.txt''', 1)

Temjeh

Désolé les slash barre ne se voie pas
Dim Cible As String
Cible = Shell('Winword.EXE 'ActiveWorkbook.Path' & '/' & 'README.txt''', 1)

 

[Dan]

Re,

Je ne peux pas controler pour l'instant mais après après Winword.exe, il manque un ' je crois.

 

[Temjeh]

Merci Dan j'ai vue mon erreur je ne chargais pas le directory(je vais faire mon readme en html)

ChDir ThisWorkbook.Path
Dim Cible As String
Cible = Shell('explorer.exe ''README.html'' ', 1)

A+

Temjeh

 

[Dan]

OK Temjeh. Pas de pb.
Bonne nuit.