Discussion :

[mpascolo]

Bonjour à tous,

Je suis en train d'exporter plusieurs tables et requêtes Access sur Ms Excel.

J'ai déclaré :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Dim xlApp As Object
Dim xlSheet As Excel.Worksheet
Dim xlSheet2 As Excel.Worksheet
Dim xlSheet3 As Excel.Worksheet
Dim xlSheet4 As Excel.Worksheet
Dim xlbook As Excel.Workbook
 
Set xlApp = CreateObject("Excel.Application")
xlApp.Visible = True
Set xlbook = xlApp.Workbooks.Add
Set xlSheet4 = xlbook.Worksheets.Add
Set xlSheet3 = xlbook.Worksheets.Add
Set xlSheet2 = xlbook.Worksheets.Add
Set xlSheet = xlbook.Worksheets.Add

Je souhaite maintenant mettre en forme mon tableau Ms Excel.

L'idée est de mettre directment les cadres dans Excel à partir d'Access, en sachant que le nombre de lignes et de colonnes changent à chaque exportation.

Est ce que qq'un aurait une petite idée ?

[cafeine]

Hello,

as-tu regardé les différentes méthodes d'export que j'ai abordées dans mon tutoriel (lien dans ma signature) ?

[mpascolo]

Oui, d'ailleurs l'Automation est mon préféré ...

En fait ma question serait la suivante ... (c'est peut-être + une question Excel )

J'ai un tableau qui est généré par Access (grâce à l'Automation). Le nombre de lignes de ce tableau change. Je voudrais donc mettre en forme ce tableau (Bordure essentiellement ...) à partir d'Access.

[cafeine]

Par l'automation tu peux parcourir ton tableau jusqu'à rencontrer une cellule vide ... et tu en déduiras logiquement le "bas" de ton tableau excel ...

Ou sinon avec le DCount() de ta requête + la ligne d'origine de l'export ... tu peux également obtenir cette info.

[mpascolo]

Oui, en effet ...

Merci beaucoup. Je vais utiliser ta 1ère méthode.