XL 2021 Passage de Word à Excel

[clausen]

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

 

[Volvo64400]

Bonjour Clausen

Je pense qu'il faudrait convertir ton fichier docx en pdf et après le convertir en fichier excel.

 

[clausen]

Merci, mais c'est une catastrophe

Plus d'image et les colonnes n'en parlons pas

 

[sylvanu]

Bonjour Clausen, Volvo,
Après moult bidouillages, un essai en PJ et son pendant en pdf.
Perfectible ...

 

[Nain porte quoi]

une proposition en PJ

 

[sylvanu]

Re,
En un peu mieux, mais je n'arrive pas à supprimer la bande blanche à droite et en bas dans le pdf.

 

[patricktoulon]

Bonjour à tous
@sylvanu
j'ai arrangé ta mise en page
enlevé les parties couleur non désirée de l'image d'en bas

 

[job75]

Bonjour à tous,

Un simple copier-coller :

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+

 

[patricktoulon]

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

 

[patricktoulon]

re
j'ai bataillé bec et ongle pour arriver a ceci avec ta copie brute

 

[job75]

Bonjour @job75
on est loin de l'objectif avec ta copie brute

Quel objectif ? Je reste simplement sur ce qui est dit au post #1 :

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.

 

[job75]

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 :

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

 

[clausen]

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

 

[patricktoulon]

re
bonjour

???????????????????????

 

[Nain porte quoi]

re
bonjour

???????????????????????

pareil