Probleme avec WebBrowser

**Jean-Pierre49** · 14/11/2007, 11h55

Bonjour à tous,
J’essais de créer une aide en page Web avec CSS dans un WebBrowser.
Mais il ne veut pas plus de deux éléments, je n’arrive pas à y mettre ma page complète,
Y a t-il des limites au WebBrowser ?
peut être problème de lg de ligne?
J’ai remarqué que lors de l’écriture du texte HTML il ne reconnaît pas vbCrLf ou CHR$(10)

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
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
Private Sub UserForm_Initialize()
 
Dim Texte As String
Dim Chemin As String
 
Chemin = "U:\ETAT_JPC_CLIPPER\ImageHabilitation\IMAGE_CLIPPER\"
 
Texte = "about:<html>"
Texte = Texte & "<head>"
Texte = Texte & "<style type=""text/css"">"
Texte = Texte & "  .styltext2{color:'#000000'; font-family:'Arial'; font-size:14px}"
Texte = Texte & "  .styltext1{color:'#000000'; font-family:'Arial'; font-size:12px}"
Texte = Texte & "</style>"
 
Texte = Texte & "</head>"
 
Texte = Texte & "<body BGCOLOR='#DFDFDF' scroll='yes'>"
Texte = Texte & "<table align='center'>"
 
 
'Plusieurs tests
'Fonctionne :
Texte = Texte & "<tr><td class='styltext1' align='middle'>ACTIONS A MENER DANS CLIPPER POUR DECLARER</td></tr>"
Texte = Texte & "<tr><td class='styltext1' align='middle'>UN EMPLOYE AYANT DES HABILITATIONS</td></tr>"
        'Texte = Texte & "<tr><td class='styltext1' align='middle'>Ouvrez CLIPPER selectionnez Gestion Tiers puis cliquez sur Salariés</td></tr>"
 
'Ne fonctionne pas:
Texte = Texte & "<tr><td class='styltext1' align='middle'>ACTIONS A MENER DANS CLIPPER POUR DECLARER</td></tr>"
        'Texte = Texte & "<tr><td class='styltext1' align='middle'>UN EMPLOYE AYANT DES HABILITATIONS</td></tr>"
Texte = Texte & "<tr><td class='styltext1' align='middle'>Ouvrez CLIPPER selectionnez Gestion Tiers puis cliquez sur Salariés</td></tr>"
 
'Fonctionne :
Texte = Texte & "<tr><td class='styltext1' align='middle'>Ouvrez CLIPPER selectionnez Gestion Tiers puis cliquez sur Salariés</td></tr>"
 
'Fonctionne :
Texte = Texte & "<tr><td class='styltext2' align='middle'>ACTIONS A MENER DANS CLIPPER POUR DECLARER</td></tr>"
        'Texte = Texte & "<tr><td class='styltext1' align='middle'>UN EMPLOYE AYANT DES HABILITATIONS</td></tr>"
Texte = Texte & "<tr><td><img src='" & Chemin & "CLIPPER1.bmp'/></td></tr>"
 
'Ne fonctionne pas:
Texte = Texte & "<tr><td class='styltext2' align='middle'>ACTIONS A MENER DANS CLIPPER POUR DECLARER</td></tr>"
Texte = Texte & "<tr><td class='styltext1' align='middle'>UN EMPLOYE AYANT DES HABILITATIONS</td></tr>"
Texte = Texte & "<tr><td><img src='" & Chemin & "CLIPPER1.bmp'/></td></tr>"
 
 
'Fonctionne :
Texte = Texte & "<tr><td class='styltext2' align='middle'>ACTIONS A MENER DANS CLIPPER POUR DECLARER</td></tr>"
        'Texte = Texte & "<tr><td class='styltext1' align='middle'>UN EMPLOYE AYANT DES HABILITATIONS</td></tr>"
Texte = Texte & "<tr><td><img src='" & Chemin & "CLIPPER1.bmp'/></td></tr>"
'?????????????????????????????????
 
 
 
