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
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
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.
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