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

 

[clausen]

Merci mille fois je vais essayer forum

 

[job75]

Bonjour,

Avec cette solution on ne modifie pas le document Word mais le fichier Excel :

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
Application.ScreenUpdating = False
With ActiveSheet
    .Cells.Delete
    Wapp.Documents.Open(ThisWorkbook.Path & "\Facture.docx").Content.Copy 'copier
    .[A1].Select
    .Paste 'coller
    .DrawingObjects.Delete
    .Cells.WrapText = False
    .Columns.AutoFit 'ajustement largeurs
    .[F15] = "'" & Trim(.[F15])
    .[F15].HorizontalAlignment = xlCenter
    .[A24].Copy .[A12]
    .[A22] = .[A25]
    .[F22] = .[B25]
    .Rows("24:25").Delete
    .[A1].Select
End With
End Sub

A+

 

[clausen]

Merci mais je comprends rien

 

[job75]

Merci mais je comprends rien

Pour comprendre comparez les résultats du post #8 et ceux du post #17.

 

[job75]

Avec cette solution on revient sur Word pour coller le contenu de la feuille Excel :

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
Application.ScreenUpdating = False
With ActiveSheet
    .Cells.Delete
    Wapp.Documents.Open(ThisWorkbook.Path & "\Facture.docx").Content.Copy 'copier
    .[A1].Select
    .Paste 'coller
    .DrawingObjects.Delete
    .Cells.WrapText = False
    .[A1] = Trim(.[A1])
    .[A1].HorizontalAlignment = xlRight
    .[F15] = "'" & Trim(.[F15])
    .[F15].HorizontalAlignment = xlCenter
    .[A24].Copy .[A12]
    .[A22] = .[A25]
    .[F22] = .[B25]
    .Rows("24:38").Delete
    .Columns.AutoFit 'ajustement largeurs
    .[A1].Select
    '---retour sur Word---
    Wapp.ActiveDocument.Content.Delete 'RAZ
    .UsedRange.Copy 'copier
    Wapp.Selection.Paste 'coller
    Wapp.ActiveDocument.PageSetup.LeftMargin = 40
    Application.CutCopyMode = 0
End With
End Sub

 

[clausen]

Merci tout le monde c'est inutile de continuer. Je ne comprends rien du tout et n'arrive pas a avoir une feuille excel avec ma facture modifiable. C'est la catastrophe totale. Je constate que personne ne peux me renseigner et me donner un fichier Excel qui fonctionne.

Bon weekend a tous

 

[job75]

Je constate que personne ne peux me renseigner et me donner un fichier Excel qui fonctionne.

Que dites-vous là ? Il fonctionne très bien, dans la dernière version :

- Word est copié vers le fichier Excel

- le fichier Excel est modifié

- le fichier Excel est copié vers Word.

 

[Modeste geedee]

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

Bonsour,

Mettre votre tableau Excel en forme pour l'exploiter à partir de Word grâce à la fonctionnalité PUBLIPOSTAGE !
www.faqword.com

 

[Nain porte quoi]

Bonsour,

Mettre votre tableau Excel en forme pour l'exploiter à partir de Word grâce à la fonctionnalité PUBLIPOSTAGE !
Www.Faqword.com

Si avec toutes les solutions fournis il n'y arrive pas, je doute que ça soit mieux avec un publipostage

C'est comme les Ferrari et les marteaux (private joke d'un ancien du mpfe)

 

[Modeste geedee]

Si avec toutes les solutions fournis il n'y arrive pas, je doute que ça soit mieux avec un publipostage

C'est comme les Ferrari et les marteaux (private joke d'un ancien du mpfe)

Bonjoir! Seat leon laposte (Jiel) ???

 

[Nain porte quoi]

Bonjoir! Seat leon laposte (Jiel) ???

Démasqué
Ps : c'était une cordoba