VB client de WordRésolu

Question

Bonjour ! J'ai un petit probl&#232;me qui &#224; mon avis n'est pas compliqu&#233; &#224; r&#233;soudre mais vu que je d&#233;bute en vb je ne vois pas la solution. Il m'a &#233;t&#233; demand&#233; de cr&#233;er un document word et d'ajouter un signet. Ensuite en vb, je dois r&#233;cup&#233;rer des noms et pr&#233;noms d'une base de donn&#233;es et les envoyer &#224; la place du signet. Je l'ai fait mais il &#233;crit les noms les uns derri&#232;re les autres et moi je voudrais qu'il n'y ai qu'un nom et pr&#233;nom par page. Donc ma question est la suivante : apr&#232;s avoir envoy&#233; le nom et le pr&#233;nom dans le signet, y a-t-il quelque chose &#224; ajouter pour passer &#224; la page suivante ?

mon code est le suivant :

    Dim rs_Eleves As Recordset
    Dim str_NomPrenom As String
    
    Set rs_Eleves = db_Eleves.OpenRecordset("Select * from Eleves", dbOpenDynaset)
    Set word_Eleves = CreateObject("Word.Application")
    word_Eleves.Visible = True
    
    word_Eleves.Documents.Open App.Path & "\Eleves.doc"
    
    Do Until rs_Eleves.EOF
        
        str_NomPrenom = rs_Eleves("ele_Nom") & " " & rs_Eleves("ele_Prenom")
        word_Eleves.ActiveDocument.Bookmarks("Nom_prenom").Select
        word_Eleves.Selection.InsertAfter str_NomPrenom
        
        word_Eleves.ActiveDocument.PrintOut
        
        rs_Eleves.MoveNext
    
    Loop
    
    word_Eleves.ActiveDocument.Close False
    word_Eleves.Quit
     
    rs_Eleves.Close
    Set rs_Eleves = Nothing

pseudoOM

pseudoOM · Accepted Answer

J'ai trouv&#233; la solution : j'ai d&#233;clar&#233; un champs dans le document word au lieu d'un signet. Ensuite je fais :
Do Until rs_Eleves.EOF
        
        str_NomPrenom = rs_Eleves("ele_Nom") & " " & rs_Eleves("ele_Prenom")
        word_Eleves.ActiveDocument.FormFields("Nom_prenom").Result = str_NomPrenom
        
        word_Eleves.ActiveDocument.PrintOut
        rs_Eleves.MoveNext
    
    Loop
et &#231;a fonctionne !

 pseudoOM

VB client de Word

1 réponse

Discussions similaires