Export données VBA Excel vers Word avec signets et mise en forme ?

Version imprimable

24/01/2019, 09h01
Mde A

2 pièce(s) jointe(s)

Export données VBA Excel vers Word avec signets et mise en forme ?

Bonjour,

Sous Excel 2010, j'essaie de créer un import d'Excel vers Word pour une newsletter. La démarche peut sembler étrange, mais le but final est de conserver ultérieurement les données exportées à des fins statistiques.

Ma réflexion a été la suivante :

Phase 1 : alimentation d'un tableau excel avec les données via userform (c'est fait, ça marche)
Phase 2 : transfert des données saisies vers un modèle Word en fonction des signets.

Je bloque à la phase 2. Les signets marchent, mais cela ne fait pas ce que je souhaiterai et après moults tentatives, j'arrive au bout de mes compétences en VBA et de ce que j'ai pu glaner sur le net. Les signets collent les données à la suite les unes des autres alors que j'aurai besoin que soit collé pour chaque information : le titre, puis en dessous l'auteur avec la source et la date, puis en dessous le résumé. En plus après je dois leur appliquer une mise en forme auto...

Dans le modèle word, j'ai copié le rendu qui devrait être le final tout en bas. Avez-vous des pistes à me proposer ? Est-ce que l'idée de passer par des signets était la bonne ou y-a-t'il d'autres pistes à envisager ?

Edit : il semble que je ne puisse pas mettre en PJ le modèle Word au format .dotm, le forum me le refuse... Je met donc un exemplaire en .docx pour que vous puissiez voir le rendu final... Désolée pour ce souci

En espérant que vous ayez des pistes et en vous remerciant.
EDIT : suppression des PJ en accord avec la charte
24/01/2019, 10h26
Menhir

Citation:

Envoyé par Mde A

il semble que je ne puisse pas mettre en PJ le modèle Word au format .dotm, le forum me le refuse... Je met donc un exemplaire en .docx pour que vous puissiez voir le rendu final... Désolée pour ce souci

Pour info, beaucoup de participants à ce forum n'ouvrent pas les fichiers joints, entre autre pour les raisons expliquées ici :
https://www.developpez.net/forums/d8...s-discussions/
Si tu veux augmenter tes chances de réponse, il serait donc préférable de copier la partie concernée de ton code dans un message, de préférence encadré de balises CODE.
Si tu veux montrer le rendu final souhaité, tu peux mettre des copies d'écran.

Citation:

En plus après je dois leur appliquer une mise en forme auto...

Il est plus simple d'appliquer directement la mise en forme au signet "à la main" dans ton modèle.
La mise en forme avec VBA, c'est galère.

2 pièce(s) jointe(s)

Bonjour,

Merci pour ce retour, j'ajuste donc mon post en conséquence et vous présente toutes mes excuses pour la gène occasionnée

Voici le code de la phase d'import vers les signets (qui marchent) mais qui ne font pas vraiment ce que je souhaite et pour lesquels je suis à la recherche d'autres pistes :
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 36 37 38 39 40 41 42 43 44 Sub ImportWord() Dim WordApp As Word.Application Dim DocWord As Word.Document 'ouvrir word Set WordApp = CreateObject("Word.Application") 'word est masqué ou visible pendant l'opération (true, false) WordApp.Visible = True 'créer le nouveau document word Set DocWord = WordApp.Documents.Add(Template:="\test newsletterV2.docm", NewTemplate:=False, DocumentType:=0) 'Import vers Word : '***************************** Dim Cell As Range Dim thematique As String Dim titre As String Dim auteur As String Dim source As String Dim datejour As String With Worksheets("Newsencours") For Each Cell In .Range("A2:A" & .Range("C65000").End(xlUp).Row) thematique = Cell.Offset(0, 0).Value titre = Cell.Offset(0, 1).Value auteur = Cell.Offset(0, 4).Value source = Cell.Offset(0, 5).Value datejour = Cell.Offset(0, 6).Value 'MsgBox (thematique) If DocWord.Bookmarks.Exists(thematique) Then DocWord.Bookmarks(thematique).Range.Text = titre DocWord.Bookmarks(thematique).Range.Text = auteur DocWord.Bookmarks(thematique).Range.Text = source DocWord.Bookmarks(thematique).Range.Text = datejour Else 'DocWord.Bookmarks("A_CLASSER").Range.Paste 'DocWord.Bookmarks("A_CLASSER").Range.InsertAfter vbCrLf End If 'Call Vider_Presse_Papier Next End With End Sub
Voici le rendu actuel après import :

