Excel vers word - Publipostage via VBA Le sujet est résolu

Y compris Power BI, Power Query et toute autre question en lien avec Excel
Avatar du membre
Baboutz
Membre fidèle
Membre fidèle
Messages : 412
Appréciations reçues : 33
Inscrit le : 19 avril 2019
Version d'Excel : 2016 FR

Message par Baboutz » 29 octobre 2019, 18:45

Dans ton édition de texte, sur le site, tu as le symbole </>, clique dessus et insère ton code entre les balises :wink:

Ajoute le fichier word ainsi que le fichier excel, ça sera beaucoup plus facile pour moi de te montrer !

En dessous de ta plage d'édition de texte où tu écris, tu as les boutons "Aperçu" et "Envoyer" et encore en dessous tu as le bouton "Ajouter des fichiers". Tu peux nous les partager de cette manière ! :)
T
Tibo0
Jeune membre
Jeune membre
Messages : 18
Inscrit le : 29 octobre 2019
Version d'Excel : 2016
Version de Calc : 2016
Version de Sheets : 2016

Message par Tibo0 » 29 octobre 2019, 18:51

Je te remercie pour ces éléments !
Voici les fichiers !

Bonne soirée :)
Test pour forum.zip
(17.64 Kio) Téléchargé 1 fois
Avatar du membre
Baboutz
Membre fidèle
Membre fidèle
Messages : 412
Appréciations reçues : 33
Inscrit le : 19 avril 2019
Version d'Excel : 2016 FR

Message par Baboutz » 30 octobre 2019, 11:39

Salut Tibo0 !

Alors, je ne sais pas où tu as mis le code ! Il faut faire alt + F11 pour ouvrir la fenêtre d'édition de code VBA :wink:
En faisant ça avec le fichier joint, tu verras que j'ai créer un module qui est relié au bouton et qui au clic du bouton effectue le code. Ma macro marche pour la première ligne, est-ce déjà ce que tu souhaite ?

(Attention, pour faire les tests de ton côté, dans Set WordDoc = wordApp.Documents.Open("XX.docx") met bien le chemin de ton fichier word à la place des X)
BDD_test_bouton_publipostage.xlsm
(17.49 Kio) Téléchargé 4 fois
test_publipostage.docx
(11.51 Kio) Téléchargé 2 fois
T
Tibo0
Jeune membre
Jeune membre
Messages : 18
Inscrit le : 29 octobre 2019
Version d'Excel : 2016
Version de Calc : 2016
Version de Sheets : 2016

Message par Tibo0 » 30 octobre 2019, 11:58

Salut Baboutz !

Je mettais le code de mon macro dans le bouton ::o

Après avoir activé les macros dans les paramètres de mon Word & Excel, ça fonctionne !
Je vais tenter de reproduire cela dans mon vrai fichier et je te tiens informé !

Un immense merci !!
Avatar du membre
Baboutz
Membre fidèle
Membre fidèle
Messages : 412
Appréciations reçues : 33
Inscrit le : 19 avril 2019
Version d'Excel : 2016 FR

Message par Baboutz » 30 octobre 2019, 12:10

Ah mince.. J'ai peut-être effectué une mauvaise manip en ouvrant ton fichier !

Tant mieux si ça marche :mrgreen:

Par contre, là ça ne marche que pour une personne de ta liste. Donc si tu veux effectuer un publipostage avec par exemple 30 personnes dans la liste, il va falloir adapter le code !
T
Tibo0
Jeune membre
Jeune membre
Messages : 18
Inscrit le : 29 octobre 2019
Version d'Excel : 2016
Version de Calc : 2016
Version de Sheets : 2016

Message par Tibo0 » 30 octobre 2019, 12:13

En fait, je me suis arrangé pour tout mettre sur une ligne (c'est un formulaire par personne), donc pas de soucis de ce coté-là.
Comme je souhaite faire plusieurs boutons qui dirigent chacun vers un document spécifique, je n'ai plus qu'a voir comment associer un code à un bouton et le tour est joué.
Avatar du membre
Baboutz
Membre fidèle
Membre fidèle
Messages : 412
Appréciations reçues : 33
Inscrit le : 19 avril 2019
Version d'Excel : 2016 FR

Message par Baboutz » 30 octobre 2019, 12:30

Pour associer un code à un bouton, il suffit de créer ton bouton, puis de faire un clic droit dessus et d'ajouter une macro !

Tu voulais aussi faire un impression, non ?
T
Tibo0
Jeune membre
Jeune membre
Messages : 18
Inscrit le : 29 octobre 2019
Version d'Excel : 2016
Version de Calc : 2016
Version de Sheets : 2016

Message par Tibo0 » 30 octobre 2019, 12:36

D'accord !
J'essaierai de lier mes boutons dans un second temps.

Comme je souhaite vérifier si le document est correctement créer, je ne sais pas si la fonction imprimer via le VBA est intéressante pour moi.
Cependant, afin d'avoir un maximum d'info pour faire évoluer le document (ou créer d'autres boutons)à, je veux bien voir un exemple de ce code, qui me permettrai d'imprimer via PDF et de l'enregistrer ou je veux :wink:
T
Tibo0
Jeune membre
Jeune membre
Messages : 18
Inscrit le : 29 octobre 2019
Version d'Excel : 2016
Version de Calc : 2016
Version de Sheets : 2016

Message par Tibo0 » 30 octobre 2019, 14:05

Ca ne fonctionne pas, il me met l'erreur "Erreur définie par l'application ou par l'objet" :bof:
Voici mon code:
Sub bouton()

'On ouvre le fichier word et on le masque
    Set wordApp = CreateObject("word.Application")
    Set WordDoc = wordApp.Documents.Open("Chemin_vers_Mon_Document_Word.docx")
    wordApp.Visible = False
    
    'On remplie le fichier word
    WordDoc.Bookmarks("Signet 1").Range.Text = Range("E9").Value
    WordDoc.Bookmarks("Signet n").Range.Text = Range("E5").Value
    WordDoc.Bookmarks("Signet n").Range.Text = Range("B2").Value
    WordDoc.Bookmarks("Signet n").Range.Text = Range("G9").Value
    WordDoc.Bookmarks("Signet n").Range.Text = Range("G5").Value
    WordDoc.Bookmarks("Signet n").Range.Text = Range("B11").Value
    WordDoc.Bookmarks("Signet n").Range.Text = Range("B6").Value
    WordDoc.Bookmarks("Signet n").Range.Text = Range("B7").Value
    WordDoc.Bookmarks("Signet n").Range.Text = Range("C4").Value
    WordDoc.Bookmarks("Signet n").Range.Text = Range("E4").Value
   
    wordApp.Visible = True

End Sub

Il y a beaucoup plus de signet que cela, et j'ai remplacé dans mon code les "Signet n" par les différents signets de mon Word.

Avez vous des idée ?
Avatar du membre
Xmenpl
Membre impliqué
Membre impliqué
Messages : 2'335
Appréciations reçues : 155
Inscrit le : 16 mai 2018
Version d'Excel : 2003 à 2013

Message par Xmenpl » 30 octobre 2019, 14:16

Bonjour,

ok pour les numéro de signet mais pour l'adresse et le nom du fichier ? c'est remplacé aussi ?

Set WordDoc = wordApp.Documents.Open("Chemin_vers_Mon_Document_Word.docx")

"C:\users\monnom\mes_documents\formulaire2.docx" '( exemple de l'adresse et du nom de fichier )
Répondre Sujet précédentSujet suivant
  • Sujets similaires
    Réponses
    Vues
    Dernier message