Correspondance excel word

Résolu
Ayuritenshi Messages postés 281 Date d'inscription   Statut Membre Dernière intervention   -  
Ayuritenshi Messages postés 281 Date d'inscription   Statut Membre Dernière intervention   -
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
A voir également:

1 réponse

Réponse 1 / 1
Ayuritenshi Messages postés 281 Date d'inscription   Statut Membre Dernière intervention   53
 
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
0