Sujet Précédent Sujet Suivant

Macro excel et word

Fermé
mome67 Messages postés 83 Date d'inscription samedi 11 novembre 2006 Statut Membre Dernière intervention 25 janvier 2010 - 12 févr. 2009 à 17:53
m@rina Messages postés 21244 Date d'inscription mardi 12 juin 2007 Statut Contributeur Dernière intervention 10 janvier 2025 - 12 févr. 2009 à 23:49
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 vendredi 30 mai 2008 Statut Membre Dernière intervention 8 avril 2011 310
12 févr. 2009 à 18:43
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 samedi 11 novembre 2006 Statut Membre Dernière intervention 25 janvier 2010 2
12 févr. 2009 à 21:23
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 21244 Date d'inscription mardi 12 juin 2007 Statut Contributeur Dernière intervention 10 janvier 2025 11 377
12 févr. 2009 à 23:49
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