High-Tech Santé Médecine Droit-Finances

Réalisation

vidéo numérique

Rechercher : dans
Par :

[Word]Textbox illisible, mais contenu intact!

Dernière réponse le 3 jun 2008 à 12:08:40 lml-mike, le 30 mai 2008 à 16:05:08 
 Signaler ce message aux modérateurs

Bonjour,

J'ai crée un petit script VBA pour insérer du text dans une textbox, qui se trouve en page 2, à l'aide de word XP.
Quand je scroll vers le bas pour voir le texte une première fois, tout fonctionne niquel.
Mais dès que je réutilise le script une seconde fois, le texte devient totalement illisible :

http://img228.imageshack.us/img228/3748/erreurgz1.jpg

Le plus marrant, c'est quand je copie le texte et le colle autre part...le texte est intact ! (il s'agit donc clairement d'une erreur d'affichage)

J'ai essayé sur d'autres PC avec une version ultérieure de Word (Word 2007), et ça fait exactement la même chose...

Quelqu'un à une idée ?

Merci !!!

Meilleures réponses pour « [Word]Textbox illisible, mais contenu intact! » dans :
[Word] Télécharger Word gratuitement VoirWord est un logiciel payant faisant partie de la suite bureautique Microsoft Office, il n'est donc pas possible de le télécharger. Si le logiciel a été acheté dans le commerce, il suffit d'utiliser le CD d'installation pour le réinstaller ou de...
Transformer un fichier Word (.doc) en PDF VoirTransformer en fichier PDF un fichier Microsoft Word (.doc) Rien de plus simple ! Ouvrez votre fichier *.doc avec OpenOffice.org Réglez éventuellement la mise en page par le menu Format / Page... Dès lors, 2 solutions pour transformer...
Faire une newsletter VoirFaire une newsletter Une newsletter est une lettre d'information envoyée périodiquement par mail à des abonnés. Composée de texte, illustrations, liens renvoyant vers votre site, son contenu peut être par exemple une sélection de produits, un...
Télécharger Word Viewer Voir
Télécharger Ms Word Excel Cracker VoirMs Word Excel Craker est une application permettant de retrouver les mots de passe perdus ou oubliés pour les fichiers.xls ou .doc créés avec Microsoft Office 97, 2000, 2003, XP ou autres programmes Word ou Excel compatibles. Cette application vous...
Télécharger Quick Word to PDF VoirPour transférer vos documents le plus en sécurité possible, il n'y a pas mieux que le format PDF. Alors, pour convertir vos documents Word en PDF, adoptez le programme quick Word to PDF. Quick Word to PDF est un outil qui s'intègre à l'interface de...
Posez votre question Répondre

1

m@rina, le 30 mai 2008 à 16:41:35

Bonjour,

Si tu nous donnais ton code, ce serait quand même mieux ! ;)

m@rina

   
Répondre à m@rina

2

lml-mike, le 2 jun 2008 à 16:15:23

Ahahah, avec plaisir ! 

Private Sub cisco_char_Click()

Dim DNS As String
Dim IP
Dim sous_res As String
Dim lieu As String
Dim num_crypto As Integer
Dim i As Integer
Dim c As String
Dim rep As String

DNS = InputBox("Entrez le nom DNS du routeur", "Conf. 3200 Industriels", "rtr-sem-fw-indus-")
If DNS = "" Then
        GoTo Exit_ajout_Click
End If

UserForm1.Show

If UserForm1.sr251.Value = True Then
sous_res = "251"
ElseIf UserForm1.sr252.Value = True Then
sous_res = "252"
ElseIf UserForm1.sr253.Value = True Then
sous_res = "253"
Else
GoTo Exit_ajout_Click
End If

Unload UserForm1

IP = UserForm2.no1.Text

Unload UserForm2

For i = Len(DNS) To 1 Step -1
        If Mid(DNS, i, 1) = "-" Then
            lieu = c
            Exit For
        Else
            c = Mid(DNS, i, 1) & c
        End If
Next i

lieu = UCase(lieu)

' lieu : nom de la cryptomap
rep = MsgBox("Nom du site distant : " & lieu _
& Chr(13) & Chr(10) & "Nom D.N.S. du routeur : " & DNS _
& Chr(13) & Chr(10) & "Numéro IP du routeur : " & IP _
& Chr(13) & Chr(10) & "Sous-réseau du routeur : " & sous_res _
& Chr(13) & Chr(10), vbOKCancel, "récapitulatif des paramètres de la conf.")

If rep = vbOK Then

num_crypto = Right(CStr(sous_res), 1)

