XL 2013 améliorer code

gena

XLDnaute Occasionnel
bonjour le forum
voila j'ai trouvé un code qui pourrais me servire mais voila il ouvre bien word mais il bloque je recherche qu'il copy les données de ma feuille résultats
pouvez vous me dépanner svp
VB:
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
[COLOR=rgb(184, 49, 47)]Sheets("résultats").Range("A2:l200").Copy[/COLOR]

'Coller la plage dans Word
oWdApp.Selection.Paste

'Annuler le mode couper/copier
Application.CutCopyMode = False

End Sub
 

gena

XLDnaute Occasionnel
ente une autre approche la il copy ma feuille mais le code est pas génial peut ton améliorer
avec tout mes remercîments par avance
VB:
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
 Sheets("résultas").Select
    Range("A1:M492").Select
    Selection.Copy

'Coller la plage dans Word
oWdApp.Selection.Paste

'Annuler le mode couper/copier
Application.CutCopyMode = False

End Sub
 

Discussions similaires

Statistiques des forums

Discussions
311 725
Messages
2 081 940
Membres
101 845
dernier inscrit
annesof