Bonjour à tous,

J'exporte le résultat de requetes Access vers Excel et je souhaite faire une petite mise en forme des fichiers créés.

Pour le moment j'ai bricolé le code ci-dessous.

Mon problème est sur le centrage des valeurs dans la colonne B:B en ligne 36 qui bloque et là je ne sais plus trop quoi faire.

Quelqu'un pour un petit coup de pouce ?

Merci d'avance


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
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
Function exportationexcel()
 
NOMFICH = "FICHIER.xls"
CHEMINRESULT = Application.CurrentProject.Path & "\RESULTAT\"
 
 
DoCmd.TransferSpreadsheet acExport, acSpreadsheetTypeExcel97, "REQUETE99", CHEMINRESULT & NOMFICH & "", True, "ESSAIS99"
 
'ouverture du fichier créé et application de la macro de mise en forme
Dim xlApp As Object
Dim xlSheet As Object
 
 
    Set xlApp = CreateObject("Excel.Application")
    xlApp.Visible = True
    xlApp.workbooks.Open (CHEMINRESULT & NOMFICH & "")
 
    'selection de toute la feuille
    xlApp.cells.Select
 
    'choix de la police, de la taille, mise en gas de la première ligne
    xlApp.Selection.Font.Name = "ARIAL"
    xlApp.Selection.Font.Size = 8
    xlApp.rows("1:1").Select
    xlApp.Selection.Font.Bold = True
 
    'mise en forme automatique des largeurs de colonne
 
    xlApp.cells.EntireColumn.AutoFit
    xlApp.cells(1, 1).Select
 
    'vérouillage des volets à partir de la ligne2
    xlApp.Range("A2").Select
    xlApp.ActiveWindow.FreezePanes = True
 
'centrage des valeurs dans la colonne B
    xlApp.columns("B:B").Select
    xlApp.HorizontalAlignment = xlCenter
 
 
    'sauvegarde du classeur
    xlApp.ActiveWorkbook.Save
 
End Function