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