IMPRESSION DE FICHIERS WORD/EXCEL
cs_Bidou
Messages postés
5487
Date d'inscription
dimanche 4 août 2002
Statut
Membre
Dernière intervention
20 juin 2013
-
26 oct. 2006 à 18:30
mindseu Messages postés 3 Date d'inscription samedi 14 avril 2007 Statut Membre Dernière intervention 22 octobre 2008 - 25 sept. 2008 à 11:55
mindseu Messages postés 3 Date d'inscription samedi 14 avril 2007 Statut Membre Dernière intervention 22 octobre 2008 - 25 sept. 2008 à 11:55
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
https://codes-sources.commentcamarche.net/source/40084-impression-de-fichiers-word-excel
25 sept. 2008 à 11:55
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.
16 mai 2008 à 12:04
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.
29 janv. 2008 à 13:12
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 !
29 janv. 2008 à 09:45
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
6 sept. 2007 à 17:58
Si le code est généré sur le serveur, comment faire pour que l'impression se fasse du coté du client qui se connecte a l'appli?
Si n'importe qui a des infos, je suis preneur, depuis le temps que je cherche et que je gratte un peu partout pour trouver un moyen d'imprimer directement coté client... :)
14 nov. 2006 à 15:05
Math.Round(D).ToString("0.00");
ou Math.Round(D).ToString("0,00"); je suis plus sur si cest un point ou une virgule....
(enfin apres avoir relu me suis rendu compte que tu voulais 2 chiffres apres la virgule, pas un truc dynamique)
14 nov. 2006 à 10:26
J'en étais tellement fier que je n'ai pas pu m'empécher de la mettre :).
Je ne connaissais pas l'existence de Math.
14 nov. 2006 à 09:53
return Math.Round(D).ToString();
apres si tu veux impérativement garder tes nombres après la virgule, un truc comme ca doit marcher :
return Math.Round(D).ToString(String.Concat("0,", new string("0", D.ToString().Length - 2)));
enfin ya surement un moyen pour l'écrire encore un peu plus simplement.(dautant que la je fais pas de check d'erreur, au cas ou D serait en fait entier).
pour le reste, cest intéréssant, je my pencherais surement un peu plus ya pas mal de trucs qui minteressent la dedans ;)
26 oct. 2006 à 18:30
- Mettre le tout dans une classe (à la limite, static si pas possible autrement)
- ajouter object Missing = System.Reflection.Missing.Value; pour la class, car utilisé dans plusieurs méthodes
- La méthode LettreFromIndice n'est pas très élégante, tu pourrais ajouter par exemple 65 à l'entier et le caster ensuite en char