XL 2021 Passage de Word à Excel

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

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

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

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

- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Réponses
1
Affichages
135
Réponses
30
Affichages
449
Réponses
15
Affichages
1 K
Compte Supprimé 979
C
Retour