Pièce jointe 444030

Voici le rendu que je dois obtenir :

Pièce jointe 444032

Je sais bien qu'excel n'est pas la meilleure idée pour faire cela, mais pour le moment je n'ai pas d'autres solutions : je cherche des pistes savoir si c'est faisable ou ce n'est pas réaliste. Si vraiment vous séchez je comprendrais largement...

J'ai déjà fais une appli qui ressemble à ce que tu souhaites.
Je vais te donner quelques conseils correspondant à la procédure telle que je l'ai imaginée.
Je ne dis pas que c'est le mieux mais c'est comme ça que j'ai fait et ça fonctionne.

Pour chaque chapitre, mets un bookmark par information et non pas un bookmark par chapitre.
Par exemple, tu pourrais avoir, pour un chapitre les bookmark BKTitre_A1, BKTAuteur_A1, BKSource_A1, BKDate_A1.
Idem pour les autres chapitres.

Et, pour chaque bookmark, mets dans ton modèle un court texte, au mieux un seul mot, le plus pratique etant de mettre le nom du bookmark, ça permet de bien les repérer. Ca te permet non seulement d'identifier le bookmark mais surtout d'ajuster la mise en forme du texte correspondant. Peu importe le contenu de ces textes puisqu'ils vont être remplacés par les données souhaitées lors de la procédure.
Il faut que le bookmark s'applique à l'intégralité de ce court texte lui correspondant et ne soit pas seulement un "point" avant ou après. Pour ça, il faut que tu sélectionnes tout le mot avant de cliquer sur l'icone Signet créant le bookmark.

Dans la colonne A de ton fichier Excel, ne mets que la partie commune du chapitre, par exemple "A1", "T1", etc.
C'est la macro qui reconstituera le nom entier des bookmark.

Ensuite, tu peux faire un code ressemblant à celui ci-dessous.
Attention, je tape ça directement sur le forum sans le tester. Tu auras donc peut-être du débugage à faire.
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 Sub ImportWord() Dim DocWord As Word.Document Dim Lig As Long 'ouvrir le modèle Set DocWord = GetObject("\test newsletterV2.docm", NewTemplate:=False, DocumentType:=0) With Worksheets("Newsencours") For Lig = 1 To .Cells(Rows.Count, 1).End(xlUp).Row If DocWord.Bookmarks.Exists("BKTitre_" & .Cells(Lig, 1).Value) Then ' on vérifie que le chapitre existe DocWord.Bookmarks("BKTitre_" & .Cells(Lig, 1).Value).Range.Text = .Cells(Lig, 2).Value DocWord.Bookmarks("BKAuteur_" & .Cells(Lig, 1).Value).Range.Text = .Cells(Lig, 5).Value DocWord.Bookmarks("BKSource_" & .Cells(Lig, 1).Value).Range.Text = .Cells(Lig, 6).Value DocWord.Bookmarks("BKDate_" & .Cells(Lig, 1).Value).Range.Text = .Cells(Lig, 7).Value Else 'DocWord.Bookmarks("A_CLASSER").Range.Paste 'DocWord.Bookmarks("A_CLASSER").Range.InsertAfter vbCrLf End If Next Lig End With DocWord.Application.Visible = True DocWord.Application.Activate Set DocWord = Nothing End Sub
Je n'ai pas trop compris ce que tu voulais faire si le chapitre n'est pas trouvé. J'ai donc laissé le "Else" en l'état.

Dernier détail : à la place, juste après le GetObjet, je mettrais une sauvegarde du document Word sous un autre nom, histoire de ne pas risquer d'écraser le modèle par une regrettable maladresse.

24/01/2019, 14h14
Mde A

Bonjour,

merci pour ce retour sur lequel je vais travailler dès à présent. Pour des raisons d'emploi du temps, je reviendrai poster mes avancées dans une semaine (désolée pour la longueur).

