Mise en page Excel via VBA Access

Bonjour a tous !
Voilà, j'aimerai savoir comment je peux coder en vba dans access pour mettre en page mon document Excel créé à partir d'access ?

Code:

---

1 2 3 4 5 6 7 8 9 10

Private Sub cmd_Excel_Click() dim XL as object   Set XL = New Excel.Application XL.Workbooks.Add XL.ActiveWorkbook.ActiveSheet.Range("A1").Value = "test"   XL.activeworkbook.SaveAs "c:\FichierTest.xls" XL.activeworkbook.close

---

Le code ci-dessu me créé un fichier excel avec "test" dans la colonne A1 de ma première feuille.

Par contre j'aimerai mettre, par exemple, le texte en gras, directement dans mon code VBA Access, car dans mon formulaire, je créé le fichier excel suivant le nom que va m'indiquer l'utilisateur via une inputbox, donc je peux pas travailler dans excel...

Donc dans access j'ai rajouté :

Code:

---

1 2 3 4

XL.ActiveWorkbook.ActiveSheet.Range("A1").Select Selection.Font.bold = true

---

Mais ca ne fonctionne pas ... alors que ca ne me mais pas d'erreur, donc c'est que ca doit marcher (!?) mais quand j'ouvre le fichier excel ... rien ... :cry:


Si quelqu'un a une solution :mrgreen:


Merci !!!!

Salut,

Ben si c'est la bonne méthode, mais peut-être n'enregistre tu pas les modif (si ton fichier existe déjà).

Regarde avec ce code :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19

Dim XL As Object Dim I As Integer   Set XL = New Excel.Application XL.Application.Visible = True XL.Workbooks.Add XL.ActiveWorkbook.ActiveSheet.Range("A1").Value = "test" XL.ActiveWorkbook.ActiveSheet.Range("A1").Font.Bold = True I = 1 Do Until Dir("c:\FichierTest " & I & ".xls") & "" = "" I = I + 1 Loop   XL.ActiveWorkbook.SaveAs "c:\FichierTest " & I & ".xls" XL.ActiveWorkbook.Close XL.Quit   Set XL = Nothing

---

A+

PS : il faut libérer l'objet XL avec un Set XL = Nothing

PPS : Je trouve plus propre de faire

Code:

---

XL.ActiveWorkbook.ActiveSheet.Range("A1").Font.Bold = True

---

Que

Code:

---

1 2	XL.ActiveWorkbook.ActiveSheet.Range("A1").Select Selection.Font.bold = true

---

Salut
Essaies un truc comme ca :

Code:

---

XL.ActiveWorkbook.ActiveSheet.Cells(1,1).Font.Bold=True

---

Ok merci, vos deux réponses fonctionnent bien !

Merci beaucoup ! ^_^