Copier EXCEL coller WORD
Fermé
Lils_Bis
Messages postés
57
Date d'inscription
lundi 4 avril 2016
Statut
Membre
Dernière intervention
28 décembre 2020
-
Modifié par Lils_Bis le 17/05/2016 à 11:37
pijaku Messages postés 12263 Date d'inscription jeudi 15 mai 2008 Statut Modérateur Dernière intervention 15 mars 2023 - 24 mai 2016 à 12:52
pijaku Messages postés 12263 Date d'inscription jeudi 15 mai 2008 Statut Modérateur Dernière intervention 15 mars 2023 - 24 mai 2016 à 12:52
A voir également:
- Copier EXCEL coller WORD
- Liste déroulante excel - Guide
- Supprimer une page word - Guide
- Formule excel - Guide
- Espace insécable word - Guide
- Word excel gratuit - Guide
3 réponses
jfqld
Messages postés
9080
Date d'inscription
jeudi 18 septembre 2008
Statut
Membre
Dernière intervention
28 mai 2018
125
17 mai 2016 à 16:10
17 mai 2016 à 16:10
copier un tableau excel dans word
dans Word il y a collage spécial
il suffit de cliquer sur coller avec les liaisons
et prendre feuilel microsoft office excel objet
dans Word il y a collage spécial
il suffit de cliquer sur coller avec les liaisons
et prendre feuilel microsoft office excel objet
Lils_Bis
Messages postés
57
Date d'inscription
lundi 4 avril 2016
Statut
Membre
Dernière intervention
28 décembre 2020
19 mai 2016 à 09:15
19 mai 2016 à 09:15
Personne ne voit quelque chose de réalisable là-dedans ? ☺
pijaku
Messages postés
12263
Date d'inscription
jeudi 15 mai 2008
Statut
Modérateur
Dernière intervention
15 mars 2023
2 712
19 mai 2016 à 09:35
19 mai 2016 à 09:35
Bonjour,
Il suffit de coller avec liaison...
J'ai également ajouté :
Comme ceci :
Il suffit de coller avec liaison...
PasteSpecial link:=true
J'ai également ajouté :
WordApp.Quitpour fermer word. Mais ça c'est toi qui voit...
Comme ceci :
Public Const wdLineBreak = 6
Sub Export_word()
Dim NDF As String
Dim WordApp As Object, WordDoc As Object
Dim i As Integer, cl As Integer, lg As Integer
NDF = ActiveWorkbook.Path & "\" & "Fiche_" & Format(Now(), "yyyymmdd_hhmm")
On Error Resume Next
Set WordApp = CreateObject("Word.Application")
WordApp.Visible = True
Set WordDoc = WordApp.Documents.Add
With WordApp.Selection
cl = Sheets("TAP").Range("IV1").End(xlToLeft).Column - 2
For i = 1 To cl Step 4
lg = Sheets("TAP").Cells(1, i).End(xlDown).Row
Sheets("TAP").Range(Cells(1, i), Cells(lg, i + 3)).Copy
.PasteSpecial Link:=True
.InsertBreak Type:=wdLineBreak
Next i
End With
Application.CutCopyMode = False
WordDoc.SaveAs NDF
WordApp.Quit
Set WordDoc = Nothing
Set WordApp = Nothing
MsgBox "Document Word créé"
End Sub
Lils_Bis
Messages postés
57
Date d'inscription
lundi 4 avril 2016
Statut
Membre
Dernière intervention
28 décembre 2020
24 mai 2016 à 12:00
24 mai 2016 à 12:00
Bonjour,
Tout d'abord je te remercie déjà de ton code !
La sortie WORD que me propose ton code n'est pas très esthétique (pas de création de tableau sous forme de grilles). Je joins ici, le document WORD affiché après exécution du programme. Je ne sais pas si tu as une idée pour corriger cela ?
https://www.cjoint.com/c/FEykaoyIPCf
Merci à toi ! :)
Bonne journée !
Tout d'abord je te remercie déjà de ton code !
La sortie WORD que me propose ton code n'est pas très esthétique (pas de création de tableau sous forme de grilles). Je joins ici, le document WORD affiché après exécution du programme. Je ne sais pas si tu as une idée pour corriger cela ?
https://www.cjoint.com/c/FEykaoyIPCf
Merci à toi ! :)
Bonne journée !
pijaku
Messages postés
12263
Date d'inscription
jeudi 15 mai 2008
Statut
Modérateur
Dernière intervention
15 mars 2023
2 712
>
Lils_Bis
Messages postés
57
Date d'inscription
lundi 4 avril 2016
Statut
Membre
Dernière intervention
28 décembre 2020
24 mai 2016 à 12:52
24 mai 2016 à 12:52
Bonjour,
Avant de changer quoique ce soit, as tu essayé de mettre en forme ton tableau sous excel avant de déclencher ta macro?
Avant de changer quoique ce soit, as tu essayé de mettre en forme ton tableau sous excel avant de déclencher ta macro?
17 mai 2016 à 16:23
Oui je sais, la "difficulté" étant de le faire avec VBA dans l'optique d'automatiser ce procédé peu importe le nom de tableau à copier.