Cette boucle (voir plus bas) me permet d'insérer dans un document des données contenu dans un recordset access. Mais là n'est la question !
Après avoir insérer le texte de mon recordset,
Je souhaite lui appliqué un style (Titre)
Code : Sélectionner tout - Visualiser dans une fenêtre à part .TypeText rs03.Fields("strubrique") 'après cette ligne mon texte est ajouté !
j'ai mis ce code trouvé grace à l'enregistreur :
Mais il me met une erreur : "La méthode style de l'Objet Selection à échoué
Code : Sélectionner tout - Visualiser dans une fenêtre à part .Style = ActiveDocument.Styles("Titre") 'j'ai une erreur ici !
Quelqu'un à une idée ?
Merci de votre aide !
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14 stSQL03 = "SELECT tblContrat.idContrat, tblClause.idClause, tblClause.stRubrique, tblClause.stClause FROM tblContrat INNER JOIN (tblClause INNER JOIN tblDetailContrat ON tblClause.idClause = tblDetailContrat.idClause) ON tblContrat.idContrat = tblDetailContrat.idContrat WHERE tblContrat.idContrat= " & rs01.Fields("idcontrat") Set rs03 = db.OpenRecordset(stSQL03) While Not rs03.EOF 'boucle pour récuperer les enregistrements de la table liée With wApp.Selection .TypeText rs03.Fields("strubrique") 'après cette ligne mon texte est ajouté ! .Style = ActiveDocument.Styles("Titre") 'j'ai une erreur ici ! .TypeParagraph .TypeText rs03.Fields("stclause") .TypeParagraph .TypeParagraph End With rs03.MoveNext Wend
Partager