'Texte = Texte & "<tr><td><img src='" & Chemin & "CLIPPER1.bmp'/></td></tr>"
'Texte = Texte & "  <tr><td class='styltext1' height='15' align='middle'>Si vous ne connaissez pas le code employé cliquez sur l'icone de recherche</td></tr>" & vbCrLf
'Texte = Texte & "  <tr><td align='middle'><img src='" & Chemin & "CLIPPER2.bmp' alt=''></img></td></tr>" & vbCrLf
'Texte = Texte & "  <tr><td height='15' align='middle'>Cherchez l'employé à l'aide des 2 moteurs de recherche, double cliquez sur le nom de l'employé</td></tr>" & vbCrLf
'Texte = Texte & "  <tr><td class='styltext1' height='15' align='middle'>Ou cliquez sur ''OK''</td></tr> " & vbCrLf
'Texte = Texte & "  <tr><td align='middle'><img src='" & Chemin & "CLIPPER3.bmp' alt=''></img></td></tr>" & vbCrLf
'Texte = Texte & "  <tr><td class='styltext1' height='15' align='middle'>Vous retournez sur la fenêtre</td></tr> " & vbCrLf
'Texte = Texte & "  <tr><td align='middle'><img src='" & Chemin & "CLIPPER4.bmp' alt=''></img></td></tr>" & vbCrLf
'Texte = Texte & "  <tr><td class='styltext1' height='15' align='middle'>Cliquez sur l'onglet ''Divers'' puis renseignez 1 dans la fenètre ''Salaire brut''</td></tr> " & vbCrLf
'Texte = Texte & "  <tr><td align='middle'><img src='" & Chemin & "CLIPPER5.bmp' alt=''></img></td></tr>" & vbCrLf
'Texte = Texte & "  <tr><td class='styltext1' height='15' align='middle'>Passez a l'onglet ''Spécifique'', puis renseignez la situation dans la fenêtre ''Zone de texte libre à définir''</td></tr> " & vbCrLf
'Texte = Texte & "  <tr><td class='styltext1' height='15' align='middle'>Situations définies ce jour CHANTIER, ATELIER, BUREAU, INTERIMAIRES (Faire attention en MAJUSCULES)</td></tr>" & vbCrLf
'Texte = Texte & "  <tr><td class='styltext1' height='15' align='middle'>Et cliquez sur ''OK''</td></tr>" & vbCrLf
'Texte = Texte & "  <td align='middle'><img src='" & Chemin & "CLIPPER6.bmp' alt=''></img></td></tr>" & vbCrLf
'Texte = Texte & "  <tr><td class='styltext1' height='15' align='middle'>Pour finir cliquez sur ''Terminer''</td></tr>" & vbCrLf
'Texte = Texte & "  <tr><td align='middle'><img src='" & Chemin & "CLIPPER7.bmp' alt=''></img></td></tr>" & vbCrLf
'Texte = Texte & "  <tr><td height='15'></td></tr>" & vbCrLf
Texte = Texte & "</table>" & vbCrLf
Texte = Texte & "</body>" & vbCrLf
Texte = Texte & "</html>" & vbCrLf
 
WebBrowser1.Navigate Texte

**Jean-Pierre49** · 14/11/2007, 12h03

Bonjour jpcheck
Le probléme est que lorsque je rajoute une ligne au code la page ne s'affiche plus dans le WebBrowers

J'ai pour message d'érreur
Internet Explorer ne peut pas ouvrir la page Web requise. La page n'est peut-être pas disponible temporairement.

Merci de t'intéresser au problème

**Jean-Pierre49** · 14/11/2007, 12h22

Désolé,
Voici mon code avec les balises

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
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
Private Sub UserForm_Initialize()
 
Dim Texte As String
Dim Chemin As String
 
Chemin = "U:\ETAT_JPC_CLIPPER\ImageHabilitation\IMAGE_CLIPPER\"
 
Texte = "about:<html>"
Texte = Texte & "<head>"
Texte = Texte & "<style type=""text/css"">"
Texte = Texte & "  .styltext2{color:'#000000'; font-family:'Arial'; font-size:14px}"
Texte = Texte & "  .styltext1{color:'#000000'; font-family:'Arial'; font-size:12px}"
Texte = Texte & "</style>"
 
Texte = Texte & "</head>"
 
