Exporter vos donnees sous excel!!! enfin un code simple!

Commenter

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 ;-)

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

S'inscrire maintenant

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.