Echanges de données entre Excel et Word

Page mise à jour le : 28/03/2001

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
download film. board games. online casinos. casino games. online casinos. online casinos
données d'un document Word et les copier dans ExcelRetour au début

 
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) Retour au début

 
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)Retour au début

 
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éterRetour au début

 
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


Le tableau Word avant mise à jour

Les données Excel à copier dans le tableau Word

Le tableau Word après mise à jour

Free counter and web stats