Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

XL 2021 Passage de Word à Excel

C

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
Trier par date Trier par votes

job75

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

job75

XLDnaute Barbatruc
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
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: 7
Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.

Discussions similaires

  • Résolu(e)
XL 2021 Copie de certaines données Excel sur Word
2
Réponses
28
Affichages
802
Mathos
B
  • Question
XL 2021 Transfert tableau structuré EXCEL à un endroit précis de WORD
Réponses
8
Affichages
820
job75
J
  • Question
Microsoft 365 Conversion de fichiers word en pdf / VBA
Réponses
1
Affichages
450
kiki29
J
  • Question
XL 2016 Publipostage d'images de Excel à Word
Réponses
1
Affichages
458
Cousinhub
S
  • Question
Microsoft 365 Pulbipostage Excel→Word : cases à cocher
Réponses
1
Affichages
355
Staple1600
L
  • Question
XL 2013 Liaisons Word / Excel : quelle solution retenir et comment la mettre en œuvre
2 3 4
Réponses
50
Affichages
4 K
LMOAL
L
M
  • Résolu(e)
XL 2016 Comment contourner la fonction Indirect d'Excel avec code VBA
Réponses
11
Affichages
260
ma6me
M
Y
  • Question
Microsoft 365 Publipostage automatique de plusieurs fichiers word à partir d'excel
Réponses
6
Affichages
835
yannlion
Y
C
  • Question
Autres Dans Excel, à partir d'un UserForm, copier l'adresse sélectionnée dans enveloppe de publipostage Word et ouvrir la fenêtre "aperçu avant impression"
Réponses
11
Affichages
662
Chatron
C
  • Question
Microsoft 365 Créer une Document Word à partir de champs et listes
2
Réponses
15
Affichages
1 K
Compte Supprimé 979
C
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…