Sujet Précédent Sujet Suivant

Macro ouvre un fichier.txt sous notepad

Résolu/Fermé
Ludivine - 17 févr. 2012 à 13:12
 Ludivine - 20 févr. 2012 à 15:33
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 881 Date d'inscription mardi 10 août 2010 Statut Membre Dernière intervention 16 avril 2024 333
17 févr. 2012 à 19:49
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 17185 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 15 avril 2024 1 701
17 févr. 2012 à 16:36
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
20 févr. 2012 à 15:33
Merci beaucoup à tous, ça fonctionne parfaitement !!
0