Probleme avec WebBrowser

Version imprimable

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:

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

14/11/2007, 12h03
Jean-Pierre49

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

Désolé,
Voici mon code avec les balises

Code:

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

14/11/2007, 12h36
Maxence HUBICHE
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 ?
14/11/2007, 12h45
Jean-Pierre49

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

Je n'ais pas bien compris le second

Merci

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:

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

14/11/2007, 13h12
Jean-Pierre49

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.
14/11/2007, 17h07
SilkyRoad

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
14/11/2007, 17h35
Jean-Pierre49

Bonsoir SilkyRoad,

Même en supprimant les Css, le problème reste entier
3 lignes OUI
4 Quelquefois
5 jamais
14/11/2007, 18h19
SilkyRoad

En effet la nombre de caractères dans la source html semble limité à un nombre de caractères (environ 440?)

Tu devras donc utiliser la solution proposée par Maxence

bonne soirée
michel
15/11/2007, 08h02
Jean-Pierre49

Bonjour SilkyRoad,
j'avais déja céer la page Web et c'est avec sa source que j'ai fait le code VBA.
Je ne peut pas la mettre ds le WebBrowser.
Ouvrir cette page ds Internet Explorer ne m'interresse pas.
Je me suis replié sur un USF et je pense que le résutat est meilleur.

Conclusion le WebBrowser et limité.

Merci à toi et a Maxence
15/11/2007, 17h46
Maxence HUBICHE

MEA CULPA !!!
:oops:

Code:

WebBrowser1.Navigate Fichier

:oops:
:oops:
16/11/2007, 08h47
Jean-Pierre49

Merci Maxence

ça marche impécable

Mais la ligne
Const Fichier as String=Chemin & "\CliperTemp.html"
doit être remplacer par
Const Fichier as String=Chemin & "CliperTemp.html"

Je vais refaire des tests avec les Css

Encore merci et bonne journée.
16/11/2007, 09h06
Jean-Pierre49

Ca fonctionne bien avec les Css.

Maintenant j'ai un choix délicat a faire
WebBrosser ou mon USF qui ressemble à une page Web avec ses info bulle
mais qui n'en est pas une.

Bien entendu lorsque la page Web existe :

Code:

1
2
3
4
5
6
7
8
9
Private Sub UserForm_Initialize()
Dim Chemin As String
Dim Fichier As String
 
    Chemin = "U:\ETAT_JPC_CLIPPER\ImageHabilitation\IMAGE_CLIPPER\"
    Fichier = Chemin & "CliperTemp.html"
    WebBrowser1.Navigate Fichier
 
End Sub