EXPORTER VOS DONNEES SOUS EXCEL!!! ENFIN UN CODE SIMPLE!
Sirocooo
Messages postés
412
Date d'inscription
mercredi 19 décembre 2001
Statut
Membre
Dernière intervention
7 avril 2008
-
26 juin 2002 à 23:13
Devil and Angel Messages postés 18 Date d'inscription jeudi 13 juillet 2006 Statut Membre Dernière intervention 28 juillet 2006 - 24 juil. 2006 à 10:20
Devil and Angel Messages postés 18 Date d'inscription jeudi 13 juillet 2006 Statut Membre Dernière intervention 28 juillet 2006 - 24 juil. 2006 à 10:20
Cette discussion concerne un article du site. Pour la consulter dans son contexte d'origine, cliquez sur le lien ci-dessous.
https://codes-sources.commentcamarche.net/source/3756-exporter-vos-donnees-sous-excel-enfin-un-code-simple
https://codes-sources.commentcamarche.net/source/3756-exporter-vos-donnees-sous-excel-enfin-un-code-simple
24 juil. 2006 à 10:20
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
10 févr. 2006 à 09:08
C'est tout merci encore.
18 janv. 2005 à 19:03
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?
3 oct. 2002 à 17:38
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 !
1 juil. 2002 à 10:34
26 juin 2002 à 23:13