XL 2021 Passage de Word à Excel

clausen

XLDnaute Occasionnel
Bonjour

J'ai un fichier Word d'une facture. Fichier très difficile à remplir ou compléter avec Word.
J'aimerais pouvoir le transférer sur Excel et avoir un tableau identique facile à modifier.
Je n'ai aucune idée comment le faire

Merci d’avance pour votre réponse et bonne journée
 

Pièces jointes

  • Facture.docx
    65.6 KB · Affichages: 18

job75

XLDnaute Barbatruc
Bonjour à tous,

Un simple copier-coller :
VB:
Sub Copier_Word()
Dim Wapp As Object
On Error Resume Next
Set Wapp = GetObject(, "Word.Application")
If Wapp Is Nothing Then Set Wapp = CreateObject("Word.Application")
On Error GoTo 0
Wapp.Visible = True
With ActiveSheet
    .Cells.Delete
    Wapp.Documents.Open(ThisWorkbook.Path & "\Facture.docx").Content.Copy 'copier
    .Paste 'coller
    .DrawingObjects.Delete
    .Cells.WrapText = False
    .Columns.AutoFit 'ajustement largeurs
    .[A1].Select
End With
End Sub
A+
 

Pièces jointes

  • Classeur(1).xlsm
    15.2 KB · Affichages: 6
  • Facture.docx
    65.6 KB · Affichages: 6

patricktoulon

XLDnaute Barbatruc
Bonjour @job75
on est loin de l'objectif avec ta copie brute
le client se retrouve a gauche
le titre objet se retrouve carrément en dessous le tableau
et le décor n'est pas copié hors c'est une partie de la demande
1708688552406.png
 

job75

XLDnaute Barbatruc
La cellule (2, 6) de valeur 375.00 du tableau Word contient des espaces et n'est pas centrée.
Cette macro y remédie :
VB:
Sub Copier_Word()
Dim Wapp As Object
On Error Resume Next
Set Wapp = GetObject(, "Word.Application")
If Wapp Is Nothing Then Set Wapp = CreateObject("Word.Application")
On Error GoTo 0
Wapp.Visible = True
With ActiveSheet
    .Cells.Delete
    With Wapp.Documents.Open(ThisWorkbook.Path & "\Facture.docx")
        .Tables(1).Cell(2, 6).Range = Trim(.Tables(1).Cell(2, 6).Range)
        .Tables(1).Cell(2, 6).Range.ParagraphFormat.Alignment = 1 'wdAlignParagraphCenter
        .Content.Copy 'copier
    End With
    .[A1].Select
    .Paste 'coller
    .DrawingObjects.Delete
    .Cells.WrapText = False
    .Columns.AutoFit 'ajustement largeurs
    .[A1].Select
End With
End Sub
 

Pièces jointes

  • Classeur(1).xlsm
    16 KB · Affichages: 5
  • Facture.docx
    65.6 KB · Affichages: 2

clausen

XLDnaute Occasionnel
Dernière version mais il est impossible d'accéder à la partie du bas (Total Conditions de paiement)

Je n'arrive pas à garder le dessin vert et chouter le reste. Et continuer le tableau

Merci d’avance pour votre réponse et bonne journée
 

Pièces jointes

  • Facture excel.xlsm
    39.4 KB · Affichages: 7

Discussions similaires

Réponses
15
Affichages
944
Compte Supprimé 979
C

Statistiques des forums

Discussions
313 192
Messages
2 096 069
Membres
106 486
dernier inscrit
Barklem