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,

Avec cette solution on ne modifie pas le document Word mais le fichier Excel :
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
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+
 

Pièces jointes

  • Classeur(2).xlsm
    16.2 KB · Affichages: 2
  • Facture.docx
    65.6 KB · Affichages: 2
Dernière édition:

job75

XLDnaute Barbatruc
Avec cette solution on revient sur Word pour coller le contenu de la feuille Excel :
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
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
 

Pièces jointes

  • Classeur(3).xlsm
    16.9 KB · Affichages: 2
  • Facture.docx
    65.6 KB · Affichages: 2

clausen

XLDnaute Occasionnel
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
 

Modeste geedee

XLDnaute Barbatruc
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
 
Dernière édition:

Discussions similaires

Réponses
15
Affichages
944
Compte Supprimé 979
C

Statistiques des forums

Discussions
313 193
Messages
2 096 081
Membres
106 490
dernier inscrit
fabintou