VBA Excel-Word Passage d'informations Fermé

Question

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

jdmdb · Answer

up

michel_m · Answer

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....

Chris 94 · Answer

Bonjour,

Les réponses sont données par des personnes bénévoles, pas par des machines. Merci d'utiliser des formules de politesse courantes (bonjour, merci, s'il vous plait...).

https://www.commentcamarche.net/infos/25855-charte-d-utilisation-de-commentcamarche-net-respect-d-autrui/#politesse

@+