0/5 (6 avis)
Snippet vu 14 643 fois - Téléchargée 44 fois
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
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
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.