Voici l'origine de mon probl=E8me
Une petite macro pour imprimer un document word avec=20
demande du nombre de copies d=E9sir=E9es.
seulement apr=E8s avoir effectu=E9 l'impression correctement,=20
word reste ouvert et je dois passer par le gestionnaire=20
des t=E2ches pour le fermer (car je ne fais pas appara=EEtre=20
Word =E0 l'=E9cran) et je ne peux donc pas utiliser la macro=20
deux fois successivement.
Any idea????
Merci d'avance
sam
***************************************
Public Sub Print_ConditionsG=E9n=E9rales()
Dim WordApp As Word.Application
Dim MonDoc As Word.Document
Dim NombreDeCopies As Integer
NombreDeCopies =3D InputBox("Combien de copies de ce=20
document veux-tu?")
On Error GoTo GestionDesErreurs
'ouverture du doc
Set WordApp =3D CreateObject("word.application")
Set MonDoc =3D WordApp.Documents.Open("c:\GINESTRA\Documents=20
types\ModConditionsGenerales")
MonDoc.PrintOut copies:=3DNombreDeCopies
MonDoc.Close
Set WordApp =3D Nothing
Exit Sub
GestionDesErreurs:
Set WordApp =3D Nothing
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Pascal Engelmajer
Salut, à première vue il manque WordApp.Quit avant Set WordApp = Nothing
-- Amicalement. Pascal "il n'y a pas de vent favorable pour celui qui ne sait pas ou il va." Sénèque. http://www.ilyapa.net/excel "sam" a écrit dans le message de news: 072401c3dcd9$f78e2dd0$
Bonjour à tous,
Voici l'origine de mon problème Une petite macro pour imprimer un document word avec demande du nombre de copies désirées.
seulement après avoir effectué l'impression correctement, word reste ouvert et je dois passer par le gestionnaire des tâches pour le fermer (car je ne fais pas apparaître Word à l'écran) et je ne peux donc pas utiliser la macro deux fois successivement.
Any idea????
Merci d'avance
sam
*************************************** Public Sub Print_ConditionsGénérales()
Dim WordApp As Word.Application Dim MonDoc As Word.Document Dim NombreDeCopies As Integer
NombreDeCopies = InputBox("Combien de copies de ce document veux-tu?")
On Error GoTo GestionDesErreurs
'ouverture du doc Set WordApp = CreateObject("word.application") Set MonDoc = WordApp.Documents.Open("c:GINESTRADocuments typesModConditionsGenerales")
MonDoc.PrintOut copies:=NombreDeCopies MonDoc.Close Set WordApp = Nothing
Exit Sub GestionDesErreurs: Set WordApp = Nothing
End Sub
Salut,
à première vue il manque
WordApp.Quit
avant Set WordApp = Nothing
--
Amicalement.
Pascal
"il n'y a pas de vent favorable pour celui qui ne sait pas ou il va."
Sénèque.
http://www.ilyapa.net/excel
"sam" <sam@ginestra.be> a écrit dans le message de news:
072401c3dcd9$f78e2dd0$a101280a@phx.gbl...
Bonjour à tous,
Voici l'origine de mon problème
Une petite macro pour imprimer un document word avec
demande du nombre de copies désirées.
seulement après avoir effectué l'impression correctement,
word reste ouvert et je dois passer par le gestionnaire
des tâches pour le fermer (car je ne fais pas apparaître
Word à l'écran) et je ne peux donc pas utiliser la macro
deux fois successivement.
Any idea????
Merci d'avance
sam
***************************************
Public Sub Print_ConditionsGénérales()
Dim WordApp As Word.Application
Dim MonDoc As Word.Document
Dim NombreDeCopies As Integer
NombreDeCopies = InputBox("Combien de copies de ce
document veux-tu?")
On Error GoTo GestionDesErreurs
'ouverture du doc
Set WordApp = CreateObject("word.application")
Set MonDoc = WordApp.Documents.Open("c:GINESTRADocuments
typesModConditionsGenerales")
MonDoc.PrintOut copies:=NombreDeCopies
MonDoc.Close
Set WordApp = Nothing
Salut, à première vue il manque WordApp.Quit avant Set WordApp = Nothing
-- Amicalement. Pascal "il n'y a pas de vent favorable pour celui qui ne sait pas ou il va." Sénèque. http://www.ilyapa.net/excel "sam" a écrit dans le message de news: 072401c3dcd9$f78e2dd0$
Bonjour à tous,
Voici l'origine de mon problème Une petite macro pour imprimer un document word avec demande du nombre de copies désirées.
seulement après avoir effectué l'impression correctement, word reste ouvert et je dois passer par le gestionnaire des tâches pour le fermer (car je ne fais pas apparaître Word à l'écran) et je ne peux donc pas utiliser la macro deux fois successivement.
Any idea????
Merci d'avance
sam
*************************************** Public Sub Print_ConditionsGénérales()
Dim WordApp As Word.Application Dim MonDoc As Word.Document Dim NombreDeCopies As Integer
NombreDeCopies = InputBox("Combien de copies de ce document veux-tu?")
On Error GoTo GestionDesErreurs
'ouverture du doc Set WordApp = CreateObject("word.application") Set MonDoc = WordApp.Documents.Open("c:GINESTRADocuments typesModConditionsGenerales")
MonDoc.PrintOut copies:=NombreDeCopies MonDoc.Close Set WordApp = Nothing