Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11

impression doc word a partir d'excel

4 réponses
Avatar
changa
Bonjour,

Je souhaite imrimer un document word a partir d'une macro excel
Voici mon code :
Sub ouvrir_word()

Set ww = CreateObject("word.application")
ww.Visible = True
ww.documents.Open ("w:\mes documents\composants.doc")
ww.Print

End Sub

Ca se plante sur le "ww.print' (methode non gérée), mais je ne trouve pas de
doc sur la methode à utiliser..
si quelqu'un connait la façon de faire je lui serai reconnaissant..

A +

4 réponses

Avatar
docm
Bonjour changa.

Voici une suggestion de Laurent L.
Essaie quelque-chose de ce style :

Private Sub CommandButton1_Click()
With CreateObject(Class:="Word.Application")
.Documents.Open("C:/MonWord/MonDocument.doc").PrintOut
.Quit
End With
End Sub


"changa" a écrit dans le message news:

Bonjour,

Je souhaite imrimer un document word a partir d'une macro excel
Voici mon code :
Sub ouvrir_word()

Set ww = CreateObject("word.application")
ww.Visible = True
ww.documents.Open ("w:mes documentscomposants.doc")
ww.Print

End Sub

Ca se plante sur le "ww.print' (methode non gérée), mais je ne trouve pas
de

doc sur la methode à utiliser..
si quelqu'un connait la façon de faire je lui serai reconnaissant..

A +


Avatar
changa
Merci, cela fonctionne !
avez vous une idée ou trouver de la doc sur les commandes pour piloter une
application externe telle que word ?
je n ai pas trouvé dans l'aide en ligne...

A +


Bonjour changa.

Voici une suggestion de Laurent L.
Essaie quelque-chose de ce style :

Private Sub CommandButton1_Click()
With CreateObject(Class:="Word.Application")
.Documents.Open("C:/MonWord/MonDocument.doc").PrintOut
.Quit
End With
End Sub


"changa" a écrit dans le message news:

Bonjour,

Je souhaite imrimer un document word a partir d'une macro excel
Voici mon code :
Sub ouvrir_word()

Set ww = CreateObject("word.application")
ww.Visible = True
ww.documents.Open ("w:mes documentscomposants.doc")
ww.Print

End Sub

Ca se plante sur le "ww.print' (methode non gérée), mais je ne trouve pas
de

doc sur la methode à utiliser..
si quelqu'un connait la façon de faire je lui serai reconnaissant..

A +







Avatar
Jacques93
Bonsoit changa,

Une méthode possible est d'ajouter une référence à Word. dans VBA

Outils => Références => cocher 'Microsoft Word xx.0 Object Library', et
de déclarer :

ww as Word.Application

et d'instancier l'application, avec

set ww = New Word.Application

ensuite, en tapant

ww.

tu auras, via l'aide à la saisie, la liste de toutes les méthodes et
propriétés accessibles :

http://cjoint.com/?kgwxYfujPP

Et en tapant F2 tu accéderas à l'explorateur d'objet, tu sélectionnes
Word dans la liste des bibliothèques.

PS : pour éviter des problèmes de compatibilité entre versions, tu peux,
une fois fini l'écriture du code remettre :

dim ww as Object

Set ww = CreateObject("word.application")

Merci, cela fonctionne !
avez vous une idée ou trouver de la doc sur les commandes pour piloter une
application externe telle que word ?
je n ai pas trouvé dans l'aide en ligne...


--
Cordialement,

Jacques.

Avatar
changa
Merci pour ces interessantes infos.


Bonsoit changa,

Une méthode possible est d'ajouter une référence à Word. dans VBA

Outils => Références => cocher 'Microsoft Word xx.0 Object Library', et
de déclarer :

ww as Word.Application

et d'instancier l'application, avec

set ww = New Word.Application

ensuite, en tapant

ww.

tu auras, via l'aide à la saisie, la liste de toutes les méthodes et
propriétés accessibles :

http://cjoint.com/?kgwxYfujPP

Et en tapant F2 tu accéderas à l'explorateur d'objet, tu sélectionnes
Word dans la liste des bibliothèques.

PS : pour éviter des problèmes de compatibilité entre versions, tu peux,
une fois fini l'écriture du code remettre :

dim ww as Object

Set ww = CreateObject("word.application")

Merci, cela fonctionne !
avez vous une idée ou trouver de la doc sur les commandes pour piloter une
application externe telle que word ?
je n ai pas trouvé dans l'aide en ligne...


--
Cordialement,

Jacques.