Compilation word et excel

Natia -  
cs_Le Pivert Messages postés 8437 Statut Contributeur -
Bonjour,

Comment peut-on faire pour compiler un fichier word avec un fichier excel, sous format excel? en évitant les copiés collés bien sur.



A voir également:

3 réponses

Réponse 1 / 3
Chris 94 Messages postés 58330 Date d'inscription   Statut Modérateur Dernière intervention   7 348
 
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.
0
Réponse 2 / 3
Raymond PENTIER Messages postés 71833 Date d'inscription   Statut Contributeur Dernière intervention   17 381
 
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.
0
Natia
 
merci Raymond,

Voila, j'ai des données sur un fichier word et des données sur un fichier excel. Ce que je voudrais faire c'est d'insérer les donnés sur le word dans l'excel sans faire trop de copie collé. Càd transporter une seule fois les donnés et faire les mises en forme sur excel.
0
Réponse 3 / 3
cs_Le Pivert Messages postés 8437 Statut Contributeur 729
 
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



0