Discussion :

[SimpleUser]

Bonjour,

J'ai copié le code suivant pour l'adapter à l'ouveture d'un fichier Help .chm à partir d'Excel :

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
17
18
Dim Repertoire As String, Fichier 'As String
    Dim ChmApp As Object, ChmDoc As Object

    Repertoire = "C:\Program Files\Microsoft Office\Office\XLStart\MajRef\"
    Fichier = Dir(Repertoire & "MajRef.chm")
If Fichier = "" Then
    MsgBox "Pas de fichier correspondant"
Else
    If Right(Fichier, 4) = ".chm" Then
        'Ouvre le document
        Set ChmApp = CreateObject("???????????.Application")
        ChmApp.Visible = True
        Set ChmDoc = ChmApp.Documents.Open(Repertoire & Fichier)
        '
        '...
        '
    End If
End If

Le problème c'est que je ne trouve pas le nom de l'application qu'il faut mettre à la place de ??????????? (comme word par exemple pour ouvrir des fichiers .doc)

Merci de votre aide.

[fred65200]

bonjour,

Je crois que l'application qui lance le .chm est hh.exe dans le dossier Windows

je ne sais pas si cette application est pilotable.

cordialement

[SimpleUser]

Bonjour fred65200,

J'ai bien essayé hh.Application mais sans succès.

Je n'ai pas d'autres solutions pour ouvrir ce genre de fichier?

Merci.

[Invité]

Bonjour

Fais un test avec l'API ShellExecute, tu trouveras le code et de nombreux exemples sur le forum Access et la FAQ Access.

[SimpleUser]

Merci Starec, tu m'as emmené à Rome mais tu ne m'as pas montré le Pape.
J'utilise une macro Vb dans Excel. La fonction SjellExecute n'a pas été reconnue. Je n'ai trouvé aucun exemple sur cette fontion dans le forum Acces.

Merci.

[ucfoutu]

Bonjour,

Rome n'est pourtant qu'à 2 pas et Fred62500 t'a donné la solution ...

hh.exe est tel quel reconnu par Windows, sans préciser où il se trouve, s'il est présent.

en conséquence :

Shell ("hh.exe D:\monoutil\aideapinouv\HTMLHELP\coucou.chm"), vbNormalNoFocus

devrait faire l'affaire (il le fait sur ma machine depuis la nuit des temps).

[Invité]

Merci Starec, tu m'as emmené à Rome mais tu ne m'as pas montré le Pape.
J'utilise une macro Vb dans Excel. La fonction SjellExecute n'a pas été reconnue. Je n'ai trouvé aucun exemple sur cette fontion dans le forum Acces.

Merci.

Je t'ai donné toutes les indications pour chercher, le résultat se trouve là :
Comment ouvrir un fichier HTML, Word, PDF ou autre en utilisant l'exécutable associé ?

[SimpleUser]

Merci à tous,

ça marche très bien avec :

Code :

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

Shell ("hh.exe " & Repertoire & Fichier), vbNormalNoFocus

Merci.
@++

[SilkyRoad]

bonsoir

d'autres solutions:

Comment ouvrir des fichiers d'aide personnels .chm ?


bonne soirée
michel