A voir également:
- Copier et coller une sélection dans EXCEL vers un doc WORD
- Word et excel gratuit - Guide
- Word 2013 - Télécharger - Traitement de texte
- .Doc - Guide
- Supprimer une page dans word - Guide
- Tableau word - Guide
4 réponses
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...
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
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 ?
