Recherche améliorer code

Question

Voila mon petit problème j'ai trouvé un code qui pourrais me faire se que je voudrais mais seulement il copy ma page acceuil alors que je voudrais voir ma feuille résultats dans Word pour pouvoir imprimé cette page que me manque t'il dans le code svp avec tout mes remerciments 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("A1:E500").Copy 'Coller la plage dans Word oWdApp.Selection.Paste 'Annuler le mode couper/copier Application.CutCopyMode = False End Sub...

3GB · Accepted Answer

Sub Excel_Word()

Dim oWdApp As Word.Application
Dim oWdDoc As Word.Document

ThisWorkbook.Sheets("résultats").Range("A1:M492").Copy 'Copier une plage depuis Excel
'ThisWorkbook.Sheets("résultats").Range("A1").CurrentRegion.Copy 'choisir cette ligne si la sélection est continue

Set oWdApp = CreateObject("Word.Application") 'Lancer une instance Word
Set oWdDoc = oWdApp.Documents.Add 'Ouvrir un nouveau document
oWdApp.Visible = True 'Rendre Word visible

With oWdDoc
    .Rows(1).Cells(1).Paste 'coller le presse-papier en cellule 1 du nouveau document
    .SaveAs Filename:="Mon nouveau fichier Word.doc", FileFormat:=wdFormatDocument
    .Close SaveChanges:=wdPromptToSaveChanges
End with

AppActivate "Excel" 'ou "Microsoft Excel" 'réactive Excel si besoin
ThisWorkbook.Activate 'Active notre classeur en cours (sur lequel est exécuté ce code)

Set oWdDoc = Nothing 'libère variable Document Word
Set oWdApp = Nothing 'libère variable Application Word

End Sub

Il faut que tu fasses des petits par toi-même aussi et que tu lises mes commentaires pour prendre en compte ce qui est à surveiller, à savoir :

- Tester avec la ligne AppActivate car tu voyages d'une application à une autre. Donc, quand l'une est active, l'autre ne l'est plus. C'est pourquoi on copie d'abord sur excel puis on lances Word qui devient active et on colle, en cellule 1 cette fois.

Vérifie bien que ton nom de feuille est le bon.

h2so4 · Answer

Essaie en remplaçant cette instruction ActiveSheet.Range("A1:E500").Copy par celle-ci Sheets("nom de ta feuille qui contient la plage de données à copier").Range("A1:E500").Copy en remplacant nom de ta feuille qui contient la plage de données à copier par le nom qui va bien, bien sûr ...

h2so4 · Answer

Difficile de t'aider sans voir ton classeur. Vérifie que tu as bien écrit le nom de l'onglet...

3GB · Answer

Peut-être que ça marcherait en réagençant votre code : Sub Excel_Word() Dim oWdApp As Object 'Word.Application Dim oWdDoc As Object 'Word.Document 'AppActivate "Excel" 'Activation d'Excel au cas où 'Copier une plage depuis Excel ActiveSheet.Range("A1:E500").Copy 'ou Sheets("résultats") : attention aux accents ou majuscules ! 'AppActivate "Word" Activation de Word au cas où 'Lancer une instance Word Set oWdApp = CreateObject("Word.Application") 'Ouvrir un nouveau document Set oWdDoc = oWdApp.Documents.Add 'Rendre Word visible oWdApp.Visible = True 'Coller la plage dans Word oWdApp.Paste 'ou oWdApp.Selection.Paste 'Annuler le mode couper/copier Application.CutCopyMode = False End Sub Je ne connais rien à VBA pour word mais je pense que c'est parce que excel n'était plus actif à cause de la manipulation de word... Cordialement...