XL 2013 améliorer code

[gena]

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

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]

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

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

 

[gena]

bonsoir personne peut m'aider svp

 

[soan]

Bonsoir gena,

Ouvre le fichier, puis fais Ctrl e

soan

 

[gena]

superbe mais comment le faire sans ctrl e sinon voila se que je recherche
enfin merci pour le temps que tu a bien voulus accorder

 

[gena]

désoler merci j'ai trouvé parler trop vite encore merci pour tout

 

[gena]

juste un question cela ouvre word ok mais pourquoi j'ai avec votre exemple 22 feuille dans word

 

[soan]

22 feuilles dans Word ??? sur mon PC, j'ai une seule feuille dans Word :
Coin bas gauche : « Page : 1 sur 1 »

 

[gena]

merci je trouve moi a gauche 28 mots 22 page je pense que cela vient de word dans les parametres je regarde
encore merci