Copier et coller une sélection dans EXCEL vers un doc WORD
Fermé
Mikaconny
-
16 juil. 2015 à 13:30
Kuartz Messages postés 850 Date d'inscription vendredi 13 février 2015 Statut Membre Dernière intervention 15 février 2019 - 21 juil. 2015 à 15:04
Kuartz Messages postés 850 Date d'inscription vendredi 13 février 2015 Statut Membre Dernière intervention 15 février 2019 - 21 juil. 2015 à 15:04
A voir également:
- Copier et coller une sélection dans EXCEL vers un doc WORD
- Supprimer une page word - Guide
- Liste déroulante excel - Guide
- Formule excel - Guide
- .Doc - Guide
- Espace insécable word - Guide
4 réponses
cs_Le Pivert
Messages postés
7883
Date d'inscription
jeudi 13 septembre 2007
Statut
Contributeur
Dernière intervention
18 mars 2023
724
16 juil. 2015 à 15:35
16 juil. 2015 à 15:35
Bonjour,
Voir ceci:
http://www.info-3000.com/vbvba/automation.php
Voir ceci:
http://www.info-3000.com/vbvba/automation.php
En fait, je souhaiterais à l'aide d'un "CommandButton", copier un tableau ou une plage de cellule sur Excel en VBA, ouvrir en parallèle un fichier Word et collet ma sélection... j'ai beau chercher sur le net, je ne trouve pas...
Kuartz
Messages postés
850
Date d'inscription
vendredi 13 février 2015
Statut
Membre
Dernière intervention
15 février 2019
59
17 juil. 2015 à 10:22
17 juil. 2015 à 10:22
Salut à toi !
Ce code devrait faire l'affaire dans le cas où ton tableau peut être variable et le document Word sera enregistré dans C:\
Ce code devrait faire l'affaire dans le cas où ton tableau peut être variable et le document Word sera enregistré dans C:\
Sub Copier_Coller_Word()
Set Source = ThisWorkbook
DL = Cells(Application.Rows.Count, 1).End(xlUp).Row 'détermine la dernière ligne du tableau (en prenant comme référence la colonne A
Nomdufichier = InputBox("Nom du fichier", "Saisie") 'enregistre le fichier sous le nom donné
Dim varDoc As Object
Set varDoc = CreateObject("Word.Application")
varDoc.Visible = True
Sheets(1).Range("A1:C" & DL).Copy 'selection du tableau (à adapter, C étant ici la dernière colonne)
varDoc.Documents.Add
varDoc.Selection.Paste 'recopie dans le document Word
Application.CutCopyMode = False
varDoc.ActiveDocument.SaveAs ThisWorkbook.Path & "/" & Nomdufichier & ".doc" 'Enregistre le fichier sous le nom donné dans la InputBox
Set varDoc = Nothing
Set Source = Nothing 'Les 2 lignes permettent de libérer la mémoire
End Sub
Kuartz
Messages postés
850
Date d'inscription
vendredi 13 février 2015
Statut
Membre
Dernière intervention
15 février 2019
59
17 juil. 2015 à 10:23
17 juil. 2015 à 10:23
Sub Copier_Coller_Word()
Set Source = ThisWorkbook
DL = Cells(Application.Rows.Count, 1).End(xlUp).Row 'détermine la dernière ligne du tableau (en prenant comme référence la colonne A
Dim varDoc As Object
Set varDoc = CreateObject("Word.Application")
varDoc.Visible = True
Sheets(1).Range("A1:C" & DL).Copy 'selection du tableau (à adapter, C étant ici la dernière colonne)
varDoc.Documents.Add
varDoc.Selection.Paste 'recopie dans le document Word
Application.CutCopyMode = False
Set varDoc = Nothing
Set Source = Nothing 'Les 2 lignes permettent de libérer la mémoire
End Sub
Si tu ne souhaite pas enregistrer.
Merci beaucoup, ça marche mais ne reproduit pas exactement la mise en page souhaitée.
Est-il possible de faire de même avec Excel. C'est a dire de copier une feuille à l'identique, ouvrir un nouveau fichier Excel et coller la feuille ou la sélection ?
Est-il possible de faire de même avec Excel. C'est a dire de copier une feuille à l'identique, ouvrir un nouveau fichier Excel et coller la feuille ou la sélection ?
Kuartz
Messages postés
850
Date d'inscription
vendredi 13 février 2015
Statut
Membre
Dernière intervention
15 février 2019
59
17 juil. 2015 à 17:35
17 juil. 2015 à 17:35
C'est à dire ne reproduit pas la mise en page souhaitée?
mikaconny
Messages postés
14
Date d'inscription
samedi 11 juillet 2015
Statut
Membre
Dernière intervention
19 juillet 2015
19 juil. 2015 à 14:14
19 juil. 2015 à 14:14
C'est à dire que sur Excel, j'ai tableau en format paysage, quand j'applique le code, il copie et colle dans un fichier Word mais au format initiale soit portrait... il n'est pas centré, il déborde? Pourtant, j'ai préparé le paramétrage de ma feuille Word...
Kuartz
Messages postés
850
Date d'inscription
vendredi 13 février 2015
Statut
Membre
Dernière intervention
15 février 2019
59
21 juil. 2015 à 15:04
21 juil. 2015 à 15:04
Désolé je n'ai pas de solution pour ça... Quelqu'un peut-il apporter son aide?