MuscatMimi
XLDnaute Accro
Bonsoir a tout le Forum
je cherche le code pour ouvrir un fichier txt avec un bouton
merci de votre aide
Cordialement
je cherche le code pour ouvrir un fichier txt avec un bouton
merci de votre aide
Cordialement
Sub o()
Dim retval$
retval = "C:\WINDOWS\SYSTEM32\NOTEPAD.EXE c:\Temp\toto.txt"
Shell retval, vbMaximizedFocus
End Sub
retval = "C:\WINDOWS\SYSTEM32\NOTEPAD.EXE c:\Temp\toto.txt"
Dim retval$, mondossier$, monfichier
mondossier = ThisWorkbook.Path & "\"
monfichier = "toto.txt"
retval = "C:\WINDOWS\SYSTEM32\NOTEPAD.EXE " & mondossier & monfichier
Shell retval, vbMaximizedFocus