bonjours a tous,

je viens vers vous car j'ai un soucis dans mon code.
j'ai mis plusieurs picturebox dans mon Form avec des checkbox juste en dessous. ( il y a 9 images en tout donc 9 checkbox ) .

mon problème est que le choix qui sera fait par l'utilisateur des images se retrouve dans une ligne sur excel ( vis a vis d'un fichier modele ).
je vais vous copier une partie de mon code mais pour insérer les picturebox dans excel je ne sais pas comment faire, c'est pour cela que je viens demander votre aide.

De plus quand excel ce ferme il reste dans le gestionnaire de tache comme s'il ne s'était pas véritablement fermé.

en esperant une reponse de votre part
cordialement

Pex

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
 Private Sub Enregistrer_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Enregistrer.Click
        Dim ApExcel As Object
        Dim AdresseEnregistrement As Object


        AdresseEnregistrement = "D:\Users\Desktop\" & NomProduit.Text & ".xlsx"
        ApExcel = CreateObject("Excel.application") 'creer un objet
        ApExcel.Visible = True ' vous pouvez voir Excel
        ApExcel.Workbooks.Open(Filename:="D:\Users\Desktop\fiche produit risque chimique.xlsx") 'on ouvre le classeur


        ApExcel.Sheets(1).Cells(6, 3).Value = NomProduit.Text
        ApExcel.Sheets(1).Cells(12, 1).Value = PhraseRisque.Text
        ApExcel.Sheets(1).Cells(3, 8).Value = RefFiche.Text
        ApExcel.Sheets(1).Cells(22, 1).Value = Precaution.Text
        ApExcel.Sheets(1).Cells(29, 1).Value = ProtectionIndividuelle.Text
        ApExcel.Sheets(1).Cells(29, 6).Value = DonneeComplementaire.Text
        ApExcel.Sheets(1).Cells(38, 1).Value = PremierSecour.Text
        ApExcel.Sheets(1).Cells(45, 3).Value = Localisation.Text
        ApExcel.Sheets(1).Cells(46, 3).Value = Conditionnement.Text
        ApExcel.Sheets(1).Cells(45, 7).Value = My.User.Name
        ApExcel.Sheets(1).Cells(46, 7).Value = Now
        'ApExcel.Sheets(1).Cells(9, 2).Value = " picturebox choisi par les checkbox qui s'insert a la suite dans la ligne 9 de excel"

        ApExcel.ActiveWorkbook.SaveAs(Filename:= _
         AdresseEnregistrement, _
          Password:="", WriteResPassword:="", ReadOnlyRecommended:= _
         False, CreateBackup:=False) 'on enregistre le classeur
        ApExcel.ActiveWorkbook.Close() 'on ferme le classeur
        ApExcel.Visible = False 'on ferme Excel

        MsgBox(" le fihier a été génèré, souhaitez vous le visualiser ?", MsgBoxStyle.YesNo, "Information")
        If MsgBoxResult.Yes = True Then MsgBox("fichier ouvert")

    End Sub