Concernant le getObject : en fait, j'avais modifié la macro juste avant de poster, le document Word original est en .dotm ce qui le préserve de toute altération (testé et approuvé). Depuis une précédente mésaventure, je fais systématiquement des copies...

Merci pour votre écoute et votre aide.
24/01/2019, 21h03
clementmarcotte

Bonjour,

Je ne suis absolument pas convaincu que tu aies besoin d'une macro pour compléter ton bulletin. Pour autant que la structure de ton fichier Excel soit constante, tout ce que cela te prendrait, du moins au premier regard, ce sont des champs base de données dans Word (que tu peux insérer comme n'importe quel autre champ) et les relier à tes "champs Excel". (Disons une feuille dédiée que tu mets à jour juste avant de procéder.) Tu mets les champs en forme dans ton modèle Word.

Ensuite tu mets manuellement (ou par macro) ta feuille Excel à jour. Quand ru ouvres ton document modèle, les champs se mettent à jour (ou tu les mets à jour avec le raccourci-clavier que j'ai oublié) et cela devrait être correct.
25/01/2019, 14h41
Mde A

Bonjour,

Je vais tester cette solution aussi pour voir. Merci pour votre réponse.

1 pièce(s) jointe(s)

Re-bonjour !

Ca marche presque !

Après moult tentatives avec les options de publipostage avortées, puis la solution de Menhir (merci à vous) que je n'ai pas réussi à adapter (la faute à mon tableau de base). J'ai repris ma première solution qui marche partiellement.

Voici le code, qui marche (je n'ai aps mis le début qui ouvre le modèle Word :
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 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 Sub ImportWord() Dim WordApp As Word.Application Dim DocWord As Word.Document 'ouvrir word Set WordApp = CreateObject("Word.Application") 'word est masqué ou visible pendant l'opération (true, false) WordApp.Visible = True 'créer le nouveau document word Set DocWord = WordApp.Documents.Add(Template:="xxx.dotm", NewTemplate:=False, DocumentType:=0) Dim Cell As Range 'Dim Ie As Object Dim thematique As String Dim titre As String Dim auteur As String Dim source As String Dim datejour As String Dim chapo As String With Worksheets("Newsencours") For Each Cell In .Range("A2:A" & .Range("C65000").End(xlUp).Row) thematique = Cell.Offset(0, 0).Value titre = Cell.Offset(0, 1).Value auteur = Cell.Offset(0, 4).Value source = Cell.Offset(0, 5).Value datejour = Cell.Offset(0, 6).Value chapo = Cell.Offset(0, 7).Value If DocWord.Bookmarks.Exists(thematique) Then DocWord.Bookmarks(thematique).Range.InsertAfter vbCrLf DocWord.Bookmarks(thematique).Range.Style = "Normal" DocWord.Bookmarks(thematique).Range.Text = chapo DocWord.Bookmarks(thematique).Range.Style = "Resume" DocWord.Bookmarks(thematique).Range.Text = datejour & vbCrLf DocWord.Bookmarks(thematique).Range.Text = source & " - " DocWord.Bookmarks(thematique).Range.Text = auteur & ", " DocWord.Bookmarks(thematique).Range.Style = "Source" DocWord.Bookmarks(thematique).Range.Text = titre & vbCrLf DocWord.Bookmarks(thematique).Range.Style = "Titre 4" DocWord.Bookmarks(thematique).Range.InsertAfter vbCrLf DocWord.Bookmarks(thematique).Range.Style = "Normal" End If Next End With End Sub
Voici le résultat :

Pièce jointe 445600

Mais deux problèmes persistent :

1- Lorsque j'enregistre des données dans mon tableau un jour, que je réalise mon export Word, tout se passe bien. Si je rajoute des données le lendemain, puis que je refais mon export : je n'ai que les données enregistrées le jour 1 et la macro ne traite pas le jour 2... Avez-vous une idée de ce que j'ai manqué ?
2- j'aimerai pousser jusqu'à l'export d'un titre pourrait posséder un lien hypertexte, c'est possible ?

En vous remerciant pour vos contributions qui m'ont beaucoup aidé.