Condexatedenbay.com


Comment accéder aux tableaux de Word à l'aide de Excel VBA

Comment accéder aux tableaux de Word à l'aide de Excel VBA


Word et Excel sont des applications de la suite Microsoft Office. Word est une application de traitement de texte et Excel un tableur. Savoir comment accéder aux tableaux Microsoft Word de Microsoft Excel peut être utile lorsque vous travaillez avec des tableaux Word. Microsoft Visual Basic pour Applications (VBA) est un langage de programmation qui est facile à apprendre et à utiliser, et en quelques étapes, vous pouvez écrire du code pour accéder à un tableau Word depuis Excel VBA.

Instructions

• Démarrez Microsoft Office Word, sélectionnez le menu « Insertion » et cliquez sur « Table ». Sélectionnez une table avec deux lignes et deux colonnes. Cliquez sur la cellule en haut à gauche et tapez « Column1 », appuyez sur « Tab » pour passer à la deuxième colonne et tapez « Column2 ». Cliquez sur la première cellule de numéro deux de la ligne et tapez « Datq1 ». Appuyez sur « Tab » pour passer à la deuxième colonne, tapez « Data2 ». Enregistrez le document au « C:\ » comme « myTableDoc.doc. »

• Lancer Microsoft Office Excel, cliquez sur l'onglet « Développeur » puis sur « Visual Basic ». Cliquez sur le menu « Insertion » et sélectionnez « Module ». Sélectionnez le menu « Outils » et cliquez sur « Références... ». Cochez la case en regard de « Bibliothèque d'objets Microsoft Word < numéro de version >. » Cliquez sur « OK ».

• Tapez la commande suivante pour créer la sous-routine « getWordTableData »: Private Sub getWordTableData() appuyer sur « Enter ».

• Tapez la commande suivante pour créer de nouvelles variables : Dim clmnCnt As Integer Dim rowCnt As Integer

• Tapez la commande suivante pour créer des objets Word : Set wrdApp = Word.application Set wrdDoc = wrdApp.Documents.Open("C:\myTableDoc.doc")

• Tapez la commande suivante pour effectuer une boucle sur le tableau de « myTableDoc.doc » et afficher son contenu via une boîte de message : clmnCnt = 1 à wrdDoc.Tables(1). Columns.Count pour rowCnt = 1 To wrdDoc.Tables(1). Rows.Count MsgBox wrdDoc.Tables(1). Cellulaire (rowCnt, clmnCnt). Range.Text Next rowCnt suivante clmnCnt

• Tapez la commande suivante pour libérer votre variable de la mémoire : Set wrdApp = Nothing Set wrdDoc = Nothing presse « F5 » pour exécuter votre sous-routine.