Salut a tous,

voila mon probleme n'a pas l'air trop compliqué mais j'y arrive pas!!

pour pouvoir piloter excel via vb g utiliser le code généré par les macros excel.
Quand je dis piloter je parle, dans mon probleme, de changer le style des bordures de plusieurs cellule ou encore de trier des colonnes par ordres aplhabétique.

Bref, g donc recuperer un code du genre :

Range("A1:C57").Select
Selection.Borders(xlDiagonalDown).LineStyle = xlNone
Selection.Borders(xlDiagonalUp).LineStyle = xlNone
With Selection.Borders(xlEdgeLeft)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = xlAutomatic
End With

(Ce n'est que le début)

mais bon j'ai compris que dans mon projet vb je devais rajouter le nom de l'objet ki permettait de faire le lien, ce ki donne :
TabloExcel.Range("A1:C57").Select

pour cette ligne g pa de pb, mais pour les autre ca merde total. il me met une erreur du style "Erreur définie par l'application ou l'objet"

Je pense que ca vien du Borders(xlEdgeLeft) car quand j'enléve les parenthése ya plus d'erreur mais bon ca donne rien

Donc voila si qqun sais ca que je dois changer pour ke ca marche je suis tte ouï.

merci d'avance.
ciao.

Si tu ne l'a pas déjà fait, il faut sélectionner la référence Excel (Projet -> Références... -> Sélectionner "Microsoft Excel X.0 Object Library").

Ensuite essaye ceci :

Sub Test()

Dim AppliExcel As Excel.Application
Dim ClassExcel As Excel.Workbook
Dim TabloExcel As Excel.Worksheet

'Lancer Excel
Set AppliExcel = CreateObject("Excel.Application")

'Ouvrir le classeur
Set ClassExcel = AppliExcel.Workbooks.Open("C:\MonClasseur.xls")

'Référencer la feuille "Feuil1"
Set TabloExcel = ClassExcel.Worksheets("Feuil1")

'Rendre Excel visible
AppliExcel.Visible = True

TabloExcel.Range("A1:C57").Select
Selection.Borders(xlDiagonalDown).LineStyle = xlNone
Selection.Borders(xlDiagonalUp).LineStyle = xlNone
With Selection.Borders(xlEdgeLeft)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = xlAutomatic
End With

'Fermer le classeur (en enregistrant les modifications)
ClassExcel.Close True

'Quitter Excel
AppliExcel.Quit

'Libérer les ressources
Set TabloExcel = Nothing
Set ClassExcel = Nothing
Set AppliExcel = Nothing

End Sub


@+

wape

TROP FORT !!!!!!!
merci wape ct juste l'histoire du Microsoft Excel X.0 Object Library.

encore merci ciao
kalf.