Discussion :

[idiot]

j'aimerais ouvrir dans un formulaire un fichier MTH et ou un fichier htm sans lancer IE.
est-ce possible?

et je veux de même avec un fichier word et excel.

[Invité]

Bonjour

Veux-tu ouvrir ta page Web dans un formulaire ou avec IE sans avoir à ouvrir IE ?

Si c'est le deuxième cas, regarde du coté de l'API ShellExecute, voici un lien avec la FAQ qui en parle :

Comment ouvrir un fichier HTML, Word, PDF ou autre en utilisant l'exécutable associé ?

Starec

[idiot]

Oui je veux ouvrir une page Web dans un formulaire sans avoir à ouvrir IE ?

[Invité]

Bonjour

Je viens de fusionner tes deux messages, car c'est la même problématique.

Est-ce que la solution avec le lien que je t'ai donné te conviens ?

Starec

[tAKAmAkA]

C'est possible en insérant dans ton formulaire un Cadre d'Ojet Indépendant "Doc Ms Word"

Code :

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

1
2
3
4
Me.OleWord.SourceDoc = strCheminFichier
Me.OleWord.Action = acOLECreateEmbed
Me.OleWord.SizeMode = acOLESizeZoom
Me.OleWord.Action = acOLEClose

Et pour d'autres types de fichier avec le WebBrowser

Code :

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

1
2
Me!WebBrowser1.Visible = True
Me!WebBrowser1.Navigate strCheminFichier

[idiot]

C'est possible en insérant dans ton formulaire un Cadre d'Ojet Indépendant "Doc Ms Word"

Code :

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

1
2
3
4
Me.OleWord.SourceDoc = strCheminFichier
Me.OleWord.Action = acOLECreateEmbed
Me.OleWord.SizeMode = acOLESizeZoom
Me.OleWord.Action = acOLEClose

OLE4_word c'est le nom de mon cadre indépendant
et le code ci-dessous se trouve sur l'évènement du formulaire sur ouverture:
Me.OLE4_word.SourceDoc = "C:\access bibli\doc_bibli\toto.doc"
Me.OLE4_word.Action = acOLECreateEmbed
Me.OLE4_word.SizeMode = acOLESizeZoomEnd

Mais rien ne s'affiche!
et sur cette ligne: Me.OLE4_word.Action = acOLECreateEmbed il bloque avec ce message: Miscrosoft access ne peut executer l'opération spécifié dans la proprièté action ....

j'ai mis cette ligne en commentaire et il va jusqu'au bout mais rien ne s'affiche.

[idiot]

sans vous, je n'avancerais pas

[idiot]

A force de chercher sur internet j'ai trouver la bonne syntaxe que voici:

Code :

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

1
2
3
4
5
6
7
8
9
With OLE4_word
    .Enabled = True
    .Locked = False
    .OLETypeAllowed = acOLEEmbedded
    .Class = "Word.Document"
    .SourceDoc = chemin_du_fichier
    .Action = acOLECreateEmbed
    .SizeMode = acOLESizeZoom
End With