Discussion :

[Tancuda]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
 
Sub open_prog()
Workbooks.Open Range("m51").Value & ".txt"
End Sub

[SfJ5Rpw8]

Bonsoir,

Utilise shell

[kiki29]

Salut, à adapter au contexte

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[Tancuda]

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.

[kiki29]

Salut,

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

sFichier = Feuil1.Range("M51")

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

[Marc-L]

Bonjour,

voir aussi avec DocOpen …



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