Discussion :

[vbword]

Tu ne peux pas le mettre sur e forum, je regarde et si tu veux, je le détruis après (Tu dois le Zipper)
A+

PS - J'ai fait exactement ce que tu dis et je n'ai pas de ¤ ni de quoi que ce soit qui s'affiche dans la feuille. Ton fichier serait bien utile en effet

Et comment je fais pour que tu puisses avoir accès à ce formulaire, je le met où ?

[ouskel'n'or]

Tu fais "Répondre". Tu vois l'icône en forme de trombone en dessus de ta réponse ? C'est là. N'oublie pas d'updater ton fichier dans la fenêtre qui va s'ouvrir
Une fois ton fichier "Updaté", tu retournes dans le trombone et tu le sélectionnes
A+

[vbword]

Tu fais "Répondre". Tu vois l'icône en forme de trombone en dessus de ta réponse ? C'est là. N'oublie pas d'updater ton fichier dans la fenêtre qui va s'ouvrir
Une fois ton fichier "Updaté", tu retournes dans le trombone et tu le sélectionnes
A+

Merci à toi

Donc le formulaire Pièce jointe 10341

Quand tu l'ouvres, la macro s'active. Là tu cliques sur Annuler, tu vas dans VisualBasic, et tu auras le UserForm, et le script.

Voilà donc si tu trouves, c'est bien cool.

Encore merci @+

[ouskel'n'or]

Ton caractère, c'est vblf (asc 10 ou chr(10))
Maintenant, je vais voir pourquoi tu as ce foutu truc
Pour le remplacer, tu utilises ton code et tu remplaces tous les chr(10) de ton document.

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
Public Function Remplace()
'Procédure de remplacement
With ActiveDocument.Content.Find
 
.Text = "§doc§"
.Replacement.Text = frmUserForm1!txtdoc.Text
.Execute Replace:=wdReplaceAll
 
End With
With ActiveDocument.Content.Find
 
.Text = Vblf
.Replacement.Text = ""
.Execute Replace:=wdReplaceAll
 
End With

Ceci est un pis-aller qui va te permettre de supprimer des trucs qui ne devraient pas se trouver dans ton doc. Je regarde pourquoi ils y sont
A+
End Function

[ouskel'n'or]

Désolé mais les propriétés de ton textbox sont rigoureusement les mêmes que celles du mien.
J'ai collé mon textbox à moi sur ton userform et j'ai le même résultat de toi. J'y comprends rien !
Ecoute, si le code que je t'ai passé peut faire ton bonheur, on attendra que quelqu'un qui a déjà eu ce pb se présente... Pour le moment, je n'ai rien de mieux à t'offrir
Reviens demain avec ta question (plus mieux bien formatée )
Bonne soirée
A+

[SilkyRoad]

bonsoir

as tu essayé

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
Public Function Remplace()
'Procédure de remplacement
With ActiveDocument.Content.Find
    .Text = "§doc§"
    .Replacement.Text = Replace(txtdoc.Text, vbCrLf, vbCr)
    .Execute Replace:=wdReplaceAll
End With
End Function

michel

[vbword]

Salut Mr ousk', parce que là moi je dis Mr ...

Je retranscris sur mon fichier et ça marche c'est cool, t'es bon ...

Si à l'avenir j'ai besoin d'autres aides, je tacherai de faire attention à la formilation de mon problème.

Encore merci à toi.

Si il y a un problème, je te dirai.


Encore merci ciao @+

[ouskel'n'or]

Regarde la réponse de Michel, elle est plus orthodoxe que celle que je t'avais donné comme solution "provisoire"
A+

[vbword]

Exact, ça fonctionne aussi et comme tu dis, c'est plus orthodoxe ...

Encore merci à vous tous pour votre aide.

[ouskel'n'or]

Quand c'est bon, on fait un clic sur le bouton tout en bas de l'écran