VBA Excel-Word Passage d'informations

jdmdb -  
Chris 94 Messages postés 54087 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
A voir également:

3 réponses

Réponse 1 / 3
michel_m Messages postés 16602 Date d'inscription   Statut Contributeur Dernière intervention   3 314
 
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
Réponse 2 / 3
jdmdb
 
up
0
Réponse 3 / 3
Chris 94 Messages postés 54087 Date d'inscription   Statut Modérateur Dernière intervention   7 345
 
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

@+
0