Créer une macro pour imprimer un doc excel Fermé

Question

Bonjour,

Je suis en train de créer une base de données sous Excel et il y a de nombreux liens qui permettent d'ouvrir des documents Word pour la plupart. En fait, je souhaite créer une macro pour imprimer tous les document Word qui ont un lien insérer à la base de données(hum, comment ca je suis pas très clair...)...
Je ne sais pas si ce que je demande est réalisable!De plus je suis une débutant dans l'utilisation de VBA...

Merci d'avance,
Mad

lermite222 · Answer

Bonjour,
Tu ne peut pas imprimer des documents Word à partir d'excel si'ils sont ouvert au moyen d'un lien hyperTexte.
Il faut ouvrir les documents en mode "Objet" pour en avoir l'accès, à moins de mettre une macros dans le "Open" des documents.
A+

madounet · Answer

Tout d'abord merci de ta réponse!
Les documents Word s'ouvrent à l'aide de Macro, je ne sais pas si cela change quelque chose?
Du type:

Set WordApp = CreateObject("Word.Application")
WordApp.Visible = True
Set WordDoc = WordApp.Documents.Open("C:\Documents....\...doc


En faite je ne souhaite imprimer que les docs Word présents dans la base excel les feuilles du classeur ne m'intéresse pas pour l'impression!

Merci

lermite222 · Answer

Je ne comprend pas ce que tu explique, un Doc ne peu pas être DANS excel, peut-être sont contenu est-il copier dans une feuille Excel ?
Explique un peu mieux ou bien mettre un exemple de ton classeur sur Cjoint.com et mettre le lien dans un poste suivant.
Et pense aussi à utiliser l'éditeur de macros.

madounet · Answer

Je me suis mal exprimé.
En fait, j'ai créé une base excel qui contient des liens qui renvoient vers des documents Word.
Ces documents s'ouvrent donc à l'aide de macro créer avec l'éditeur de macro et sont du type:

Sub Ouvrir()
Set WordApp = CreateObject("Word.Application")
WordApp.Visible = True
Set WordDoc = WordApp.Documents.Open("C:\Documents....\...doc 
End Sub

Ce ne sont pas des liens hyper texte.
Et en fait mon but est de créer une commande qui me permette d'imprimer à partir de la base excel tous ces documents words.
J'espère avoir été plus clair!
Merci de te pencher sur mon problème

madounet · Answer

Je me suis mal exprimé.
En fait, j'ai créé une base excel, dans laquelle il y a des liens qui renvoient vers des fichiers Word. Ces liens ne sont pas des liens hyper texte  mais ce sont des macro que j'execute pour ouvri ces documents du type:

Sub ouvrir()
Set WordApp = CreateObject("Word.Application")
WordApp.Visible = True
Set WordDoc = WordApp.Documents.Open("C:\Documents....\...doc
End Sub

Et mon but c'est de créer une commande qui me permettrait d'imprimer tous les documents word qui ont un lien dans ma base excel sans avoir à les ouvrir.
J'espère avoir été plus clair!
En tout cas je te remercie de te pencher sur mon problème.

lermite222 · Answer

Re,
Avec cette approche tu peu faire tout ce que tu veux sur l'objet WordDoc 
Pour imprimer ce que tu veux je te conseillerais d'employer l'éditeur de macros de Word et de la transposer dans execel en remplacant le document par WordDoc 
A+