Vous trouverez dans cette rubrique des exemples de programmes permettant d'envoyer des données Excel vers Word ou récupérer des données Word dans Excel.

Ces exemples fonctionnent avec Word et Excel 2000. Ils n'ont pas été testé sous la version 97.
Pour que ces exemples fonctionnent, vous devrez créer une référence de bibliothèques d'objets de Word.
Dans Excel, choisissez la commande Références du menu Outils de Visual Basic Editor et cochez Microsoft Word 9.0 Object Library.

Récupérer les données d'un document Word et les copier dans Excel.
Copier des données Excel dans un document Word (format tableau).
Copier des données Excel dans un nouveau document Word (format tabulation).
Copier des données Excel dans un tableau Word afin de le compléter.

Récupérer les données d'un document Word et les copier dans Excel

Ce programme permet d'aller chercher des données dans un document Word, de les copier, de les coller dans Excel et de refermer Word. Sub DonnéesWordVersExcel()      Dim DocWord As Word.Document      Dim AppWord As Word.Application      Set AppWord = New Word.Application      AppWord.ShowMe      AppWord.Visible = True      'Ouvre le document Word (Fichier.doc) et effectue une copie des données      Set DocWord = AppWord.Documents.Open( "c:\Excel\Fichier.doc" , ReadOnly:= True )      With AppWord           .Selection.WholeStory           .Selection.Copy      End With      ' Copie des données dans Excel      ThisWorkbook.Worksheets( "Feuil1" ).Paste      ' Fermeture de Word      AppWord.Application.Quit      Application.CutCopyMode = False End Sub

Les données Word	La copie dans Excel

Copier des données Excel dans un document Word (format tableau)

Ce programme permet de copier des données d'Excel, d'ouvrir un document Word et d'y coller les données sous forme de tableau. Sub EnvoyerDonneesExcelVersWord()      Dim DocWord As Word.Document      Dim AppWord As Word.Application      Set AppWord = New Word.Application      Application.DisplayAlerts = True      AppWord.ShowMe      AppWord.Visible = True      'Ouvre le document Word      Set DocWord = AppWord.Documents.Open( "c:\excel\Fichier.doc" , ReadOnly:= False )      ' Copie les données Excel      ThisWorkbook.Worksheets( "Feuil1" ).Range( "A1:B6" ).Copy      ' Colle les données dans Word      DocWord.Range.PasteSpecial      Application.CutCopyMode = False      DocWord.Application.ActiveDocument.Save      AppWord.Application.Quit End Sub

Les données Excel	La copie dans Word

Copier des données Excel dans un document Word (format tabulations)

Ce programme permet de copier des données d'Excel, d'ouvrir un document Word et d'y coller les données. Les données étant séparées par des tabulations. Sub CopierDonneesExcelVersWord()      Range( "A1:B6" ).Copy      Set WW = CreateObject ( "word.application" )      WW.Visible = True      WW.Documents.Add      WW.Selection.PasteSpecial Link:= False , DataType:=wdPasteText, Placement:= _                wdInLine, DisplayAsIcon:= False End Sub

Les données Excel	La copie dans Word

Copier des données Excel dans un tableau Word afin de le compléter

Ce programme permet de copier des données d'Excel, d'ouvrir un document Word existant, d'ajouter une ligne au tableau existant dans Word et de compléter chaque cellule de la ligne créer. Sub RemplirTableauWordDepuisDonnéesExcel()      Dim DocWord As Word.Document      Dim AppWord As Word.Application      Set AppWord = New Word.Application      Application.DisplayAlerts = True      AppWord.ShowMe      AppWord.Visible = True      'Ouvre le document Word      Set DocWord = AppWord.Documents.Open( "c:\excel\Fichier.doc" , _ ReadOnly:= False )      ' Copie les données Excel      Contrats_ISBN = Range( "A2" ).Value      Contrats_Titre = Range( "B2" ).Value      Contrats_Nom = Range( "C2" ).Value      ' Colle les données dans Word      DocWord.Tables( 1 ).Rows.Add      Derligne = DocWord.Tables( 1 ).Rows.Count      With DocWord.Tables( 1 )           .Cell(Derligne, 1 ).Range.InsertAfter Contrats_ISBN           .Cell(Derligne, 2 ).Range.InsertAfter Contrats_Titre           .Cell(Derligne, 3 ).Range.InsertAfter Contrats_Nom      End With      DocWord.Application.ActiveDocument.Save      AppWord.Application.Quit End Sub