Discussion :

[lionyz]

Bonjour,

Le code suivant qui devrait générer des bordures autour de cellules Excel ne fonctionne pas.
Pas d'erreur mais pas de bordure.

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
Imports Microsoft.Office.Interop.Excel
 
 Sub
 
  Dim AppExcel As Object
  AppExcel = CreateObject("Excel.Application")
  AppExcel.WorkBooks.Open(Path & fichier Excel)
  AppExcel.Application.Visible = False
  AppExcel.ActiveWorkbook.Sheets(1).Activate
 
  With  AppExcel.ActiveWorkbook.Sheets(1)
	.cells(1, 1).style.Interior.Pattern = XlPattern.xlPatternSolid
 End With
 
 AppExcel.ActiveWorkbook.Save
 AppExcel.ActiveWorkbook.Close()
 AppExcel.DisplayAlerts = True 
 
 End Sub

Merci de votre aide

[ARTURO83]

Bonjour,

Pour des bordures en traits fins

Code :

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

cells(1, 1).Borders().Weight = xlThin

en traits épais

Code :

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

cells(1, 1).Borders().Weight = xlMedium

Cdlt

[Menhir]

Code :

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

1
2
3
  With  AppExcel.ActiveWorkbook.Sheets(1)
	.cells(1, 1).style.Interior.Pattern = XlPattern.xlPatternSolid
 End With

Si je ne me trompe pas, plusieurs éléments me semble erronés dans ce code

Styles n'est pas membre de l'objet Sheet mais à l'objet Workbook.
https://docs.microsoft.com/fr-FR/off...orkbook.styles

Pattern ne définit pas les bordures mais le motif de remplissage.
https://docs.microsoft.com/fr-FR/off...terior.pattern
Tu as mis un type de remplissage Solid. Si la couleur par défaut est blanche, il est normal que tu ais l'impression que rien ne se produise.
Pour les Bordures, il ne faut pas passer par Interior mais par Borders.
https://docs.microsoft.com/fr-FR/off.../excel.borders

Il me semble étrange d'utiliser Style sans indice.
Ca laisserait supposé qu'il n'y a qu'un seul style dans le classeur et que tu ais supprimé tous les styles par défaut.
Il est plus probable qu'un indice soit nécessaire pour indiquer quel style tu souhaites modifier.
https://docs.microsoft.com/fr-FR/off...i/excel.styles
https://docs.microsoft.com/fr-FR/off...pi/excel.style

Autre détail qui va sans dire (mais qui va mieux en le disant), pour qu'une modification de style est une conséquence, il faut que dans la feuille, ce style soit appliqués aux cellules souhaitées.
Cela dit, il n'est pas nécessaire de passer par un style pour mettre une bordure à une cellule.

[Pierre Fauconnier]

Salut.

1. C'est du VB.NET, je suppose, à ne pas confondre avec VBA ( J'ai déplacé sur le bon forum)

2. Un SUB qui n'a pas de nom et qui ne génère pas d'erreur, ça m'étonne

3. Une bordure ne se définit pas par Interior mais par borders (par exemple, activecell.Borders().LineStyle=XlLineStyle.xlContinuous définit une bordure pour la cellule courante).

Il est évidemment préférable de maîtriser le modèle Objet d'Excel pour le piloter par VB.NET.

Bon courage

[lionyz]

Bonjour,

Merci d'avoir déplacé mon message sur le bon forum

1 - j'ai omis le nom de la Sub pour simplifier le message

2 - [.cells(1, 1).Borders().Weight = xlThin]
Visual studio 2015 ne reconnait pas l' argument 'xlThin dans le code ci-dessus

2 - [.cells(1, 1).Borders().LineStyle = XlLineStyle.xlContinuous]
Visual studio 2015 génère correctement les bordures avec le code ci-dessus


Merci de votre aide, problème résolu.