Discussion :

[AlexTitou]

Bonjour,

Mon titre n'est peut être pas des plus explicite, je vais donc vous détailler d'avantage mon soucie.

J'ai un classeur Excel servant à la fois via un assez gros Userform de Saisie/Recherche/Edition/Suppression de données qui aura pour but d'être utilisé par des utilisateurs lambda.

L'interface étant assez volumineuse et comportant un bon nombre d'options, j'aurais souhaité attacher un fichier d'aide permettant si besoin est à l'utilisateur d'être accompagné dans l’exécution du programme.

Ma première idée était de faire un fichier Word à part et de demander l’exécution via un CommandButton mais je n'aime pas l'idée de devoir trimbaler une ribambelle de fichiers divers.
C'est donc pour cela que je me trouve vers vous afin de savoir si il est possible d'intégrer un fichier d'aide (Word, pdf ... peu importe) dans mon VBA.

Merci d'avance pour vos réponse,

Cordialement,

Alex Titou

[Daniel.C]

Bonjour,

Pourquoi ne pas utiliser une feuille masquée ?

[Invité]

voir ce tuto si tu veux un vrai Helpeur
http://thierryaim.developpez.com/tutoriel/chm/?page=I

[AlexTitou]

Effectivement Daniel.C je me sent un peu bête du coup, c'est là une solution très simple qui pourrait me dépanner.

RDurupt c'est exactement ce que j'imaginais !

Merci beaucoup pour vos réponses très rapide.

[Menhir]

Sinon, il est tout à fait possible dans du VBA Excel d'utiliser les commandes et objets Word (comme si on codait dans Word) et donc d'ouvrir des fichiers texte avec ce logiciel en automatique.
Il suffit juste, pour ça, d'avoir chargé les routines correspondantes.
Outils -> Référence
Cocher "Microsoft Word Object Library"

[parmi]

Si jamais tu optes pour utiliser un document Word, j'irais comme ceci

Tu déclares L'API suivante en entête de module

Code :

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

1
2
3
4
Public 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

Et dans le code d'une image avec un point d'interrogation, tu mets ceci

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Sub Aide()
    Dim Tmp As Long
    Dim Chemin As String
 
    Chemin = ThisWorkbook.Path  'ou autre
 
    Tmp = ShellExecute(0, "open", Chemin & "\MonFichier.docx", "", "", 0)
    If Tmp = 2 Then
        MsgBox "Impossible de trouver le fichier <MonFichier.docx>" & vbCrLf & _
                "dans le répertoire du programme", vbInformation, "Fichier d'aide"
    End If
 
End Sub