affichage d'une pop-up html à partir d'excel

**fantii** · 17/01/2008, 18h31

Bonsoir à tous

Voici ma question existentielle du moment : afin d’illustrer un formulaire de maintenance sous .xls et macros, j’aimerai accéder à des pop-up html. Ceci afin d’avoir un accès à des visus simplifiées mais aussi et surtout pour ne pas alourdir le fichier de base qui doit souvent faire des sauvegardes sur un réseau. Normalement les codes html activant une pop-up font parti d'une page qui dans ce cas présent n'existerait pas. Est-il possible de contourner ce problème ?

Merci d’avance pour votre aide !

Laurent

**SilkyRoad** · 17/01/2008, 18h39

bonsoir

Tu peux adapter cet exemple:
Comment afficher l'image d'un graphique dans une fenêtre html ?

bonne soirée
michel

**fantii** · 23/01/2008, 18h07

je vais essayer ça, merci

**fantii** · 13/03/2008, 16h51

Bonjour

J'ai testé le code de cet exemple :

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
19
20
21
22
23
24
 
Private Sub Visu1_Click()
 
Dim NomImage As String
Dim IE As Object
Dim Hauteur As Single, Largeur As Single
Hauteur = 420
Largeur = 735
 
NomImage = "C:\Check-List Numérique\illustrations notice\montage_OES.bmp"
Set IE = CreateObject("InternetExplorer.application")
IE.navigate "about:blank"
IE.document.Title = "Schéma de montage OES"
IE.addressbar = False
IE.MenuBar = False
IE.StatusBar = False
IE.Toolbar = False
IE.Width = Largeur
IE.Height = Hauteur
IE.Left = 120
IE.document.body.innerHTML = "<html><IMG SRC='" & NomImage & "'</html>"
IE.Visible = True
 
End Sub

... mais celui-ci n'est pas tout à fait une pop-up (fenêtre fixe en taille et sans barre de défilement). Est-il possible malgré tout de parvenir à en créer une sous excel ?!? Si cela est impossible, existe-t-il malgré tout un code ou une méthode permettant de désactiver la barre de défilement de droite et de faire disparaître le titre implicite disgracieux que l'on retrouve en haut ?!? ("Micosoft Internet Explorer provided by blablabla" : voir l'image en pièce jointe)

Merci d'avance pour votre aide ou suggestion !

Laurent

**fantii** · 14/03/2008, 18h23

Je viens de m'apercevoir d'un "bug" étrange avec ce code

Si vous ouvrez, puis fermez plusieurs fois de suite la fenêtre HTML, le fichier plante à partir de la deuxième ouverture et affiche les erreurs suivantes :

Run Time error '2147467259 (80004005)' :
Method 'titke' of object 'DispHTML Document failed'

ou parfois

msbgox : Out of memory

Ces cas n'existent pas si une fenêtre IE indépendante est déjà ouverte ou si vous retirez du précédent code VBA la ligne concernant le titre de la fenêtre HTML (IE.document.Title = ...) Cette ligne ne peut fonctionner et être prise en compte que si celle-ci est placé plus bas : Par exemple juste avant la ligne "IE.document.body.innerHTML = ..."

Quelqu'un possède une explication à cette bizarrerie !?!

**ucfoutu** · 14/03/2008, 18h59

Bonsoir,

A première vue, tu crées plusieurs fois (sans jamais relibérer ta mémoire) l'objet IE !!!

**fantii** · 14/03/2008, 19h26

même lorsque tu clotures le premier affichage et que tu réouvres à partir de la 2ème fois ça plante...aucune autre fenêtre n'étant à l'écran

**ucfoutu** · 14/03/2008, 19h31

Relis-moi et relis ton code...

A quel moment detruis-tu ce que tu crées ???

**fantii** · 14/03/2008, 19h36

OK. Si ce que tu demandes est nécessaire à quel moment peut-on le faire réellement ?!? Et pourquoi en déplaçant ou supprimant la ligne "title" cela devient inutile ou alors j'ai rien compris... ce qui est possible lol

**fantii** · 15/03/2008, 09h25

Existerait-il dans ce forum au moins une âme charitable qui pourrait répondre à une question lorsque les problèmes deviennent ambigus ou délicats

? Merci d'avance et dans tous les cas bonne journée à vous (...)

**ucfoutu** · 15/03/2008, 09h32

Bonjour,

charitable ?

Est-il vraiment si dur de comprendre ce à quoi pourrait servir un simple :

Code :

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

Set IE = Nothing

?

Ou encore :

- soit tu crées IE une seule fois (et pas par ton évènement Click) et tu t'y réfères ensuite
- soit tu le laisses dans le click mais ne le crées que si non déjà existant

C'est là évident ...

J'ajoute que, quel que soit la méthode utilisée, il est bon de ne pas quitter ton appli sans le zigouiller de toutes manières...

**fantii** · 15/03/2008, 12h19

Bonjour,

Désolé mais peut-être et à la différence avec toi, je n'ai que quelques semaines de VBA dans les pattes... Tu veux bien m'expliquer à quel moment et endroit tu placerais cette ligne de code ? A priori juste avant de créer et afficher la fenêtre demandé mais dans ce cas qu'efface-t-on ? Tout ce qui est IE ? Ce qui est juste en mémoire ?

Merci d'avance pour ton retour

Laurent

Dans le cas inverse ou la destruction est impossible à coller quelque part, comment vérifierai-tu l'existant ?

**ucfoutu** · 15/03/2008, 12h23

Hé bé ...

Voilà qui justifie une expression que j'emploie souvent en matière de prise de volant d'une Formmule1 sans avoir appris à conduire une 2 CV !!!

Lis alors mon édit (il est clair). Si là aussi celà t'échappe, reviens à des choses correspondant aux connaisances que tu as déjà acquises ...
J'ai un copain qui a perdu un moniteur (écran) pour avoir copié-collé et exécuté ce qu'il ne maîtrisait pas .... et il peut quelquefois arriver bien pire ...

**fantii** · 15/03/2008, 12h33

pffff... ton post transpire le soutien (je plaisante) et les non réponses

bin écoute... merci à toi, je vais faire comme d'hab, y arriver par mes propres moyens et sans cramer un écran lol

**ucfoutu** · 15/03/2008, 13h18

Les réponses, ami, tu les as eues...

Et à un niveau en parfaitre adéquation avec celui du code montré ...

J'espérais me trouver dans ce cas d'adéquation (qui, de surcroit, serait valable pour toute autre application créant des objets... et de la même manière et pour les mêmes raisons....). Ce n'est pas le cas ? ===>> je me suis alors trompé en participant...

Amitiés.

affichage d'une pop-up html à partir d'excel

Macros et VBA Excel

Discussions similaires

Partager

Partager