Discussion :

[kan630]

Bonjour !

Je cherche à copier du texte mis en forme par l'utilisateur
d'une Textbox Access (RichText / Memo)
vers un signet Word

Mon code marche en débogage pas à pas
Mais me renvoit une erreur quand je lance le tout d'un coup

Code :

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

1
2
3
4
5
6
7
                Set RngWD = DOC.bookmarks(zeBookMark).Range
 
                Forms("F_FICHE").Controls(zeBookMark).SetFocus
 
                docmd.RunCommand acCmdCopy
 
                RngWD.PasteAndFormat (wdFormatOriginalFormatting)

C'est la troisième ligne qui me donne une erreur :

the command or action "copy" isn't available now

J'ai essayé de mettre un DoEvents avant la la copie mais ce n'est pas ça.
J'ai essayé de mettre CurrentProject.Application à la place de Docmd mais ça ne change rien.
J'ai essayé de copier le text de la textbox dans une variable, mais quand je le colle dans Word, c'est du html brut et rien n'est formaté
Quand je copie/colle à la main, ça marche, et quand je lance le code en pas à pas, ça marche également !

Arggg...
Des idées ?

[kan630]

j'ai trouvé après quelques essais...
Je pense que le problème était qu'il fallait donner le focus au form en 1er, puis au contrôle en 2eme
Ce qui me donne

Code :

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

1
2
3
4
5
6
7
8
9
With Access.Application.Forms("F_FICHE").Controls(zeBookMark)
      .Parent.SetFocus
      .SetFocus
      .SelStart = 0
      .SelLength = Len(.Text)
End With
DoEvents
Access.Application.RunCommand acCmdCopy
RngWD.PasteAndFormat (wdFormatOriginalFormatting)

ouf