Discussion :

[e040098k]

Bonjour,

je suis en train de réaliser une appli permettant de rédiger des contrat grace à le source de heureuxoli http://heureuxoli.developpez.com/publipostage/

Dans un des clauses, je souhaite remplacer certain mots (ex : NomSalarié) par un le mot correspondant (Exupont).

J'ai fait ce code mais il est long à s'executer (normal c'est une boucle)

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
    Dim Plage As Object, Wrd As Object
    Set Plage = ActiveDocument.Content.Words
 
        For Each Wrd In Plage
        stSQL02 = "select * from tblclient where idclient =" & rs01.Fields("idclient").Value
        Set rs02 = db.OpenRecordset(stSQL02) 'définition du second recordset table client
 
            If Wrd = "CivilitéSalarié" Or Wrd = "CivilitéSalarié " Then Wrd = Replace(Wrd, Wrd, rs02.Fields("sttitre"))
            If Wrd = "PrénomSalarié" Or Wrd = "PrénomSalarié " Then Wrd = Replace(Wrd, Wrd, rs02.Fields("stPrenom"))
            If Wrd = "NomSalarié" Or Wrd = "NomSalarié " Then Wrd = Replace(Wrd, Wrd, rs02.Fields("stNom"))
            If Wrd = "VilleSalarié" Or Wrd = "VilleSalarié " Then Wrd = Replace(Wrd, Wrd, rs02.Fields("stVille"))
            If Wrd = "DateNaissanceSalarié" Or Wrd = "DateNaissanceSalarié " Then Wrd = Replace(Wrd, Wrd, rs02.Fields("stDateNaissance"))
            If Wrd = "LieuNaissanceSalarié" Or Wrd = "LieuNaissanceSalarié " Then Wrd = Replace(Wrd, Wrd, rs02.Fields("stLieuNaissance"))
            If Wrd = "NumSécuSalarié" Or Wrd = "NumSécuSalarié " Then Wrd = Replace(Wrd, Wrd, rs02.Fields("stNumSecu"))
        Next Wrd

Est-ce que quelqu'un connait une meilleure solution ?

Merci de votre aide !

[Speedrman]

Salut,

Si tu peux modifier le document que tu dois remplir par macro.

Je te recommande d'utiliser des signets

Ex: dans word tu sélectionnes "CivilitéSalarié" tu lui ajoutes un signet du même nom.

puis par code quand tu voudras le modifier, tu n'auras plus besoins de parcourir mot par mot

il te faudra

Code :

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

1
2
3
If ActiveDocument.Bookmarks.Exists("CivilitéSalarié") Then
    ActiveDocument.Bookmarks("CivilitéSalarié").Value = "ton texte"
End If

[e040098k]

Très bonne idée seulement mon document word est un .dot et il est vierge, la position des signets en peut pas être définie !

De plus ton code ne serait pas plutôt : ? avec .Range.Text

Code :

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

1
2
3
If ActiveDocument.Bookmarks.Exists("CivilitéSalarié") Then
    ActiveDocument.Bookmarks("CivilitéSalarié").Range.Text = "ton texte"
End If

Je continue à chercher !

[Speedrman]

De plus ton code ne serait pas plutôt : ? avec .Range.Text

oui c'est mieux comme ça, dsl : )



et comment tu remplis le modèle dans ce cas ?

[e040098k]

Je le rempli a partir d'access, grâce à des recordset !

donc je ne peut pas définir de signets ou de champs de publipostage !

Enfin je ne crois pas !

[Speedrman]

Alors dans ce cas, fais une recherche dans le document pour retrouver les mots à remplacer, ça sera toujours plus rapide qu'une boucle sur chaque mot..

Ils sont déjà connu, puisque tu les as mis en dur dans le code, non ?

[e040098k]

Alors dans ce cas, fais une recherche dans le document pour retrouver les mots à remplacer, ça sera toujours plus rapide qu'une boucle sur chaque mot..

Ils sont déjà connu, puisque tu les as mis en dur dans le code, non ?

D'accord mais comment tu le fait en vba ?

[Heureux-oli]

Je le rempli a partir d'access, grâce à des recordset !

donc je ne peut pas définir de signets ou de champs de publipostage !

Enfin je ne crois pas !

Si, tu peux demander d'aller sur des signets.

Regarde ici, j'ai mis un code

[e040098k]

Citation:e040098k a écrit :
Je le rempli a partir d'access, grâce à des recordset !

donc je ne peut pas définir de signets ou de champs de publipostage !

Enfin je ne crois pas !

Si, tu peux demander d'aller sur des signets.

Regarde ici, j'ai mis un code

Ok ça fonctionne très bien chez moi. Mais en mode pas à pas ! lorsque je lance la macro normalement, elle bute sur l'insertion de l'image et j'ai un message : "le serveur distant n'existe pas ou n'est pas disponible"

Sais-tu à quoi cela peut-il être du ?