Macro excel et word

mome67 Messages postés 83 Date d'inscription   Statut Membre Dernière intervention   -  
m@rina Messages postés 23902 Date d'inscription   Statut Contributeur Dernière intervention   -
Bonjour,

voilà mon soucis du jour, serait avec une macro sous excel de pouvoir ouvrir un fichier word, l'imprimer et revenir sur le fichier excel!!
est ce possible et surtout comment?
vous en remerciant par avance
A voir également:

3 réponses

Réponse 1 / 3
caiman2 Messages postés 1435 Date d'inscription   Statut Membre Dernière intervention   312
 
Il y a bien longtemps que je n'ai pas fait de macro mais bon moi j'essaierais comme cela:

Je créerais une macro Autoexec sur le document Word qui Imprimerais et refermerais le document.

Sur le fichier Excel je créerais un lien hypertexte qui pointe sur ce fichier Word et dans la macro Excel je ferais un clic sur ce lien qui ouvrirait le fichier Word qui lui même autoexecutera sa macro d'impression.

Mais bon pour le détail de la programmation je n'ai malheureusement pas le temps de le faire et donc de le tester.

Bon courage
0
Réponse 2 / 3
mome67 Messages postés 83 Date d'inscription   Statut Membre Dernière intervention   2
 
merci bien mais c'est justement le détail qui m'intéresserait vu que je ne suis pas une pro!!
0
Réponse 3 / 3
m@rina Messages postés 23902 Date d'inscription   Statut Contributeur Dernière intervention   11 464
 
Bonsoir,

On peut utiliser le shell ou bien l'automation.

Par automation : 

Sub impr_word()
Dim word_appli As Object
Dim mon_docword As Object

Set word_appli = GetObject(, "Word.Application")

'Ouverture du doc Word
word_appli.documents.Open Filename:="C:\Mes documents...\monfichier.doc"
Set mon_docword = word_appli.ActiveDocument
'impression du doc
mon_docword.PrintOut
'fermeture du doc
mon_docword.Close

End Sub


Faudrait peut être ajouter une gestion d'erreur...

m@rina
0