Comment faire pour faire passer des donnée de vb dans Word ? Urgent

Question

J'aimerai imprimer des donnes de VB dans Word pour faire une mise en page de mes données. (ne pas utiliser cristal report car je n'arriverai pas a faire la mise en page car bcp de donnée qui doivent se positionner du certaine facon).

Merci d'avance.

Lolo VIPER · Answer

Salut,

J'ai trouvé sur ce site une source client Word, je ne me souviens qui était l'auteur,désolé L'AUTEUR :-(.

Je te refile quand même le source:

Private Sub BtnRelance_Click()
'Initialisation de MonWd

    Set MonWd = CreateObject("Word.Application")
    MonWd.Visible = True 'enlevez le commentaire pour les tests
    
'Ouverture d'un document présent dans le dossier de l'application

    MonWd.Documents.Open App.Path & "
ous3.doc"
    
'Positionnement dans le document sur le signet Qui et Qui2
'Saisie du contenu de la textbox dans le document Word

    MonWd.ActiveDocument.Bookmarks("Qui").Select
    MonWd.Selection.InsertAfter Genre.Text & " " & Text1.Text
    MonWd.ActiveDocument.Bookmarks("Qui2").Select
    MonWd.Selection.InsertAfter Genre.Text
    
'Positionnement dans le document sur le signet Quand
'Saisie du contenu de la textbox dans le document Word

    MonWd.ActiveDocument.Bookmarks("Quand").Select
    MonWd.Selection.InsertAfter Text2.Text
    
'Positionnement dans le document sur le signet Combien
'Saisie du contenu de la textbox dans le document Word

    MonWd.ActiveDocument.Bookmarks("Combien").Select
    MonWd.Selection.InsertAfter Text3.Text

    MonWd.ActiveDocument.Bookmarks("Toto").Select
    MonWd.Selection.InsertAfter "Signature"
    
'Impression du courrier
    'MonWd.ActiveDocument.PrintOut
    MonWd.ActiveDocument.GoTo
    
'Fermeture du document et de Word
    MonWd.ActiveDocument.Close False
    MonWd.Quit
End Sub

                           A+

                                 Lolo VIPER

Comment faire pour faire passer des donnée de vb dans Word ? Urgent

1 réponse

Discussions similaires