Exporter vos donnees sous excel!!! enfin un code simple!
Soyez le premier à donner votre avis sur cette source.
Snippet vu 14 354 fois - Téléchargée 43 fois
Contenu du snippet
C'est maintenant courrant les genrs preferent excel pour generer leurs graphs et faire des sauvegardes.....mais bon i a pas de code sur vb france pour exporter les donnees !!!
alors!! voila j'apporte le peu de savoir à l'edifice de ce projet.....
Have fun ;-)
alors!! voila j'apporte le peu de savoir à l'edifice de ce projet.....
Have fun ;-)
Source / Exemple :
Dim i As Integer
Private Sub ExportExcel_Click()
'Chemin du fichier a modifier à chaque installation
repertoire = "C:\fichier.xls"
'Ouverture de l'application
Set appexcel = New Excel.Application
'Gestion du fichier et ouverture statique
appexcel.Workbooks.Open repertoire
'Visualisation en fond d'ecran la page excel
appexcel.Visible = True
'On remplit l'entete de la page excel
appexcel.Worksheets(1).Cells(1, 2).Value = "feuille 1 cellule A2"
appexcel.Worksheets(2).Cells(1, 2).Value = "feuille 2 cellule A2"
For i = 1 To 2
appexcel.Worksheets(1).Cells(1, i).Font.Bold = True
appexcel.Worksheets(1).Cells(1, i).Font.Size = 8
appexcel.Worksheets(1).Cells(1, i).HorizontalAlignment = xlCenter
appexcel.Worksheets(1).Cells(1, i).VerticalAlignment = xlCenter
Next i
End Sub
A voir également
- Exporter vos donnees sous excel!!! enfin un code simple!
- Mieux, exporter des données sous excel sans fichier d'origine!!! et faire 1 joli graphique!!! - Codes sources - Visual Basic / VB.NET (Graphique)
- Delphi / Pascal : Exporter un dataset vers excel via xml - CodeS SourceS - Guide
- Base de donnée avec Excel avec le code de PCPT ✓ - Forum - Visual Basic 6
- Exporter des données vers excel ✓ - Forum - VB.NET
- Exporter mes données en excel ... ✓ - Forum - Visual Basic
ce code fonctionne ke si on a déjà un fichier de créer sinon utilise ce code pour tout simplement ouvrir excel et après tu poura exporter a ton aise.
Private sub Exporter_Click()
Dim oApp As Object
Dim mysheet As Object
Set oApp = CreateObject("Excel.Application")
Set mysheet = oApp.workbooks.Add
oApp.Visible = True
oApp.UserControl = True
End Sub
C'est tout merci encore.
Je ne l'ai pas encor tester. Ms cpt si l'utilisateur décide d'ouvrir le fichier manuellement n'est il pas nécessaire de fermer l'application après les modifs?
appexcel.Worksheets(1).Cells(1, i).HorizontalAlignment = xlCenter
appexcel.Worksheets(1).Cells(1, i).VerticalAlignment = xlCenter
à mon avis c'est parce que xlcenter est une constant excel et pas vb
Sinon moi il faut que je mette
Set appexcel = createobject("Excel.Application")
au lieu de Set appexcel = New Excel.Application, sinon il me dit Type utilisateur non défini
à part ça ça marche, donc ton code est une très bonne base de travail qu'il faut compléter soi-même en cherchant un peu !
Vous n'êtes pas encore membre ?
inscrivez-vous, c'est gratuit et ça prend moins d'une minute !
Les membres obtiennent plus de réponses que les utilisateurs anonymes.
Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.
Le fait d'être membre vous permet d'avoir des options supplémentaires.