Texte = Texte & "<body BGCOLOR='#DFDFDF' scroll='yes'>"
Texte = Texte & "<table align='center'>"
 
 
'Plusieurs tests
'Fonctionne :
Texte = Texte & "<tr><td class='styltext1' align='middle'>ACTIONS A MENER DANS CLIPPER POUR DECLARER</td></tr>"
Texte = Texte & "<tr><td class='styltext1' align='middle'>UN EMPLOYE AYANT DES HABILITATIONS</td></tr>"
        'Texte = Texte & "<tr><td class='styltext1' align='middle'>Ouvrez CLIPPER selectionnez Gestion Tiers puis cliquez sur Salariés</td></tr>"
 
'Ne fonctionne pas:
Texte = Texte & "<tr><td class='styltext1' align='middle'>ACTIONS A MENER DANS CLIPPER POUR DECLARER</td></tr>"
        'Texte = Texte & "<tr><td class='styltext1' align='middle'>UN EMPLOYE AYANT DES HABILITATIONS</td></tr>"
Texte = Texte & "<tr><td class='styltext1' align='middle'>Ouvrez CLIPPER selectionnez Gestion Tiers puis cliquez sur Salariés</td></tr>"
 
'Fonctionne :
Texte = Texte & "<tr><td class='styltext1' align='middle'>Ouvrez CLIPPER selectionnez Gestion Tiers puis cliquez sur Salariés</td></tr>"
 
'Fonctionne :
Texte = Texte & "<tr><td class='styltext2' align='middle'>ACTIONS A MENER DANS CLIPPER POUR DECLARER</td></tr>"
        'Texte = Texte & "<tr><td class='styltext1' align='middle'>UN EMPLOYE AYANT DES HABILITATIONS</td></tr>"
Texte = Texte & "<tr><td><img src='" & Chemin & "CLIPPER1.bmp'/></td></tr>"
 
'Ne fonctionne pas:
Texte = Texte & "<tr><td class='styltext2' align='middle'>ACTIONS A MENER DANS CLIPPER POUR DECLARER</td></tr>"
Texte = Texte & "<tr><td class='styltext1' align='middle'>UN EMPLOYE AYANT DES HABILITATIONS</td></tr>"
Texte = Texte & "<tr><td><img src='" & Chemin & "CLIPPER1.bmp'/></td></tr>"
 
 
'Fonctionne :
Texte = Texte & "<tr><td class='styltext2' align='middle'>ACTIONS A MENER DANS CLIPPER POUR DECLARER</td></tr>"
        'Texte = Texte & "<tr><td class='styltext1' align='middle'>UN EMPLOYE AYANT DES HABILITATIONS</td></tr>"
Texte = Texte & "<tr><td><img src='" & Chemin & "CLIPPER1.bmp'/></td></tr>"
'?????????????????????????????????
 
 
 
