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

Soyez le premier à donner votre avis sur cette source.

Snippet vu 14 149 fois - Téléchargée 42 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 ;-)

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

Ajouter un commentaire

Commentaires

Sirocooo
Messages postés
412
Date d'inscription
mercredi 19 décembre 2001
Statut
Membre
Dernière intervention
7 avril 2008
1 -
c'est du vba et pas du vb !!!
geniasoft
Messages postés
15
Date d'inscription
vendredi 14 juin 2002
Statut
Membre
Dernière intervention
5 août 2002
-
Nan nan tape ca sous VB!!! tu vas etre surpris!!! ca ressemble au vba pour worksheets......mais c du vb pour EXPORTER sous Excel et utliser justement le vba et generer des graphes!!!
GarnetDiAlexandros
Messages postés
55
Date d'inscription
mercredi 31 juillet 2002
Statut
Membre
Dernière intervention
19 novembre 2004
-
Y'a des trucs qui marchent pas comme
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 !
reymoise
Messages postés
7
Date d'inscription
lundi 21 juin 2004
Statut
Membre
Dernière intervention
5 février 2005
-
C'est vrai que c'est un code relativement simple donc c'est cool.

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?
cs_VTO
Messages postés
7
Date d'inscription
mercredi 8 février 2006
Statut
Membre
Dernière intervention
29 août 2008
-
Merci beaucoup pour ce code. ça me dépanne bien. Seul petite chose mais c'est vraiment histoire de chipoter, la commande "appexcel.Worksheets(1).Cells(1, 2)" attérit en B1 et non en A2 car c'est ("ligne", "colonne") et non l'inverse.
C'est tout merci encore.

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.