aide sur une macro excell
Modérateur : Modérateurs
- yober
- Membre Fondateur
- Messages : 2107
- Enregistré le : mar. 06 févr., 2007 22:16
- Localisation : Châtenois, ahhhh la route des vins...
aide sur une macro excell
hello
je cale sur une macro excel
j'ai un tablea excell qui sert à collecter des info qui sont utilisées pour compléter 3 documents Word.
je voudrais un bouton pour imprimer l'un des document Word. comment faire ?
quelqu'un peut m'aider, s'il vous plait ?
je cale sur une macro excel
j'ai un tablea excell qui sert à collecter des info qui sont utilisées pour compléter 3 documents Word.
je voudrais un bouton pour imprimer l'un des document Word. comment faire ?
quelqu'un peut m'aider, s'il vous plait ?
- yober
- Membre Fondateur
- Messages : 2107
- Enregistré le : mar. 06 févr., 2007 22:16
- Localisation : Châtenois, ahhhh la route des vins...
j'ai fais ça :
mais quand la macro ferme word, ça interromps l'impression... pas cool de le faire à la main à chaque fois
mais merci quand même
Code : Tout sélectionner
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 Fichier1 As String
Fichier1 = "C:\LP test.doc"
Fichier2 = "C:\Offre LP test.doc"
Set appWrd = CreateObject("Word.Application")
appWrd.Visible = False
Set docWord = appWrd.Documents.Open(Fichier1)
docWord.PrintOut
docWord.Close
Set docWord = appWrd.Documents.Open(Fichier2)
docWord.PrintOut
docWord.Close
Range("B8:E8").Select
Selection.ClearContents
Range("B13:D13").Select
Selection.ClearContents
'appWrd.Quit 'fermer la sessionWord (mais cela interromp l'impression -> prob à résoudre)
mais merci quand même
- Underground78
- Administrateur
- Messages : 11272
- Enregistré le : mar. 06 févr., 2007 21:54
- Localisation : France
- Contact :
- yober
- Membre Fondateur
- Messages : 2107
- Enregistré le : mar. 06 févr., 2007 22:16
- Localisation : Châtenois, ahhhh la route des vins...
j'ai trouvé ça :
ça marche à partir de 4 secondes de pose.
Merci
Code : Tout sélectionner
Application.Wait (Now + TimeValue("0:00:04"))
Merci
- Underground78
- Administrateur
- Messages : 11272
- Enregistré le : mar. 06 févr., 2007 21:54
- Localisation : France
- Contact :