Discussion :

[popo68]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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


Si quelqu'un a une solution


Merci !!!!

[Muhad'hib]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

Que

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[Sonic]

Salut
Essaies un truc comme ca :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[popo68]

Ok merci, vos deux réponses fonctionnent bien !

Merci beaucoup ! ^_^