Discussion :

[DIDIDIDA]

bonjour à tous,

je suis arrivé à la fin de mon application et je veux faire un guide pour utilisateur, j'ai fais une recherche sur internet pour savoir comment on peut construire un help par exemple alors je trouve qu'il faut faire un fichier .hlp, mais le probleme il me faut je crois un le logiciel Workshop! tant pis pour moi. alors j'ai pensé à attacher simplement un fichier word alors si je tape le code suivant ça marche:

Code :

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

1
2
3
4
5
Private Sub CommandButton6_Click()
 
MyAppId = Shell("C:\Program Files\Microsoft Office\OFFICE11\WINWORD.EXE S:\LYNDAYAKOUBEN\OUTILSCONTROLE\help.doc", 1)
AppActivate MyAppId
End Sub

mais le probleme si lutilisateur met l'application dans un autre chemain ça va se planter; lalors j'ai essayé ça

Code :

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

1
2
3
4
5
6
Private Sub CommandButton6_Click()
Dim Direction As String
Direction = ThisWorkbook.Path
MyAppId = Shell("C:\Program Files\Microsoft Office\OFFICE11\WINWORD.EXE " & Direction & "\help.doc", 1)
AppActivate MyAppId
End Sub

mais ça ne marche pas,!!
alors svp si vous avez une idée comment je peut régler ce probleme ou bien comment faire le help avec un logiciel gratuit, je vous serai tres reconnassante, d'ailleur si je suis arrivé à la fin de mon application c'est grace à ce frommerci par vance

[ancel17]

tu as essayé

Code :

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

MyAppId = Shell( Direction & "\help.doc", 1)

[tirex28]

Bonjour,

A essayer en adaptant le nom du chemin du fichier d'aide.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Sub Test()
    Dim WordApp As Object, WordDoc As Object
    Dim NomFichier As String
    On Error GoTo ErrH
    NomFichier = "C:\FichierAide.doc"
    Set WordApp = CreateObject("Word.Application")
    Set WordDoc = WordApp.Documents.Open(NomFichier)
    WordApp.Visible = True
Fin:
    Set WordApp = Nothing
    Set WordDoc = Nothing
    Exit Sub
ErrH:
    MsgBox Err.Number & Err.Description
    Resume Fin
End Sub

Cordialement,

Tirex28/

[Invité]

Bonjour

Quand tu as un problème de chemin, tu peux utiliser l'API ShellExecute (tu trouveras le code en faisant des recherches sur les forums Excel ou Access et les

Pour ton fichier d'aide, fait une recherche sur le net avec HelpNDoc, il s'agit d'un logiciel qui te permet de créer des fichiers d'aides, il y a une version payante et une gratuite ou il y a juste une indication en bas un peu parasite.

Je l'ai utilisé il y a très longtemps pour une application en VB6, c'était simple, mais je ne l'ai pas réutilisé depuis. C'est donc juste une piste.

Starec