Bonjour a tous,
Je suis en train de créer un mini programme d'impression d'etiquettes sous excel et word.
En fait je souhaiterais créer une macro sous excel me permettant de choisir la quantité d'impression et d'imprimer directement le document word (contenant l'etiquette) en hidden.
J'ai donc trouvé le bout de code ci dessous sur ce forum , mais j'ai un bug au niveau du : "Set appWrd = CreateObject("Word.Application")"
Message d'erreur :
Erreur d'éxécution 13
Incompatibilité de type
Dans les références vb activés, j'ai =
Visual Basic for applications
Microsoft Excel 9.0 object library
Microsoft Word 9.0 object library
et
Microsoft Office 9.0 object library
voici le code utilisé =
En esperant etre assez précis et dans l'attente de votre réponse
cordialement
Je suis en train de créer un mini programme d'impression d'etiquettes sous excel et word.
En fait je souhaiterais créer une macro sous excel me permettant de choisir la quantité d'impression et d'imprimer directement le document word (contenant l'etiquette) en hidden.
J'ai donc trouvé le bout de code ci dessous sur ce forum , mais j'ai un bug au niveau du : "Set appWrd = CreateObject("Word.Application")"
Message d'erreur :
Erreur d'éxécution 13
Incompatibilité de type
Dans les références vb activés, j'ai =
Visual Basic for applications
Microsoft Excel 9.0 object library
Microsoft Word 9.0 object library
et
Microsoft Office 9.0 object library
voici le code utilisé =
Code:
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 Fichier As String
Fichier = "D:\Programme etiquettes\Etiquettes\7422_E0.doc"
Set appWrd = CreateObject("Word.Application") 'creation session Word
appWrd.Visible = True 'pour que word reste masqué pendant l'operation
Set docWord = appWrd.Documents.Open(Fichier)
docWord.PrintOut 'impression
docWord.Close 'fermer le document Word
appWrd.Quit 'fermer la seesionWord
End Sub
En esperant etre assez précis et dans l'attente de votre réponse
cordialement
Dernière édition: