Discussion :

[lio33]

Bonjour,

Je dois mettre en forme un fichier Excel généré à partir d'une requête exportée d'une base de données ACCESS 2007.
Le pilotage du fichier Excel se fait à partir d'ACCESS 2007 donc.

J'aimerai avoir vos conseils sur la meilleure façon d'opérer.

• Exporter le fichier Excel de façon classique et le mettre en forme après,
• Utiliser Excel automation pour insérer les données à partir d'un recordset.

Ce que je dois effectuer comme opération sur le fichier Excel :

• Mise en forme de la ligne de titre (gras, etc.),
• Filtrer les colonnes.
• Masquer certaines colonnes.
• Modifier la couleur des cellules d'une colonne en fonction du contenu.

Lorsque l'on ouvre ainsi un fichier Excel existant, est-il possible de connaître le nombre de colonnes et de lignes d'une feuille ?

Merci d'avance pour vos conseils.

[zoom61]

Salut,

Je ne comprends pas tout ta requête est faite dans Access ou Excel :

Je dois mettre en forme un fichier Excel généré à partir d'une requête exportée d'une base de données ACCESS 2007.

• Exporter le fichier Excel de façon classique et le mettre en forme après,

Pour cette question :

Lorsque l'on ouvre ainsi un fichier Excel existant, est-il possible de connaître le nombre de colonnes et de lignes d'une feuille ?

Code :

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

1
2
3
4
5
6
7
8
'Ouvrir le fichier
    Set oAppExcel = CreateObject("Excel.Application")
    Set oClasseur = oAppExcel.Workbooks.Open(Nom du fichier)
    Set oFeuille = oClasseur.WorkSheets(1)
 
    'Ligne et Colonne
    MsgBox oFeuille.Range("A65536").End(xlUp).Row & Chr(13) _
        & oFeuille.Range("BB7").End(xlToLeft).Column

[lio33]

Merci pour ta réponse,

En fait je souhaitais savoir ce qu'il était préférable de faire :
- générer le fichier Excel et le retravailler aprés coup avec Excel Automation, ou
- faire les mises en formes en même temps que la génération du fichier.

Finalement j'ai opté pour la première solution qui me convenait le mieux.

cdt.

[Didier71]

Bonjour,


Je tombe sur ce post et il me rappelle que j'ai été confronté à ce problème...
Si tu exportes un recordset d'Access en Excel, autant faire les mises en forme en même temps, tu n'auras pas à ouvrir le fichier et le retraiter....
Voici quelques "bouts de codes" pour ce faire :

Code :

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

1
2
3
4
5
6
7
8
  With xlSheet.PageSetup
        .LeftHeader = "&D"
        .CenterHeader = "&F"
        .RightHeader = "Page &P/&N"
        .LeftFooter = ""
        .CenterFooter = ""
        .RightFooter = ""
    End With

-Met la date en haut à gauche, le nom du fichier au centre en haut, et le numéro de page en haut à droite..... Si je me souviens bien

Code :

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

1
2
3
4
5
6
7
8
 With xlSheet.Cells(1, j + 1) 'quelques mises en forme
            .Interior.ColorIndex = 15    'couleur à gris
            .Interior.Pattern = xlSolid   'fond de cellule à gris
            .HorizontalAlignment = xlCenter 'centrage du titre
            .Font.Bold = True 'police en gras
            .Font.ColorIndex = 45 'couleur orange
 
         End With

S'applique à une cellule, mais peut s'adapter à un "range".

Code :

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

 xlSheet.Columns.AutoFit  'on adapte la largeur des colonnes au contenu

(ll faut sélectionner au préalable la ou les colonnes)

Voila j'espère que ça peut t'aider....
Pour en trouver d'autres propriétés, vas dans ton fichier Excel, démarre l'enregistrement d'une macro, et ensuite, applique les mises en forme que tu veux. Arrete l'enregistrement macro, et il suffit de recopier le code dans Access, en l'appliquant à une cellule, ou un range etc....

J'espère t'avoir aidé un peu.
Bon courage

Didier71