Discussion :

[AidezMoiSvp]

Bonjour,

Je souhaiterai copier/coller une textbox enrichie d'un formulaire access vers word.

Voici mon code :

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
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
Dim ObjWord As Word.Application
Dim DocWord As Word.Document
Dim iswordopen As String
Dim db As DAO.Database, rst As DAO.Recordset, fld As DAO.Field
Dim sSQL As String
 
    ' Ouverture de la base de données
    Set db = CurrentDb
    sSQL = "Select * From tblAnnuaire Where IDAnnuaire=" & Me.IDAnnuaire
    ' Ouverture du Recordset
    Set rst = db.OpenRecordset(sSQL, dbOpenForwardOnly, dbReadOnly)
 
    Me.txtCorps.SetFocus
    Me.txtCorps.SelStart = 0
    Me.txtCorps.SelLength = Len(txtCorps.Text)
    DoCmd.RunCommand acCmdCopy
 
 
Set ObjWord = GetObject(, "word.application")
    iswordopen = Not ObjWord Is Nothing
 
    If iswordopen = "faux" Then
        Set ObjWord = CreateObject("word.application")
        Set DocWord = ObjWord.Documents.Add("C:\Users\Perso\Desktop\ModeleCourrier.dotx")
        DocWord.Application.Visible = True
    Else
        Set ObjWord = GetObject(, "word.application")
        Set DocWord = ObjWord.Documents.Add("C:\Users\Perso\Desktop\ModeleCourrier.dotx")
        DocWord.Application.Visible = True
    End If
 
With ObjWord.ActiveDocument
.Bookmarks("sgtCorps").Range.Text = .Paste
End With

Ca ne fonctionne pas. Une idée ?

J'ai fait également ça :

Code :

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

1
2
ObjWord.Selection.Goto What:=wdGoToBookmark, Name:="sgtCorps"
    ObjWord.Selection.Paste

Ca fonctionne mais je perds ma mise en forme de word (il me colle en callibri alors que je veux du arial)
De plus mon signet se trouve à une tabulation de la marge et quand je colle il me supprime ma tabulation.

Merci

Que plus personne ne bouge ! J'ai trouvé !

Code :

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

ObjWord.Selection.PasteAndFormat (wdFormatSurroundingFormattingWithEmphasis(wdPasteDefault)

[Sepia]

Salut AidezMoiSvp

Trop rapide Speedy Gonzalés