thehaker42
XLDnaute Nouveau
Bonjour,
je travail sur un fichier excel qui a une bd
j'ai un fichier word avec étiquette de publipostage (le fichier marche bien la source c'est le fichier excel)
j'ai des macro et des Usf qui ce lancent depuis le fichier excel,
j'ai fait 2 méthodes:
-la premiere dans un userform:
un affichage du fichier word grace a la fonction webbrowser
mais ce dernier affiche seulement les premières étiquettes je ne peut pas sélectioner d'autres valeurs,
estce possible par le biais d'un textbox de saisir la valeur a afficher sur le word?
-la seconde par une méthode d'appel de word (méthode de michel)
il m'ouvre Word avec les barres d'outils mais avec celle du publipostage en grisé
Donc soit j'utilise la première méthode
avec un textbox et un boutton imprimer et un webbrowser
ou alors j'utilise la seconde méthode mais en désactivant les barres d'outils et en gardant seulement la barre d'outil publipostage oppérationelle et un boutton imprimer
**edit:
sur word la fonction permettant de ce déplacer d'un chiffre:
MailMerge.DataSource.ActiveRecord = wdNextRecord
ca peut etre une piste?
je travail sur un fichier excel qui a une bd
j'ai un fichier word avec étiquette de publipostage (le fichier marche bien la source c'est le fichier excel)
j'ai des macro et des Usf qui ce lancent depuis le fichier excel,
j'ai fait 2 méthodes:
-la premiere dans un userform:
un affichage du fichier word grace a la fonction webbrowser
mais ce dernier affiche seulement les premières étiquettes je ne peut pas sélectioner d'autres valeurs,
estce possible par le biais d'un textbox de saisir la valeur a afficher sur le word?
-la seconde par une méthode d'appel de word (méthode de michel)
Code:
Sub ouvrirDocWord_Impression()
'necesite d'activer la reference Microsoft Word xx.x Object Library
Dim appWrd As Word.Application
Dim docWord As Word.Document
Dim Fichier As String
Fichier = "C:\Documents\monDocument.doc"
Set appWrd = CreateObject("Word.Application") 'creation session Word
appWrd.Visible = False 'pour que word reste masqué pendant l'operation
Set docWord = appWrd.Documents.Open(Fichier)
docWord.PrintOut 'impression
docWord.Close 'fermer le document Word
appWrd.Quit 'fermer la seesionWord
End Sub
il m'ouvre Word avec les barres d'outils mais avec celle du publipostage en grisé
Donc soit j'utilise la première méthode
avec un textbox et un boutton imprimer et un webbrowser
ou alors j'utilise la seconde méthode mais en désactivant les barres d'outils et en gardant seulement la barre d'outil publipostage oppérationelle et un boutton imprimer
**edit:
sur word la fonction permettant de ce déplacer d'un chiffre:
MailMerge.DataSource.ActiveRecord = wdNextRecord
ca peut etre une piste?
Dernière édition: