Checkedlistbox et extraction en pdf

Bonjour à tous,

Je suis tout nouveau sur le forum et encore plus en vb.net et j'ai décidé de m'inscrire pour demander votre aide sur un programme que je suis en train d'écrire.
Habituellement, je trouve les informations qu'il me faut sur internet mais je suis complètement bloqué et n'arrive pas à avancer ...
Pour expliquer brièvement, j'ai créé une checkedlistbox qui se rempli automatiquement en ouvrant un fichier excel et en récupérant le nom des différents onglets.
J'aimerai maintenant qu'une fois l'utilisateur a sélectionné les différents onglets, les feuilles excel sélectionnées se "mette à la suite" en format pdf. Je pense que je ne suis pas très clair.

Exemple:
Un fichier excel avec onglets : "recette entrée", "recette plat", "recette dessert"
Création d'une checkedlistbox dans une form sur visual studio récupérant les noms des onglets.

Si l'utilisateur sélectionne "recette plat" et "recette dessert", il faudrait que la feuille "recette plat" et "recette dessert" se suivent et s'enregistre en pdf dans le même fichier.

Pour l'instant tout ce que j'arrive a faire, c'est remplir la checklistbox mais la suite je n'y arrive pas du tout ...

Quelqu'un aurait-il des informations, programmes ou quelque chose de ressemblant qui pourrait me faire avancer ?

Je vous remercie par avance du temps que vous voudrez bien me consacrer.

Bonjour,

Si je devais faire cet enregistrement en pdf, je programmerais l'impression de la feuille XLS vers l'imprimante "Adobe Pdf".
Il faut pour cela utiliser un PrintDialog pour rendre cette imprimante active et ensuite, soit lancer la commande d'impression d'XLS (ce qui implique l'usage d'un objet ExcelApplication), soit programmer soi-même (PrintDocument.PrintPage) pour réaliser une mise en page spécifique.

Peut-être recevras-tu des pistes de solutions plus simples ...

:D

Bonjour,

Merci beaucoup pour la réponse. Je vais essayer de me pencher sur cette méthode. Je ne connais pas du tout ces commandes.

Bonjour,

Je t'envoie ci-joint un extrait de cours à propos de l'impression en VB.Net : Pièce jointe 529671
C'est pas un "cadeau" ..., mais il y a quelques idées ...

:D

Merci beaucoup, ça ne peut que m'aider ;)

Petite question supplémentaire, dans ma listbox j'ai le nom de toute mes feuilles de mon fichier excel. J'en sélectionne 2 par exemple, comment est-ce que je pourrais activé ces feuilles, l'une après l'autre dans mon fichier excel (pour ensuite lancer les impressions) ?
J'essaie avec des boucles for et la condition if mais apparemment, je n'arrive pas a récupérer le nom de ma feuille pour tester si il appartient aux items sélectionnés ...

Voici un extrait de code pour accéder aux objets XLS avec une Excel.Application après l'appui d'un bouton BExcel :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24

Imports Excel = Microsoft.Office.Interop.Excel Imports Microsoft.Vbe.Interop   Public Class FBase   Dim WithEvents XLSAPP As Excel.Application = Nothing ' Pour avoir les événements d'Excel, par exemple : WorkbookBeforeSave ' Dim XLSAPP As Excel.Application = Nothing ' Si on n'a pas besoin des événements d'Excel   'La feuille Excel n'est pas ouverte avant le click du bouton, sinon code différent !!! Private Sub BExcel_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles BExcel.Click XLSAPP = New Excel.Application XLSAPP.Visible = True XLSAPP.Workbooks.Open("D:\Tmp\ProbExcel\SysCoucou.dat") 'Test.xls") 'ouvir le fichier XLS ==> chemin et nom complet   XLSAPP.Sheets("Feuil1").Select() ' Le nom de la feuille est une chaine ;;; :D))) XLSAPP.Columns("B:B").Select() ' ou "B:B" pour la colonne B, ...   ' Si la feuille contient des macros, on peut en exécuter en donnant le nom de la macro : XLSAPP.Run("NomDeLaMacro")     ' On peut en exécuter les commande de XLS, par exemple pour quitter : XLSAPP.Quit

---

Avec ta ListBox, tu peux sûrement programmer une boucle du genre :

Code:

---

1 2 3 4 5 6 7

For Each Feuille As String In ListBox1.SelectedItems ' ... ListBox1.SelectedItemS (pluriel) ' ... ... ... XLSAPP.Sheets(Feuille).Select()   ' ... ... ... Next

---

Bon travail :D

Me connecter a Excel c'est bon j'ai réussi, j'en ai eu besoin pour récupérer le nom des différents onglets à mettre dans ma listbox (c'est bien les seules choses qui fonctionnent d'ailleurs :D)

Code:

---

1 2 3 4 5 6 7 8 9

Dim k As Integer Dim i As Integer k = wbXl.Worksheets.Count   For Each Item As Object In ListBox1.SelectedItems For i = 1 To k wbXl.Worksheets.... Next

---

c'est dans la boucle for, j'aimerai dire "pour chaque item sélectionné dans la listbox1, j'active les 3 feuilles (si 3 items sélectionnés), et je les imprimes en pdf à la suite."
Je n'arrive pas a tester le nom de la feuille avec l'item sélectionné ...

Oh c'est bon, merci beaucoup pour les indices, je vais essayer de continuer :D;)

Bonjour,
Je reviens (encore une fois) concernant l'impression des feuilles.
J'ai écris dans mon code :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16

Dim appXL As Excel.Application   Dim wbXl As Excel.Workbook Dim chem As String = "X:\COMMUN\QUALITE\TCH\PFE\DFC template\1445-100_PF00100028AB_B_Y.xlsx" appXL = CreateObject("Excel.Application") wbXl = appXL.Workbooks.Open(chem) Dim objProcess As New System.Diagnostics.ProcessStartInfo   For Each Feuille As String In ListBox1.SelectedItems wbXl.Sheets(Feuille).select() wbXl.PrintOut(Feuille)   Next   appXL.Quit()

---

J'ai l'erreur : "System.Runtime.InteropServices.COMException*: 'Exception de HRESULT : 0x800A03EC", une petite idée pour m'aider à me débloquer ?

Bonjour,

Pourquoi la ligne Dim objProcess As New System.Diagnostics.ProcessStartInfo ?

Essaie plutôt mon code :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16

Dim appXL As New Excel.Application   appXL.Workbooks.Open("X:\COMMUN\QUALITE\TCH\PFE\DFC template\1445-100_PF00100028AB_B_Y.xlsx")   For Each Feuille As String In ListBox1.SelectedItems   appXL.Sheets(Feuille).select()   ''' cf. la video appXl.Selection.PrintOut() ' sans avoir créé la macro, mais ça doiit fonctionner   appXL.ActiveSheet.PrintOut() ' Après examen de la macro enregistrée   Next appXL.Quit

---

Note que les codes "attachés" à appXL peuvent être obtenus par l'enregistrement d'une macro dans XLS.
L'examen du code de la macro donne les pistes nécessaires à la programmation sous VB.
Vois la video qui montre comment je détermine la ligne appXL.ActiveSheet.PrintOut().
La video : https://www.dropbox.com/s/2y70cfbpxp...Macro.mp4?dl=0

J'espère que ça t'aidera ... :D