Discussion :

[JPDU92]

Bonsoir à tous. Je voudrais savoir s'il est possible d'imprimer une ligne de données (que je viens de créer dans excel et qui est encore ouvert) vers un publipostage word (qui existe déjà mais qui lui est fermé). J'ai cherché partout sur le net et ne trouve pas cette info ! Help me ...

[ouskel'n'or]

Bonsoir JP

vers un publipostage word (qui existe déjà mais qui lui est fermé

C'est à dire ?

Edit
J'ai l'impression que tu n'as pas lu les règles du forum. Entre autre "Pas de sujet de discussion en majuscules"
Tu devrais jeter un oeil, il y a plein de renseignements utiles comme partir à la recherche d'une solution, sur le forum, la FAQ, les tutos... et comment utiliser les boutons partout partout

[JPDU92]

Bonsoir admin supprême (car tu m'as dèjà aidé auparavant et je t'en remercie). Effectivement, je n'ai pas été assez clair, en fait, j'ai déjà créé un document principale de fusion dont la source est ma page excel. Dans ma page excel, j'ai un userform qui me met des données dans la premiére ligne vide qu'il trouve et je voudrais qu'aprés avoir insérer cette ligne, vba me lance le document word (ou est le publipostage) et m'imprime la fiche de la ligne créée.

ps : je suis allé voir mais je n'ai pas trouvé d'explication pour ce que je veux exactement.

ps2 : désolé pour les majuscules, je ne me souvenais plus !

[ouskel'n'or]

Ok.
D'abord, tu dois enregistrer tes modifs pour qu'elle soit dans le fichier dont Word a besoin.
Comme je pense que Word va planter si tu lances un publipostage sur un fichier ouvert, je tenterais le coup en autorisant le partage du fichier Excel.
J'ignore si on peut supprimer le message d'alerte pour ouverture d'un fichier ouvert mais c'est secondaire.
Ensuite, je créerais l'instance de Word, et testerais le publipostage.
Si ça fonctionne, tu as gagné. Pour imprimer la dernière page, on compte les pages, on se place sur la dernière et on imprime la page courante

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
    Dim NbPage
    AppWord.Selection.HomeKey Unit:=wdStory
    NbPage = WdDoc.BuiltInDocumentProperties(wdPropertyPages)
    AppWord.Selection.GoTo What:=wdGoToPage, Which:=wdGoToNext, Name:=cstr(NbPage)
    AppWord.PrintOut FileName:="", Range:=wdPrintCurrentPage

Tu testes... mais tu mets des DoEvents partout, après enregistrement du xls, après lancement de l'appli Word, après ouverture du Doc principal, après la fusion, après l'édition. Sans quoi le système ne suivra pas.
A+

Edit(re)
J'ai corrigé Application.printout pour AppWord.PrintOut

[JPDU92]

ok merci, je testerai ça demain car là j'ai pas la fusion chez moi, c'est au boulot !