A voir également:
- Vba datagrid
- Datagrid vba - Meilleures réponses
- Datagrid vba excel - Meilleures réponses
- DataGrid / FlexGrid en VBA - Forum - Visual Basic
- Vba ecrire fichier texte - Conseils pratiques - Visual Basic / VB.NET
- Modulo vba - Forum - Visual Basic
- Doevents vba - Conseils pratiques - Visual Basic / VB.NET
- Qcm vba corrigé - Guide
3 réponses
jpleroisse
- Messages postés
- 1788
- Date d'inscription
- mardi 7 novembre 2000
- Statut
- Membre
- Dernière intervention
- 11 mars 2006
Bonjour,
Vas voir ce code , c'est surement ce que tu cherches.
http://www.vbfrance.com/forum.v2.aspx?id=531598
jpleroisse
Si une réponse vous convient, cliquez Réponse Acceptée.
Vas voir ce code , c'est surement ce que tu cherches.
http://www.vbfrance.com/forum.v2.aspx?id=531598
jpleroisse
Si une réponse vous convient, cliquez Réponse Acceptée.
dp_favresa
- Messages postés
- 132
- Date d'inscription
- vendredi 23 juillet 2004
- Statut
- Membre
- Dernière intervention
- 11 mai 2010
Bonjour,
Je viens de créer une petite appli Vb2005, l'utilisateur choisi un critère et le résultat s'affiche dans un datagrid (via dataset).
Si besoin, il peut exporter ces données dans Excel.
Voici le code que j'utilise, je pense que tu dois pouvoir en tirer quelquechose :
Private Sub PictureBox1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PictureBox1.Click
' Déclarations pour classeur Excel
Dim Classeur As Excel.Workbook
Dim Feuille As Excel.Worksheet
Dim NomClasseur As String = "X:\PublicationVB\InterrogationListes\Résultat_Interro_Listes.xls"
Dim Pstr As String ' Affichage du poids en tonne
Appli.Visible = True ' Application visible
Appli.DisplayAlerts = False ' Inactivation des alertes
Appli.ScreenUpdating = False ' Inactivation de l'affichage
' Ouverture du classeur
Try
Appli.Workbooks.Open(NomClasseur)
Catch ex As Exception
MsgBox("***** IMPOSSIBLE D'OUVRIR LE FICHIER EXCEL *****")
End Try
' Initialisation Classeur et Feuille Excel
Classeur = CType(Appli.Workbooks(1), Excel.Workbook)
Feuille = CType(Classeur.Worksheets(1), Excel.Worksheet)
Dim ids As Short ' Compteur de lignes DataSet (row)
Dim jds As Short ' Compteur de colonnes DataSet (column)
i = 2 ' Compteur de lignes dans classeur
j = 1 ' Compteur de colonnes dans classeur
' Chargement des cellules à partir du DataSet
With ds.Tables("REF_PS")
For ids = 0 To .Rows.Count - 1
For jds = 0 To .Columns.Count - 1
Feuille.Cells(i, j) = .Rows(ids)(.Columns(jds))
j = j + 1
Next
i = i + 1
j = 1
Next
End With
Appli.ScreenUpdating = True ' Réactivation de l'affichage
Pstr = Poids & " TO"
Appli._Run2("Formattage") ' Exécution macro Excel
Feuille.Cells(i, 1) = "TOTAL"
Feuille.Cells(i, 10) = Pstr
End Sub
Bon(nes) courage, développement, salutations...
(choisissez ce qui vous convient) dp
Je viens de créer une petite appli Vb2005, l'utilisateur choisi un critère et le résultat s'affiche dans un datagrid (via dataset).
Si besoin, il peut exporter ces données dans Excel.
Voici le code que j'utilise, je pense que tu dois pouvoir en tirer quelquechose :
Private Sub PictureBox1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PictureBox1.Click
' Déclarations pour classeur Excel
Dim Classeur As Excel.Workbook
Dim Feuille As Excel.Worksheet
Dim NomClasseur As String = "X:\PublicationVB\InterrogationListes\Résultat_Interro_Listes.xls"
Dim Pstr As String ' Affichage du poids en tonne
Appli.Visible = True ' Application visible
Appli.DisplayAlerts = False ' Inactivation des alertes
Appli.ScreenUpdating = False ' Inactivation de l'affichage
' Ouverture du classeur
Try
Appli.Workbooks.Open(NomClasseur)
Catch ex As Exception
MsgBox("***** IMPOSSIBLE D'OUVRIR LE FICHIER EXCEL *****")
End Try
' Initialisation Classeur et Feuille Excel
Classeur = CType(Appli.Workbooks(1), Excel.Workbook)
Feuille = CType(Classeur.Worksheets(1), Excel.Worksheet)
Dim ids As Short ' Compteur de lignes DataSet (row)
Dim jds As Short ' Compteur de colonnes DataSet (column)
i = 2 ' Compteur de lignes dans classeur
j = 1 ' Compteur de colonnes dans classeur
' Chargement des cellules à partir du DataSet
With ds.Tables("REF_PS")
For ids = 0 To .Rows.Count - 1
For jds = 0 To .Columns.Count - 1
Feuille.Cells(i, j) = .Rows(ids)(.Columns(jds))
j = j + 1
Next
i = i + 1
j = 1
Next
End With
Appli.ScreenUpdating = True ' Réactivation de l'affichage
Pstr = Poids & " TO"
Appli._Run2("Formattage") ' Exécution macro Excel
Feuille.Cells(i, 1) = "TOTAL"
Feuille.Cells(i, 10) = Pstr
End Sub
Bon(nes) courage, développement, salutations...
(choisissez ce qui vous convient) dp