conf1 = "conf t" _
 & Chr(13) & Chr(10) & "bla" _
 & Chr(13) & Chr(10) & "bla" _
 & Chr(13) & Chr(10) & "bla" _
 & Chr(13) & Chr(10) & "bla" _
 & Chr(13) & Chr(10) & "bla" _
 & Chr(13) & Chr(10) & "bla" _
 & Chr(13) & Chr(10) & "bla" _
 & Chr(13) & Chr(10) & "bla" _
 & Chr(13) & Chr(10) & "bla" _
 & Chr(13) & Chr(10) & "bla" _
 & Chr(13) & Chr(10) & "bla" _
 & Chr(13) & Chr(10) & "bla" _
 & Chr(13) & Chr(10) & "bla" _
 & Chr(13) & Chr(10) & "bla" _
 & Chr(13) & Chr(10) & "bla" _
 & Chr(13) & Chr(10) & "bla" _
 & Chr(13) & Chr(10) & "bla" _
 & Chr(13) & Chr(10) & "bla" _
 & Chr(13) & Chr(10) & "bla" _
 & Chr(13) & Chr(10) & "bla" & Chr(13) & Chr(10)

'je vous épargne les 22 autres pavés ^^

conf = conf1 & conf2 & conf3 & conf4 & conf5 & conf6 & conf7 & conf8 & conf9 & conf10 & conf11 & conf12 & conf13 & conf14 & conf15 & conf16 & conf17 & conf18 & conf19 & conf20 & conf21 & conf22 & conf23


TextBox3.Locked = False
TextBox3.Text = conf
TextBox3.Locked = True


conf_sec_mtf = "conf t" _
 & Chr(13) & Chr(10) & "bla" _
 & Chr(13) & Chr(10) & "bla" _
 & Chr(13) & Chr(10) & "bla" _
 & Chr(13) & Chr(10) & "bla" _
 & Chr(13) & Chr(10) & "bla" _
 & Chr(13) & Chr(10) & "bla" _
 & Chr(13) & Chr(10) & "bla" _
 & Chr(13) & Chr(10) & "bla" _
 & Chr(13) & Chr(10) & "bla" _
 & Chr(13) & Chr(10) & "bla" _
 & Chr(13) & Chr(10) & "bla" _
 & Chr(13) & Chr(10) & "bla" _
 & Chr(13) & Chr(10) & "bla" _
 & Chr(13) & Chr(10) & "bla" _
 & Chr(13) & Chr(10) & "bla" _
 & Chr(13) & Chr(10) & "bla" _
 & Chr(13) & Chr(10) & "bla" _
 & Chr(13) & Chr(10) & "bla" _
 & Chr(13) & Chr(10) & "bla" _
 & Chr(13) & Chr(10) & "bla"

TextBox1.Locked = False
TextBox1.Text = conf_sec_mtf
TextBox1.Locked = True

conf_sec_stma = "conf t" _
 & Chr(13) & Chr(10) & "bla" _
 & Chr(13) & Chr(10) & "bla" _
 & Chr(13) & Chr(10) & "bla" _
 & Chr(13) & Chr(10) & "bla" _
 & Chr(13) & Chr(10) & "bla" _
 & Chr(13) & Chr(10) & "bla" _
 & Chr(13) & Chr(10) & "bla" _
 & Chr(13) & Chr(10) & "bla" _
 & Chr(13) & Chr(10) & "bla" _
 & Chr(13) & Chr(10) & "bla" _
 & Chr(13) & Chr(10) & "bla" _
 & Chr(13) & Chr(10) & "bla" _
 & Chr(13) & Chr(10) & "bla" _
 & Chr(13) & Chr(10) & "bla" _
 & Chr(13) & Chr(10) & "bla" _
 & Chr(13) & Chr(10) & "bla" _
 & Chr(13) & Chr(10) & "bla" _
 & Chr(13) & Chr(10) & "bla" _
 & Chr(13) & Chr(10) & "bla" _
 & Chr(13) & Chr(10) & "bla"


TextBox2.Locked = False
TextBox2.Text = conf_sec_stma
TextBox2.Locked = True

    MsgBox ("configuration 3200 Industriels générée avec succès !")
    
Else
    GoTo Exit_ajout_Click
End If

End

Exit_ajout_Click:
        MsgBox ("Configuration 3200 Industriels annulée par l'utilisateur")
End Sub

   
Répondre à lml-mike

3

 lml-mike, le 3 jun 2008 à 12:08:40

Up ! :)

   
Répondre à lml-mike
Posez votre question Répondre
Ils ont besoin de votre aide