correspondance excel word Résolu/Fermé

Question

Bonjour, tout d'abord j'aimerais vous remercier de vous attarder sur mon problème. Alors je m'explique : 
Je suis débutante dans les macros et j'aimerais faire une macro qui pourrais transférer le résultats d'un filtre avancé dans Word ou en PDF. 
Mais je n'ai aucunes idée de comment faire cela ...
Les résultats pouvant aller d'une ligne à environ 200 lignes, avec 14 colonnes.
Merci de vos réponses

Ayuritenshi · Answer

Voilà pour ceux qui ne savais pas et qui ont quand même regardé mon sujet :
Sub Excel_Word()

Dim oWdApp As Object 'Word.Application
Dim oWdDoc As Object 'Word.Document

'Lancer une instance Word
Set oWdApp = CreateObject("Word.Application")

'Ouvrir un nouveau document
Set oWdDoc = oWdApp.Documents.Add

'Rendre Word visible
oWdApp.Visible = True

'Copier une plage depuis Excel
ActiveSheet.Range("A6:O1000").Copy

'Coller la plage dans Word
oWdApp.Selection.Paste

'Annuler le mode couper/copier
Application.CutCopyMode = False

End Sub

Correspondance excel word

1 réponse

Discussions similaires