Je vais regarder !
nb : je suis heureux je viens de r�cup�rer mon /home apr�s un crash DD du � un �change de proc...
laurux a �crit :
Je te propose une modification de ta proc�dure wiki de ta macro :
sub wiki
Dim objlancer As Object
Dim Verbe As String
Dim VerbeConverti As String
Dim Lettre As String
Dim URL As String
Dim i As Long
objlancer =
CreateUnoService("com.sun.star.system.SystemShellExecute") Verbe =
ThisComponent.Sheets.getByName("Affichage").getCellByPosition(6,0).St
ring VerbeConverti = ""
Ces 4 lignes n'en font qu'une je pense !
For i = 1 to len(Verbe)
Lettre = Mid(Verbe, i, 1)
Select Case Lettre
Case "�"
VerbeConverti = VerbeConverti + "%E2"
Case "�"
VerbeConverti = VerbeConverti + "%E0"
Case "�"
VerbeConverti = VerbeConverti + "%E9"
Case "�"
VerbeConverti = VerbeConverti + "%E8"
Case "�"
VerbeConverti = VerbeConverti + "%EA"
Case "�"
VerbeConverti = VerbeConverti + "%E7"
Case "�"
VerbeConverti = VerbeConverti + "%EE"
Case "�"
VerbeConverti = VerbeConverti + "%EF"
Case "�"
VerbeConverti = VerbeConverti + "%F9"
Case "�"
VerbeConverti = VerbeConverti + "%FB"
Case "�"
VerbeConverti = VerbeConverti + "%FC"
Case Else
VerbeConverti = VerbeConverti + Lettre
End Select
Next
URL = "http://www.sdv.fr/cgi/orthonet/orthonet?mot="+VerbeConverti
objlancer.execute(URL, "", "")
end sub
--
Amicalement vOOotre Troumad Alias Bernard SIAUD
mon site : http://troumad.free.fr : AD&D maths WEB sectes
Pour la libert� http://www.mandrakelinux.com/fr/ http://www.eurolinux.org/index.fr.html
N'envoyez que des documents avec des formats ouverts, comme http://fr.openoffice.org
--------------------------------------------------------------------- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED]
