macro ouvre un fichier.txt sous notepad Résolu/Fermé

Question

HEllo,

Je cherche à effectuer une macro sous excel 2007 qui m'ouvre un fichier .txt mais je veux qu'elle me l'ouvre sous notepad.

Le fichier texte est situé dans un sous-répertoire par rapport au fichier excel contenant la macro : \database\fichier.txt

Merci beaucoup par avance !

(J'ai essayé en enregistrant une macro mais pas réussi à que le fichier s'ouvre sous notepad!)

cousinhub29 · Accepted Answer

Bonsoir,

Un essai :

Sub ouvrir_fichier_txt()
Dim FichierTxt As String
Dim Ouvre As Double
FichierTxt = "C:\Users\TonNom\Documents\TonFichier.txt"
Ouvre = Shell("NOTEPAD.EXE " & FichierTxt, 1)
End Sub


Bonne soirée

f894009 · Answer

Bonjour,

 Si vous etes avec XP le chemin de notepad est le bon. Si vous etes sous seven il faudra le modifier.

Il faudra mettre le chemin et le nom de votre fichier

Sub test()
  x = "C:\WINDOWS\system32
otepad.exe " & Chr(34) & "D:\_Docs\Test\shell_\RVCHUT.TXT" & Chr(34)
  t = Shell(x, vbNormalFocus)
End Sub

Bonne suite

Ludivine · Answer

Merci beaucoup à tous, ça fonctionne parfaitement !!

Macro ouvre un fichier.txt sous notepad

3 réponses

Discussions similaires