Compilation word et excel

Bonjour,

Pour rappel :

Les réponses sont données par des bénévoles, pas par des machines. Merci d'user des formes simples de politesse.

Bonjour Natia.

" ... compiler un fichier word avec un fichier excel, sous format excel en évitant les copiés collés ... "
- On ne peut pas compiler des fichiers. Tout au plus peut-on insérer un fichier dans un autre.
- Un fichier Word dans un fichier Excel reste au format Word ; en double-cliquant dessus, on peut le modifier avec les outils de Word.
- Faire un copier-coller ne permet en effet que de copier un texte dans une cellule de feuille Excel.
--> Si tu expliques un peu plus en détail ce que tu veux réaliser, on pourra mieux te guider.

Bonjour,

en vba:

https://excel.developpez.com/faq/?page=Word#ImportTableauWord

Faire Alt F11 pour accéder à l'éditeur. Dans le ruban, Insertion UserForm. Ajouter un commandButton depuis la boite à Outils. Double clic sur le bouton et mettre ce code:

Option Explicit
'http://excel.developpez.com/faq/?page=Word#ImportTableauWord
Private Sub CommandButton1_Click()
copieTableauWordVersExcel
End Sub
Sub copieTableauWordVersExcel()
    'nécessite d'activer la référence
        'Microsoft Word xx.x Object Library
'ruban, outils, références
    Dim WordApp As Word.Application
    Dim WordDoc As Word.Document
    Dim Fichier As String
 
    'le document Word est supposé fermé avant le lancement de la macro
    Fichier = "C:\Users\....\Documents\mondoc.doc"'adapter le chemin du fichier
    'creation session Word
    Set WordApp = New Word.Application
    'pour que word reste masqué pendant l'opération
    WordApp.Visible = False
    'ouverture du fichier Word
    Set WordDoc = WordApp.Documents.Open(Fichier)
 
    'copie le premier tableau Word
    WordDoc.Tables(1).Range.Copy
 
    Range("A1").Select
    'collage des données dans Excel
    ActiveSheet.Paste
 
    'ferme le document Word sans sauvegarde
    WordDoc.Close False
    'ferme l'application Word
    Worksheets("Feuil1").Columns("A:B").AutoFit
    WordApp.Quit
    
End Sub