Récupérer des valeurs dans excel pour générer un tableau sous word (vba)

Bonjour la communauté !

Je pêche depuis plusieurs jours sur la récupération de données excel à injecter dans un fichier word, du coup j'en finis par un appel à l'aide.

J'ai un fichier excel rempli de différentes valeurs (un suivi d'actions) et je souhaiterai générer un ordre du jour automatiquement sous word découpé en 3 sous sections, les actions en retard, les actions en cours, les nouvelles actions.

Pour ça j'ai une colonne de mon fichier excel (H) qui donne l'état des actions (en retard, en cours, nouvelle). DU coup je voudrais pour chaque état d'actions recuperer les infos de la ligne correspondante et les coller sous forme de tableau dans word.

Je suppose qu'il faut arriver à faire une recherche verticale sur la colonne H pour récupérer les infos de la ligne correspondante et l'afficher dans le bon paragraphe word (avec un signet ?)

Merci d'avance pour le coup de main
Guigus

Bonjour,

Un publipostage.

Il y a sans doute de nombreuses façons de procéder pour faire ça.
Voici comment je ferrais.

A la main, créer un document Word "type" contenant tes trois rubriques avec chacune un tableau ne contenant qu'une ligne vide (qui servira de modèle).

Ta macro commence par ouvrir ce document type et l'enregistrer sous un autre nom ou dans un autre répertoire, pour garder le fichier type intact (pour une prochaine utilisation).
Ensuite, une boucle For To scrute toutes les lignes de ton tableau Excel.
En fonction de la valeur dans la colonne H, elle ajoute une ligne au tableau Word correspondant par copie de la dernière ligne.
Elle remplie l'avant-dernière ligne du tableau Word en utilisant des variables String pour passer les données d'Excel (avec la propriété Text et non Value) à Word.
Après le Next de la boucle, elle supprime la dernière ligne (vide) de chacun des trois tableaux Word.

bonjour,

merci pour ces premiers éléments de réponse.

n'étant pas une fleche en VBA je vais voir si le publipostage (que je ne connais pas) peut répondre a mon attente.

Bon le publipostage ne me convient pas du coup je me lance a corps perdu dans VBA

Voici mon premier bout de code

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35

Private Sub CommandButton5_Click()   Dim AppWord As Word.Application Dim DocWord As Word.Document Dim oBm As Word.Bookmark Dim Folder As String, DocName As String, BookMarkName1 As String     Set AppWord = New Word.Application   Folder = ThisWorkbook.Path DocName = "RADSECR.docx" ' Nom du document Word BookMarkName1 = "Signet1" ' Nom du signet   Application.DisplayAlerts = True   With AppWord ' Ouvre le document Word .Visible = True Set DocWord = .Documents.Open(Folder & "\" & DocName, ReadOnly:=False) End With     Dim i, x As Long Dim Soldé As String x = Cells(1, 8).End(xlDown).Row 'Colonne H   For i = 1 To x 'On boucle pour chercher un état en colonne H et on recopie la ligne dans le signet correspondant du doc word If Cells(i, 8).Value = Soldé Then Rows(ActiveCell.Row & ":" & ActiveCell.Row).Select Selection.Copy Set oBm = DocWord.Bookmarks(BookMarkName1) oBm.Range.PasteExcelTable False, False, False   Next i   End Sub

---

Bon 1er problème c'est que la macro balaye la colonne H, mais elle copie uniquement la cellule que j'ai sélectionné juste avant de lancer le code, et elle me recopie 8 fois ce qu'il y a dans cette cellule sélectionnée dans mon word (le signet marche bien en tout cas).
Ma boucle n'est pas bonne, et je comprend mon erreur car il va juste lire en colonne H si il voit une cellule a l'état Soldé et il me copie la cellule active (qui peut être n'importe laquelle)
Une idée pour me remettre dans le droit chemin ?

Code:

---

1 2 3 4 5 6 7 8

Dim i As Long   Set oBm = DocWord.Bookmarks(BookMarkName1) For i = 1 To Cells(1, 8).End(xlDown).Row If Cells(i, 8).Value = "Soldé" Then oBm.Range.Text = Cells(i, 1).Text & Cells(i, 2).Text & Cells(i, 3).Text End If Next i

---

La ligne 6 est certainement à modifier mais comme tu ne dis pas quelles cellules tu souhaites copier, difficile de faire mieux.

Salut, voir la FAQ

Merci Menhir pour cette correction, pour les cellules je n'ai pas demandé car je veux aussi comprendre comment le code fonctionne la c'est clair pour moi, je pourrais choisir les cellule a rapatrier dans mon word.

Par contre en faisant le test, il me colle le texte présent dans les cellules les uns à la suite des autres

comme ceci : R18-46113422/01/2018

peut-on modifier la ligne 6 pour lui dire de garder l'effet tableau comme ceci :

R18-461

134

22/01/2018

@ Kiki29

Merci pour le lien, c'est de la que je suis parti pour mes débuts, et je me suis tourné vers le forum car le sèche pour la suite (je suis néophyte en vba, mais j'aime comprendre pourquoi et comment ça marche)

Citation:

---

Envoyé par guigus

Par contre en faisant le test, il me colle le texte présent dans les cellules les uns à la suite des autres
comme ceci : R18-46113422/01/2018

---

Rien n'empêche, quand tu transmets les données sous forme de chaine de caractère concaténée par des &, de mettre des séparateurs comme des espaces, des tabulations ou autres.

Citation:

---

peut-on modifier la ligne 6 pour lui dire de garder l'effet tableau comme ceci :

R18-461

134

22/01/2018

---

Le plus simple est de créer un document Word "type" (j'évite le mot de "modèle" qui a une autre signification) contenant un tableau d'une seule ligne vide.
Pour chaque ligne de tes données Excel, tu copies la dernière ligne de ce tableau et tu l'insères juste avant celle que tu as copié.
Ensuite, tu peux simplement remplir les cases de la ligne que tu viens de créer.
Tu peux t'inspirer de ça :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12

LigDoc = 1 For Lig = 1 To WSSource.Cells(Rows.Count, 1).End(xlUp).Row DocuWord.Tables(1).Rows(LigDoc).Range.Copy DocuWord.Tables(1).Rows(LigDoc).Range.Paste   DocuWord.Tables(1).Rows(LigDoc).Cells(1).Range.Text = WSSource.Cells(Lig, 1).Text DocuWord.Tables(1).Rows(LigDoc).Cells(2).Range.Text = WSSource.Cells(Lig, 2).Text DocuWord.Tables(1).Rows(LigDoc).Cells(3).Range.Text = WSSource.Cells(Lig, 3).Text   LigDoc = LigDoc + 1 Next Y_K DocuWord.Tables(1).Rows(LigDoc).Delete

---

L'avantage de cette méthode, c'est que tu peux préparer tout le formatage de ton tableau Word (taille de cellules, police, taille de texte, etc.) à la main, ce qui est plus facile que de le faire en VBA.

Je n'ai pas encore eu le temps de tester mais merci pour ces derniers éléments je vais voir comment l'adapté.

Je retient que ma demande initiale de recupération des valeurs excel dans le tableau est résolu, ce qui solde le sujet.

Merci
Guigus