XL 2021 Passage de Word à Excel

Volvo64400

XLDnaute Nouveau

• 23 Février 2024

• #2

Bonjour Clausen

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

 

Pièces jointes

• Facture.xlsx

  10.9 KB · Affichages: 7

Vote positif 0 Vote négatif

C

clausen

XLDnaute Occasionnel

• 23 Février 2024

• #3

Merci, mais c'est une catastrophe

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

 

Vote positif 0 Vote négatif

sylvanu

XLDnaute Barbatruc

Supporter XLD

• 23 Février 2024

• #4

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

 

Pièces jointes

• Clausen V3.xlsx

  92.4 KB · Affichages: 8
• Clausen Essai.pdf

  663.2 KB · Affichages: 8

Vote positif 0 Vote négatif

N

Nain porte quoi

XLDnaute Junior

• 23 Février 2024

• #5

une proposition en PJ

 

Pièces jointes

• clausen.xlsx

  46.9 KB · Affichages: 5

Vote positif 0 Vote négatif

sylvanu

XLDnaute Barbatruc

Supporter XLD

• 23 Février 2024

• #6

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

 

Pièces jointes

• Clausen V4.xlsx

  93.2 KB · Affichages: 3
• Clausen Essai.pdf

  663.4 KB · Affichages: 2

Vote positif 0 Vote négatif

patricktoulon

XLDnaute Barbatruc

• 23 Février 2024

• #7

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

 

Pièces jointes

• Clausen V4.xlsx

  93.2 KB · Affichages: 3
• clausen.pdf

  628.9 KB · Affichages: 3

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 23 Février 2024

• #8

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

Vote positif 0 Vote négatif

patricktoulon

XLDnaute Barbatruc

• 23 Février 2024

• #9

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

 

Vote positif 0 Vote négatif

patricktoulon

XLDnaute Barbatruc

• 23 Février 2024

• #10

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

 

Pièces jointes

• azerty.xlsm

  39.4 KB · Affichages: 4

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 23 Février 2024

• #11

patricktoulon à dit:

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

Cliquez pour agrandir...

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

clausen à dit:

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.

Cliquez pour agrandir...

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 23 Février 2024

• #12

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

Vote positif 0 Vote négatif

C

clausen

XLDnaute Occasionnel

• 24 Février 2024

• #13

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: 6

Vote positif 0 Vote négatif

patricktoulon

XLDnaute Barbatruc

• 24 Février 2024

• #14

re
bonjour

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

 

Vote positif 0 Vote négatif

N

Nain porte quoi

XLDnaute Junior

• 24 Février 2024

• #15

patricktoulon à dit:

re
bonjour

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

Cliquez pour agrandir...

pareil

 

Vote positif 0 Vote négatif