Correspondance excel word
Résolu
Ayuritenshi
Messages postés
299
Statut
Membre
-
Ayuritenshi Messages postés 299 Statut Membre -
Ayuritenshi Messages postés 299 Statut Membre -
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
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
1 réponse
-
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
