ouvrir un fichier .txt avec un bouton

[aurel]

Bonjour a tous,
je cherche la syntaxe pour ouvrir un fichier quand je clic sur un bouton.
pour l'histoire c'est un fichier d'aide pour l'utilisation de mon appli

merci d'avance

bonne fin de journée

 

[Staple1600]

Re : ouvrir un fichier .txt avec un bouton

Bonjour


*.hlp ou *.chm ton fichier d'aide?

 

[aurel]

Re : ouvrir un fichier .txt avec un bouton

salut Staple1600
nan nan c'est un fichier .txt que j'ai créé et qui contient qql explication sur l'appli.
Je veux juste l'ouvrir des que je clic sur un bouton de mon userform

 

[RENAUDER]

Re : ouvrir un fichier .txt avec un bouton

Bonjour,
Tu peux essayer cela

Sub AideFacturation()
    Application.Help ThisWorkbook.Path & "\Help\facturation.hlp"
End Sub

 

[aurel]

Re : ouvrir un fichier .txt avec un bouton

Bonjour RENAUDER
nan sa ne marche pas, sa me marque impossible d'afficher la page
et pourtant le chemin est bon

 

[Staple1600]

Re : ouvrir un fichier .txt avec un bouton

Re, bonjour RENAUDER


Pourquoi mettre l'aide dans un fichier txt

Pourquoi pas dans une feuille appelée Aide

Autrement utilises Shell pour ouvrir notepad.exe

Voir dans l'aide VBA.

Adapter exemple fourni avec la calculatrice

 

[RENAUDER]

Re : ouvrir un fichier .txt avec un bouton

Bonjour Aurel,
C'est normal que ça ne marche pas car c'est le code pour un fichier HLP

 

[aurel]

Re : ouvrir un fichier .txt avec un bouton

Bonjour a tous,

Bon j'ai trouvé comment faire voici le code:

'ouvrir le fichier d'aide
Private Sub a_propos_de_Click()
Dim chemin As String
chemin = "D:\Documents and Settings\chass_x1\My Documents\My Pictures\help.txt"
Shell "explorer.exe " & chemin
End Sub

Maintenant mon probleme c que sa ouvre le fichier mais sa ne me le met pas en fenetre principal, juste reduit en bas de l'ecran et j aurais voulu que sa soit directement a l'ecran.

Quelqu'un a t il une petite idée?

Merci d'avance
Bonne jopurnée a tous

 

[Staple1600]

Re : ouvrir un fichier .txt avec un bouton

Bonjour

Regardes dans l'aide VBA d'Excel

La syntaxe de Shell

vbMaximizedFocus 3 La fenêtre est agrandie et activée.

 

[Staple1600]

Re : ouvrir un fichier .txt avec un bouton

Re



En se basant sur l'aide VBA et en adaptant l'exemple

Sub testdd()
Dim RetVal
' Exécute notepad
RetVal = _
Shell("C:\WINDOWS\Notepad.EXE D:\Documents and Settings\chass_x1\My Documents\My Pictures\help.txt", 1)

End Sub

 

[aurel]

Re : ouvrir un fichier .txt avec un bouton

ok, merci a tous sa marche nickel.

Bonne fin de journée a la prochaine