alosamoelle
Messages postés129Date d'inscriptionjeudi 28 octobre 2004StatutMembreDernière intervention23 mai 20091 28 nov. 2008 à 07:03
Bonjour,
je trouve dommage d'utiliser Excel juste pour imprimer une listview car pour une appli cela oblige l'utilisateur à avoir excel.
De plus suivant les pc la pagination risque d'être différente.
radcur
Messages postés282Date d'inscriptionlundi 29 septembre 2003StatutMembreDernière intervention15 août 20122 28 nov. 2008 à 05:03
salut
j'ai vu la source.
petit conseil, donnes un nom significatif a tes contrôles button1, button2, etc. ca ne "dit" pas à quoi sert ce bouton. BtnAjouter, btnModifier est plus clair.
ensuite, il y a moyen d'améliorer ta façon de tuer le process de Excel.
For j = 0 To Process2.GetUpperBound(0)
If Process2(j).ProcessName = "EXCEL" Then
' Parcours des processus avant le mien
For k = 0 To Process1.GetUpperBound(0)
If Process1(k).ProcessName = "EXCEL" Then
If Process2(j).Id <> Process1(k).Id Then
'S'il est différend, c'est le mien (pas
'certain à 100% mais généralement c'est le cas)
Process.GetProcessById(Process2(j).id).Kill()
Exit Sub
End If
End If
Next
End If
Next
End Sub
28 nov. 2008 à 07:03
je trouve dommage d'utiliser Excel juste pour imprimer une listview car pour une appli cela oblige l'utilisateur à avoir excel.
De plus suivant les pc la pagination risque d'être différente.
28 nov. 2008 à 05:03
j'ai vu la source.
petit conseil, donnes un nom significatif a tes contrôles button1, button2, etc. ca ne "dit" pas à quoi sert ce bouton. BtnAjouter, btnModifier est plus clair.
ensuite, il y a moyen d'améliorer ta façon de tuer le process de Excel.
For j = 0 To Process2.GetUpperBound(0)
If Process2(j).ProcessName = "EXCEL" Then
' Parcours des processus avant le mien
For k = 0 To Process1.GetUpperBound(0)
If Process1(k).ProcessName = "EXCEL" Then
If Process2(j).Id <> Process1(k).Id Then
'S'il est différend, c'est le mien (pas
'certain à 100% mais généralement c'est le cas)
Process.GetProcessById(Process2(j).id).Kill()
Exit Sub
End If
End If
Next
End If
Next
End Sub