Compilation word et excel

Fermé
Natia - 8 févr. 2016 à 14:18
cs_Le Pivert Messages postés 7904 Date d'inscription jeudi 13 septembre 2007 Statut Contributeur Dernière intervention 14 août 2024 - 9 févr. 2016 à 09:21
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

Chris 94 Messages postés 50978 Date d'inscription mardi 8 janvier 2008 Statut Modérateur Dernière intervention 17 février 2023 7 333
8 févr. 2016 à 14:20
0
Raymond PENTIER Messages postés 58652 Date d'inscription lundi 13 août 2007 Statut Contributeur Dernière intervention 19 septembre 2024 17 198
9 févr. 2016 à 01:24
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
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
cs_Le Pivert Messages postés 7904 Date d'inscription jeudi 13 septembre 2007 Statut Contributeur Dernière intervention 14 août 2024 729
9 févr. 2016 à 09:21
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