Macro ouvre un fichier.txt sous notepad

Résolu
Ludivine -  
 Ludivine -
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!)
A voir également:

3 réponses

Réponse 1 / 3
cousinhub29 Messages postés 1074 Date d'inscription   Statut Membre Dernière intervention   361
 
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
3
Réponse 2 / 3
f894009 Messages postés 17277 Date d'inscription   Statut Membre Dernière intervention   1 713
 
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\notepad.exe " & Chr(34) & "D:\_Docs\Test\shell_\RVCHUT.TXT" & Chr(34)
t = Shell(x, vbNormalFocus)
End Sub

Bonne suite
0
Réponse 3 / 3
Ludivine
 
Merci beaucoup à tous, ça fonctionne parfaitement !!
0