XL 2016 Ouvrir un fichier txt avec Notepad

[epeter]

Bonjour je souhaite ouvrir un fichier txt avec Notepad depuis une macro excel VBA. J'ai créé le code suivant mais quand je l'exécute il me mets un message comme quoi ma macro est malveillante. Comment solutionner le problème ?

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:\Users\manep\Downloads\PICT.txt"
Set WsShell = CreateObject("WScript.Shell")
WsShell.Run "NotePad " & sFichier
Set WsShell = Nothing
End Sub

 

[Dudu2]

Bonjour,

un message comme quoi ma macro est malveillante

Pas chez moi.
Qui t'envoie ce message ? L'anti-virus ? Pourquoi ne mets-tu pas ici un screenshot de ce message ?

 

[epeter]

Bonsoir c'est bien un message de l'antivirus (voir PJ)

 

[epeter]

Je pense qu'en fait c'est plutôt Office qui bloque pourtant les emplacements de mes fichiers sont bien déclarés comme fiables dans le gestionnaire de confidentialité d'excel.

 

[Dudu2]

Quelles versions de Windows et d'Office ?

 

[epeter]

Je suis en Windows 10 et Excel 2016

 

[Dudu2]

Et si tu récupères mon fichier ?

 

[epeter]

Ca marche avec ton fichier

 

[Dudu2]

Doit y avoir un code autre dans ton fichier, ou tu es parti d'un classeur existant à problèmes.
Je ne sais pas pourquoi tu as eu ça.
Oublie et passe à la suite

 

[epeter]

Il manquait .exe au Notepad !!! merci