XL 2013 améliorer code

  • Initiateur de la discussion Initiateur de la discussion gena
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

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
 
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
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Réponses
2
Affichages
511
  • Question Question
Microsoft 365 Code VBA
Réponses
7
Affichages
817
Réponses
3
Affichages
491
Réponses
12
Affichages
969
Réponses
0
Affichages
706
Réponses
3
Affichages
829
Réponses
1
Affichages
683
Retour