IMPRESSION DE FICHIERS WORD/EXCEL

Signaler
Messages postés
5487
Date d'inscription
dimanche 4 août 2002
Statut
Modérateur
Dernière intervention
20 juin 2013
-
Messages postés
3
Date d'inscription
samedi 14 avril 2007
Statut
Membre
Dernière intervention
22 octobre 2008
-
Cette discussion concerne un article du site. Pour la consulter dans son contexte d'origine, cliquez sur le lien ci-dessous.

https://codes-sources.commentcamarche.net/source/40084-impression-de-fichiers-word-excel

Messages postés
3
Date d'inscription
samedi 14 avril 2007
Statut
Membre
Dernière intervention
22 octobre 2008

Salut,

LORIBE : il faut ajouter dans ton projet, les références

Microsoft Office x.0 Object Library,
Microsoft Word x.0 Object Library,
Microsoft Excel x.0 Object Library.

Puis dans la classe, importer les espaces de noms Word et Excel.
Voici le code corrigé pour Visual Basic 2008 Express

Imports Word
Imports Excel

Class ClassImpressionFichier
Public Sub New()
End Sub
Public Shared Sub ImprimerFichierWord(ByVal fileName As Object, ByVal visible As Boolean, ByVal NbCopies As Integer)
Try
Dim aWord As Word.Application
Dim aDoc As Word.Document
aWord = New Word.Application()
aWord.Visible = visible
Dim Missing As Object = System.Reflection.Missing.Value
aDoc = aWord.Documents.Open(fileName, Missing, Missing, Missing, Missing, Missing, Missing, Missing, Missing, Missing, Missing, Missing)
Dim myTrue As Object = True
Dim myFalse As Object = False
Dim missingValue As Object = Type.Missing
Dim range As Object = Word.WdPrintOutRange.wdPrintAllDocument
Dim items As Object = Word.WdPrintOutItem.wdPrintDocumentContent
Dim copies As Object = NbCopies
Dim pages As Object = "1"
Dim pageType As Object = Word.WdPrintOutPages.wdPrintAllPages
aDoc.PrintOut(myFalse, myFalse, range, missingValue, missingValue, missingValue, items, copies, pages, pageType, myFalse, myTrue, _
missingValue, myFalse, missingValue, missingValue, missingValue, missingValue)
aWord.Quit(myFalse, missingValue, missingValue)
aWord = Nothing
aDoc = Nothing
Catch
MessageBox.Show("Erreur lors de l'ouverture du document")
End Try
End Sub


Je n'ai mis que la première partie du code.

Sinon, un grand merci à toi MOOMOON07, depuis le temps que je cherche.
Messages postés
25
Date d'inscription
jeudi 24 avril 2003
Statut
Membre
Dernière intervention
26 novembre 2008

Bonjour,

Je n'est pas trés bien compris comment vous gérer vos couleur ?

en fait je suis en train de créer une application qui va copier un fichier excel vers un DataGridView mais je n'arrive pas a copier la couleur. (BackColor et ForeColor).

Pourrais-je avoir de l'aide ?

merci.
Messages postés
6
Date d'inscription
mercredi 31 mai 2006
Statut
Membre
Dernière intervention
26 octobre 2006

Salut

Que l'on me corrige si je me trompe, je touche plus au C# depuis quelques mois,
Si je me rappelle bien, les assembly office ne sont pas dans le frameworks (a l'époque ou jai ecrit cette source c'était le 2.0).
Pour moi il suffit d'intaller office sur le poste, mais peut etre qu'il faudrait que tu regardes si les assembly office sont bien inclus dans ton projet.
En tous cas, ca me semble etre une classe manquante dans ta librairie office, ou une librairie manquante.
Peut être un pb de version ...

Bon courage !
Messages postés
1
Date d'inscription
mardi 12 septembre 2006
Statut
Membre
Dernière intervention
29 janvier 2008

"Microsoft.Office.Interop.Word._Application aWord;"
en c# est converti en visual basic par:
"Dim aWord As Microsoft.Office.Interop.Word._Application"
et provoque dans une application Visual Web developer 2005 Express l'erreur suivante:
"Type'Microsoft.Office.Interop.Word._Application" non défini."

Comment puis-je resoudre ce problème.
Merci
Afficher les 9 commentaires