Ouvrir mon fichier avec notepad

Rebonjour, j'ai une petite macro qui ouvre un fichier .txt dont le chemin complet est dans la cellule m51, mais je voudrais juste
que le fichier s'ouvre avec Notepad au lieu de Excel.

Merci mes experts !!

Voici la macro:

Code:

---

1 2 3 4

Sub open_prog() Workbooks.Open Range("m51").Value & ".txt" End Sub

---

Bonsoir,

Utilise shell :f1:

Salut, à adapter au contexte

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12

Option Explicit   Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long Private Const SW_SHOWNORMAL = 1   Sub Tst() Dim sFichier As String, WsShell As Object sFichier = "C:\Essai.txt" Set WsShell = CreateObject("WScript.Shell") WsShell.Run "NotePad " & sFichier Set WsShell = Nothing End Sub

---

Merci kiki29, c'est parfait, mais je veux ouvrir le fichier en spécifiant une cellule qui comprend le nom de fichier.

Merci encore et désolé pour mon ignorance sur ce forum, les balises et tous ça, je comprends pas trop, mais je vais allez lire mes messages privés.

Salut,

Code:

---

sFichier = Feuil1.Range("M51")

---

avec dans Feuil1.Range("M51") qqch comme C:\Faq\Exemples\Essai.txt

Bonjour,

voir aussi avec DocOpen …



______________________________________________________________________________________________________
Je suis Paris, Charlie, Bardo, Sousse, Kenya Garissa University, Liban, Mali, …

Merci kiki29, et merci pour tes réponses simple, je suis très débrouillard mes très très débutant en Vba, et j'ai eu juste à changer Feuil1 pour Sheets1 par contre, j'ai trouvé ça (Yé !!) en regardant mes autres macros, bizarre mon excel est en français !!

Merci aussi aux autres.

Salut, à titre documentaire il s'agit du CodeName

L'usage du CodeName permet de modifier les noms d'onglet, de déplacer les feuilles sans avoir à retoucher au code VBA.