'Texte = Texte & "<tr><td><img src='" & Chemin & "CLIPPER1.bmp'/></td></tr>"
'Texte = Texte & "  <tr><td class='styltext1' height='15' align='middle'>Si vous ne connaissez pas le code employé cliquez sur l'icone de recherche</td></tr>" & vbCrLf
'Texte = Texte & "  <tr><td align='middle'><img src='" & Chemin & "CLIPPER2.bmp' alt=''></img></td></tr>" & vbCrLf
'Texte = Texte & "  <tr><td height='15' align='middle'>Cherchez l'employé à l'aide des 2 moteurs de recherche, double cliquez sur le nom de l'employé</td></tr>" & vbCrLf
'Texte = Texte & "  <tr><td class='styltext1' height='15' align='middle'>Ou cliquez sur ''OK''</td></tr> " & vbCrLf
'Texte = Texte & "  <tr><td align='middle'><img src='" & Chemin & "CLIPPER3.bmp' alt=''></img></td></tr>" & vbCrLf
'Texte = Texte & "  <tr><td class='styltext1' height='15' align='middle'>Vous retournez sur la fenêtre</td></tr> " & vbCrLf
'Texte = Texte & "  <tr><td align='middle'><img src='" & Chemin & "CLIPPER4.bmp' alt=''></img></td></tr>" & vbCrLf
'Texte = Texte & "  <tr><td class='styltext1' height='15' align='middle'>Cliquez sur l'onglet ''Divers'' puis renseignez 1 dans la fenètre ''Salaire brut''</td></tr> " & vbCrLf
'Texte = Texte & "  <tr><td align='middle'><img src='" & Chemin & "CLIPPER5.bmp' alt=''></img></td></tr>" & vbCrLf
'Texte = Texte & "  <tr><td class='styltext1' height='15' align='middle'>Passez a l'onglet ''Spécifique'', puis renseignez la situation dans la fenêtre ''Zone de texte libre à définir''</td></tr> " & vbCrLf
'Texte = Texte & "  <tr><td class='styltext1' height='15' align='middle'>Situations définies ce jour CHANTIER, ATELIER, BUREAU, INTERIMAIRES (Faire attention en MAJUSCULES)</td></tr>" & vbCrLf
'Texte = Texte & "  <tr><td class='styltext1' height='15' align='middle'>Et cliquez sur ''OK''</td></tr>" & vbCrLf
'Texte = Texte & "  <td align='middle'><img src='" & Chemin & "CLIPPER6.bmp' alt=''></img></td></tr>" & vbCrLf
'Texte = Texte & "  <tr><td class='styltext1' height='15' align='middle'>Pour finir cliquez sur ''Terminer''</td></tr>" & vbCrLf
'Texte = Texte & "  <tr><td align='middle'><img src='" & Chemin & "CLIPPER7.bmp' alt=''></img></td></tr>" & vbCrLf
'Texte = Texte & "  <tr><td height='15'></td></tr>" & vbCrLf
Texte = Texte & "</table>" & vbCrLf
Texte = Texte & "</body>" & vbCrLf
Texte = Texte & "</html>" & vbCrLf
 
WebBrowser1.Navigate Texte

**Maxence HUBICHE** · 14/11/2007, 12h36

deux choses :

pourquoi ton code commence par About: ?
pourquoi ne sauvegardes tu pas ton fichier (celui référencé dans Chemin) pour naviguer ENSUITE sur ce fichier ?

**Jean-Pierre49** · 14/11/2007, 12h45

bonjour Maxence
Pour le premier point, visiblement ça ne veux pas fonctionné sans ça,

Je n'ais pas bien compris le second

Merci

**Maxence HUBICHE** · 14/11/2007, 12h51

Un version qui devrait marcher (j'ai retiré toute la construction du fichier, mais je n'ai pas vérifié les erreurs éventuellement générées, c'est vite fait !)

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
Private Sub UserForm_Initialize()
 
Dim Texte As String
Dim n as long
Const Chemin As String = "U:\ETAT_JPC_CLIPPER\ImageHabilitation\IMAGE_CLIPPER\"
Const Fichier as String=Chemin & "\CliperTemp.html"
 
n=Freefile()
 
Texte = "<html>"
[...]
[...]
[...]
 
Open Fichier for output as #n
Print #n,texte
Close
 
WebBrowser1.Navigate Texte

**Jean-Pierre49** · 14/11/2007, 13h12

Merci Maxence,

Le code crée bien la page Html, mais j'ai une érreur fatale pour excel.
je pense que WebBrowser1.Navigate Texte n 'est pas apprécier.
En fait ma page Html existe déja, ce que je recherche en fait c'est qu'elle soit dans mon USF.

En remplacant
WebBrowser1.Navigate Texte
par
WebBrowser1.Navigate "about:" & Texte

Je n'ais plus d'érreur fatale mais le WebBrowser est vide.

**SilkyRoad** · 14/11/2007, 17h07

bonsoir

Il faudrait d'abord aller sur le forum javascript afin de valider la syntaxe qui permet la déclaration de plusieurs feuilles de style, à appliquer sur différentes cellules d'une même table.

Sinon, ta procédure semble fonctionner sans feuille de style
(testé sur 3 lignes).

"about" permet de créer le code html dynamiquement dans le webbrowser, sans passer par une page html externe.

Comment créer une page html dynamiquement dans un WebBrowser et y ajouter une fonction JavaScript ?

bonne soirée ... ;o)
michel

Probleme avec WebBrowser

Macros et VBA Excel

Vue hybride

Discussions similaires

Partager

Partager