XL 2013 améliorer code

G

gena

XLDnaute Occasionnel

• 18 Août 2020

• #2

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

 

Vote positif 0 Vote négatif

G

gena

XLDnaute Occasionnel

• 19 Août 2020

• #3

bonsoir personne peut m'aider svp

 

Vote positif 0 Vote négatif

S

soan

XLDnaute Barbatruc

Inactif

• 19 Août 2020

• #4

Bonsoir gena,

Ouvre le fichier, puis fais Ctrl e

soan

 

Pièces jointes

• Exo gena.xlsm

  18.1 KB · Affichages: 10

Vote positif 0 Vote négatif

G

gena

XLDnaute Occasionnel

• 19 Août 2020

• #5

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

 

Vote positif 0 Vote négatif

G

gena

XLDnaute Occasionnel

• 19 Août 2020

• #6

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

 

Vote positif 0 Vote négatif

G

gena

XLDnaute Occasionnel

• 19 Août 2020

• #7

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

 

Vote positif 0 Vote négatif

S

soan

XLDnaute Barbatruc

Inactif

• 19 Août 2020

• #8

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

 

Vote positif 0 Vote négatif

G

gena

XLDnaute Occasionnel

• 19 Août 2020

• #9

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

 

Vote positif 0 Vote négatif