begin process at 2012 02 10 01:40:52
  Trouver un code source :
 
dans
 
[ Dernières recherches ]
Accueil > 

Code

 > 

Trucs & Astuces

 > EXPORTER VOS DONNEES SOUS EXCEL!!! ENFIN UN CODE SIMPLE!

EXPORTER VOS DONNEES SOUS EXCEL!!! ENFIN UN CODE SIMPLE!


 Information sur la source

Note :
6,8 / 10 - par 5 personnes
6,80 / 10

  • 1

  • 2

  • 3

  • 4

  • 5

  • 6

  • 7

  • 8

  • 9

  • 10
Catégorie :Trucs & Astuces Niveau :Débutant Date de création :25/06/2002 Date de mise à jour :25/06/2002 11:44:14 Vu :12 191
Auteur : geniasoft

Ecrire un message privé
Site perso
Commentaire sur cette source (6)
Ajouter un commentaire et/ou une note

 Description

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

  • 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 
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



 Sources de la même categorie

Source avec Zip Source .NET (Dotnet) EXPORTER LES IMAGES DE WORD ET D' EXCEL par Le Pivert
Source avec Zip Source avec une capture JEUX DE VERITÉ ET DE FIDELITÉ par billatosco
Source avec Zip IMAGELOARDER par vkitumaini
Source avec Zip Source avec une capture Source .NET (Dotnet) CREER UN CALENDRIER DE POCHE par Le Pivert
Source avec Zip RECHERCHE D'UN ENREGISTREMENT DANS UNE DATATABLE ET POSITION... par erdna
Toutes les sources de la catégorie Trucs & Astuces

Commentaires et avis

Commentaire de Sirocooo le 26/06/2002 23:13:52

c'est du vba et pas du vb !!!

Commentaire de geniasoft le 01/07/2002 10:34:00

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!!!

Commentaire de GarnetDiAlexandros le 03/10/2002 17:38:36

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 !

Commentaire de reymoise le 18/01/2005 19:03:21

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?

Commentaire de VTO le 10/02/2006 09:08:38

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.

Commentaire de Devil and Angel le 24/07/2006 10:20:04

salu

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

 Ajouter un commentaire

Nos sponsors


Sondage...

Comparez les prix


Sony Ericsson XPERIA X10 (1 Go)
Entre 649€ et 649€

Visiter le guide achat

CalendriCode

Février 2012
LMMJVSD
  12345
6789101112
13141516171819
20212223242526
272829    

Consulter la suite du CalendriCode

Photothèque

Photo Green Energy Solutions With Light Bulb Morphed Into LandscapePhoto Waterfall in Kauai Hawaii With Rainbow
Photo village et montagne de Costa verde, Corse 

Visiter la photothèque
 
Développement réalisé par Nicolas SOREL (Nix) avec l'aide de : Cyril DURAND et Emmanuel (EBArtSoft), Merci à Vincent pour ses précieux conseils.
CodeS-SourceS.com© Toute reproduction même partielle est interdite sauf accord écrit du Webmaster
CodeS-SourceS.com© est une marque déposée tous droits réservés

Google Coop CodeS-SourceS Google Coop CodeS-SourceS
Temps d'éxécution de la page : 1,544 sec (3)

Nous contacter | Annoncer sur CodeS-SourceS | Mentions légales
Outils Convertisseur VB/C# Snippets et scripts Outils en ligne La ToolBox
Communauté Programmation Photographie Technologie Newsgroups Emploi Forum Blogs
Guide d'achat Téléphonie mobile Image et son Informatique Bureautique Jeux vidéo
Logiciels Internet & Réseau Développement Market Android Jeux & Loisirs Graphisme Multimédia Sécurité Pilotes
Loisirs Cartes virtuelles Vidéos droles Jeux en ligne Géoguide AndroLib (Android Market)