VBA Excel-Word Passage d'informations

jdmdb -  
Chris 94 Messages postés 1937 Date d'inscription   Statut Modérateur Dernière intervention   -
Bonjour,

Je cherche à passer des informations d'un excel vers un word afin de les utiliser après.

Je vous joint le code (enfin un début ^^)

Dim ligne As Integer

ligne = ActiveCell.Row

Windows("Veille outil pige.xlsm").Activate
Sheets("Liste articles").Select
Cells(ligne, 3).Select
Application.CutCopyMode = False

Windows("Revue de Presse.doc").Activate
Selection.Copy

Windows("Veille outil pige.xlsm").Activate
Sheets("Liste articles").Select
Range(Cells(ligne, 5)).Select
Application.CutCopyMode = False

Windows("Revue de presse.docx").Activate

Set WordObj = CreateObject("Note")
Selection.Copy
Set WordObj = CreateObject("/5")

'Selection.TypeBackspace
'vbCrLf

Windows("Veille outil pige.xlsm").Activate
Sheets("Liste articles").Select
Range(Cells(ligne, 7)).Select

Windows("Revue de presse.docx").Activate
Application.CutCopyMode = False
Selection.Copy

3 réponses

  1.
    michel_m Messages postés 18903 Date d'inscription   Statut Contributeur Dernière intervention   3 320
     
    up après une 1/2 heure ?

    On n'est pas des robots... surtout sans un minimum de courtoisie genre "merci d'avance" ou svp....
    1

Discussions similaires

Symbole Attention dans Word
Nortec59 -
LOUL7619 -

33 réponses