Goth25
Messages postés75Date d'inscriptionsamedi 26 juillet 2003StatutMembreDernière intervention21 mai 2014
-
18 déc. 2005 à 22:34
Goth25
Messages postés75Date d'inscriptionsamedi 26 juillet 2003StatutMembreDernière intervention21 mai 2014
-
19 déc. 2005 à 18:01
Bonjours à tous, je cherche le moyen d'envoyer des informations d'un datagrid dans Excel. Je travaille avec Visual basic 6. Quelqu'un aurait un bout de code ou quelque chose a ce sujet ?
Voici ou j'en suis rendu. C'est la base je le sais mais tout le code que j'ai essayer par la suite n'a rien donné de concret
Dim applicationExcel As Excel.Application 'Application Excel
Dim classeurExcel As Excel.Workbook 'Classeur Excel
Dim feuilleExcel As Excel.Worksheet 'Feuille Excel
'Ouverture de l'application
Set applicationExcel = CreateObject("Excel.Application")
'Ajout d'un classeur car à l'ouverture d'Excel il n'y a aucun classeur d'ouvert
applicationExcel.Workbooks.Add 'Ceci n'est nécessaire que si vous n'ouvrez pas un fichier existant
'Récupération du classeur par défaut
Set classeurExcel = applicationExcel.ActiveWorkbook
'Récupération de la feuille par défaut
Set feuilleExcel = classeurExcel.ActiveSheet
'Fait la feuille Excel visible
applicationExcel.Visible = True
Merci bcp de tout l'intérêt que vous y porterez
Sylvain
dp_favresa
Messages postés132Date d'inscriptionvendredi 23 juillet 2004StatutMembreDernière intervention11 mai 2010 19 déc. 2005 à 08:33
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
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