Correspondance excel word
Résolu/Fermé
Ayuritenshi
Messages postés
278
Date d'inscription
vendredi 15 mai 2015
Statut
Membre
Dernière intervention
5 mai 2016
-
19 mai 2015 à 09:38
Ayuritenshi Messages postés 278 Date d'inscription vendredi 15 mai 2015 Statut Membre Dernière intervention 5 mai 2016 - 20 mai 2015 à 13:21
Ayuritenshi Messages postés 278 Date d'inscription vendredi 15 mai 2015 Statut Membre Dernière intervention 5 mai 2016 - 20 mai 2015 à 13:21
A voir également:
- Correspondance excel word
- Supprimer une page word - Guide
- Liste déroulante excel - Guide
- Word excel gratuit - Guide
- Espace insécable word - Guide
- Organigramme word - Guide
1 réponse
Ayuritenshi
Messages postés
278
Date d'inscription
vendredi 15 mai 2015
Statut
Membre
Dernière intervention
5 mai 2016
53
Modifié par Ayuritenshi le 20/05/2015 à 13:22
Modifié par Ayuritenshi le 20/05/2015 à 13:22
Voilà pour ceux qui ne savais pas et qui ont quand même regardé mon sujet :
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("A6:O1000").Copy
'Coller la plage dans Word
oWdApp.Selection.Paste
'Annuler le mode couper/copier
Application.CutCopyMode = False
End Sub
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("A6:O1000").Copy
'Coller la plage dans Word
oWdApp.Selection.Paste
'Annuler le mode couper/copier
Application.CutCopyMode = False
End Sub
