Logo GNT
Actualités Tests & Guides Bons Plans
Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11
Entraide Applications Microsoft Office Access Mise en page D'excel à partir d'Access

Mise en page D'excel à partir d'Access

2 réponses
Avatar
Jacques
Bonsoir,

Lorsque j'exporte sur Excel les donn=E9es de ma table Access, je
voudrais avoir une mise en page de mon tableau Excel.

1) Fusionner les cellules de la 1er ligne pour centrer le titre
( liste des ADHERENTS AU).
2) Encadrer les cellules qui contiennent les enregistrements( de
mani=E8re =E0 faire des lignes verticales et horizontales).
3) Faire un saut de page , et r=E9p=E9ter le titre et les en-t=EAte.

Merci pour votre aide.

Salutations




'--- Ecrire le titre dans la cellule de la ligne 1 et de la colonne
1
xls.Cells(1, 1) =3D "LISTE DES ADHERENTS AU" & Date

'--- Ecrire des en-t=EAtes
For intI =3D 0 To rs.Fields.Count - 1
xls.Cells(2, intI + 1).Value =3D rs.Fields(intI).Name
Next

'--- Formats des en-t=EAte
' Parcours les cellules de la premi=E8re ligne
intI =3D 1
While xls.Cells(2, intI).Value <> ""
Set xloCell =3D xls.Cells(2, intI)

xloCell.Interior.Pattern =3D xlSolid

'--- d=E9finit le cadre des cellules
xloCell.Borders(xlEdgeLeft).LineStyle =3D xlContinuous
xloCell.Borders(xlEdgeLeft).Weight =3D xlThin

xloCell.Borders(xlEdgeTop).LineStyle =3D xlContinuous
xloCell.Borders(xlEdgeTop).Weight =3D xlThin

xloCell.Borders(xlEdgeBottom).LineStyle =3D xlContinuous
xloCell.Borders(xlEdgeBottom).Weight =3D xlThin

xloCell.Borders(xlEdgeRight).LineStyle =3D xlContinuous
xloCell.Borders(xlEdgeRight).Weight =3D xlThin

'--- d=E9finit le gras
xloCell.Font.Bold =3D True

'--- D=E9finit la couleur du texte
xloCell.Font.Color =3D 255
Signaler un problème avec ce contenu

2 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Avatar
Gilbert
Bonjour,

Avec quelque chose comme

Dim XL_Classeur As Excel.Workbook
Dim XL_Feuille As Excel.Worksheet
Dim XL_App As Excel.Application

Set XL_App = CreateObject("Excel.Application")
Set XL_Classeur = XL_App.Workbooks.Open(NomDuFichierExcel)
Set XL_Feuille = XL_App.Sheets("Feuil1")
XL_Feuille.Range(XL_Feuille.Cells(1, 1), XL_Feuille.Cells(1, 3)).Merge

Le mieux pour être sûr d'avoir la bonne syntaxe est de faire une macro de ce
que tu veux avec Excel, puis de copier le code dans ton module Access en
l'adaptant avec
With XL_Feuille
...
End With


--
Gilbert


"Jacques" a écrit dans le message de news:

Bonsoir,

Lorsque j'exporte sur Excel les données de ma table Access, je
voudrais avoir une mise en page de mon tableau Excel.

1) Fusionner les cellules de la 1er ligne pour centrer le titre
( liste des ADHERENTS AU).
2) Encadrer les cellules qui contiennent les enregistrements( de
manière à faire des lignes verticales et horizontales).
3) Faire un saut de page , et répéter le titre et les en-tête.

Merci pour votre aide.

Salutations




'--- Ecrire le titre dans la cellule de la ligne 1 et de la colonne
1
xls.Cells(1, 1) = "LISTE DES ADHERENTS AU" & Date

'--- Ecrire des en-têtes
For intI = 0 To rs.Fields.Count - 1
xls.Cells(2, intI + 1).Value = rs.Fields(intI).Name
Next

'--- Formats des en-tête
' Parcours les cellules de la première ligne
intI = 1
While xls.Cells(2, intI).Value <> ""
Set xloCell = xls.Cells(2, intI)

xloCell.Interior.Pattern = xlSolid

'--- définit le cadre des cellules
xloCell.Borders(xlEdgeLeft).LineStyle = xlContinuous
xloCell.Borders(xlEdgeLeft).Weight = xlThin

xloCell.Borders(xlEdgeTop).LineStyle = xlContinuous
xloCell.Borders(xlEdgeTop).Weight = xlThin

xloCell.Borders(xlEdgeBottom).LineStyle = xlContinuous
xloCell.Borders(xlEdgeBottom).Weight = xlThin

xloCell.Borders(xlEdgeRight).LineStyle = xlContinuous
xloCell.Borders(xlEdgeRight).Weight = xlThin

'--- définit le gras
xloCell.Font.Bold = True

'--- Définit la couleur du texte
xloCell.Font.Color = 255
Avatar
Jacques
On 19 mar, 13:00, "Gilbert" wrote:
Bonjour,

Avec quelque chose comme

Dim XL_Classeur As Excel.Workbook
Dim XL_Feuille As Excel.Worksheet
Dim XL_App As Excel.Application

Set XL_App = CreateObject("Excel.Application")
Set XL_Classeur = XL_App.Workbooks.Open(NomDuFichierExcel)
Set XL_Feuille = XL_App.Sheets("Feuil1")
XL_Feuille.Range(XL_Feuille.Cells(1, 1), XL_Feuille.Cells(1, 3)).Merge

Le mieux pour être sûr d'avoir la bonne syntaxe est de faire une macr o de ce
que tu veux avec Excel, puis de copier le code dans ton module Access en
l'adaptant avec
With XL_Feuille
...
End With

--
Gilbert

"Jacques" a écrit dans le message de news:

Bonsoir,

Lorsque j'exporte sur Excel les données de ma table Access, je
voudrais avoir une mise en page de mon tableau Excel.

1) Fusionner les cellules de la 1er ligne pour centrer le titre
( liste des ADHERENTS AU).
2) Encadrer les cellules qui contiennent les enregistrements( de
manière à faire des lignes verticales et horizontales).
3) Faire un saut de page , et répéter le titre et les en-tête.

Merci pour votre aide.

Salutations

'--- Ecrire le titre dans la cellule de la ligne 1 et de la colonne
1
xls.Cells(1, 1) = "LISTE DES ADHERENTS AU" & Date

'--- Ecrire des en-têtes
For intI = 0 To rs.Fields.Count - 1
xls.Cells(2, intI + 1).Value = rs.Fields(intI).Name
Next

'--- Formats des en-tête
' Parcours les cellules de la première ligne
intI = 1
While xls.Cells(2, intI).Value <> ""
Set xloCell = xls.Cells(2, intI)

xloCell.Interior.Pattern = xlSolid

'--- définit le cadre des cellules
xloCell.Borders(xlEdgeLeft).LineStyle = xlContinuous
xloCell.Borders(xlEdgeLeft).Weight = xlThin

xloCell.Borders(xlEdgeTop).LineStyle = xlContinuous
xloCell.Borders(xlEdgeTop).Weight = xlThin

xloCell.Borders(xlEdgeBottom).LineStyle = xlContinuous
xloCell.Borders(xlEdgeBottom).Weight = xlThin

xloCell.Borders(xlEdgeRight).LineStyle = xlContinuous
xloCell.Borders(xlEdgeRight).Weight = xlThin

'--- définit le gras
xloCell.Font.Bold = True

'--- Définit la couleur du texte
xloCell.Font.Color = 255



Bonsoir Gilbert.

Merci pour ta réponse.

Salutations