Discussion :

[PSEUDOMONASSE]

Bonjour,

Solution actuelle : je copie du texte dans access (DoCmd.RunCommand acCmdCopy) ensuite j’ouvre un fichier word avec entête prédéfinie, le point d’insertion se plaçant automatiquement en dessous de l’entête, je clique sur l’icône coller de word, le texte qui a préalablement été formaté dans access se colle parfaitement dans word en respectant le formatage.
Je souhaiterais automatiser cette opération en restant dans l’environnement access via une instruction vba qui remplace le recours au bouton coller de word.

Merci de vos réponses

[Zekraoui_Jakani]

Voici une des solutions possibles:

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
35
36
37
38
39
40
41
Sub CopyPasteIntoWord()
 
      Dim NewObject As Object
      Dim NewDoc As String
      Dim DocPath As String
 
      ' Nom du nouveau document à créer.
      Dim Dnam As String
      Dnam = NomDeFichier & ".doc"
      NewDoc = Dnam
 
      ' Lieu d'enregistrement du nouveau document:
      ' Voir DefaultDir$() dans Word on-line help pour plus options.
      DocPath = "D:\Kpic"   'à modifier en mettant votre propre répertoire
 
      ' Copier le texte dans le Clipboard (presse-papier).
      'ceci suppose que votre texte à été sélectionné, ou bien il se trouve dans une zone-texte activée
      DoCmd.RunCommand acCmdCopy
      DoEvents
 
      ' Ouvrir un document et y coller le contenu du Clipboard.
      ' Enregistrer le nouveau fichier et fermer le document.
 
    Set NewObject = CreateObject("Word.Application")
    NewObject.Visible = True
    NewObject.Activate
    NewObject.ChangeFileOpenDirectory "D:\"   'à modifier en mettant votre propre répertoire
    NewObject.Documents.Open FileName:="Point.dotx" 'extension à adapter
    NewObject.Selection.Paste
     'effacer les espaces inutiles!
    NewObject.Selection.TypeBackspace
 
     NewObject.ActiveDocument.SaveAs FileName:=DocPath & "\" & NewDoc
 
     NewObject.ActiveDocument.Close 'à transformer en commentaire si l'on veut consulter le doc
 
      ' Libérer la mémoire used by the objects.
      Set NewObject = Nothing
 
      MsgBox DocPath & "\" & NewDoc & " was successfully created ."
End Sub

[PSEUDOMONASSE]

Merci de ta contribution

J'ai trouvé la solution suivante:

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
Private Sub Copier_coller_access_dans_word_Click()
'Avant l'intervention de cette procédure le texte à coller est contenu dans le presse papiers et le fichier WORD à compléter est ouvert
Dim appWord As Word.application
Dim rngTemp As Range
Set appWord = GetObject(, "Word.Application")
Set rngTemp = appWord.ActiveDocument.Range(Start:=0, End:=0)
With rngTemp
  .Paste
  .Font.Name = "Arial"
  .Font.Size = 10
  .InsertParagraphAfter
End With
Set appWord = Nothing
Set rngTemp = Nothing
End Sub