Erreur automation

[darkspoilt]

Bonjour
Lors de l'éxécution j'ai le doirt a une erreur définie par l'application ou pas l'objet voila mon code
Si quelqu'un peut m'aider merci d'avance
[cpp] With xls.ActiveSheet.Range("A3,A8,A13,A18,A22,A27,A34,A37").Font
.name = "Arial"
.Size = 8
.Strikethrough = False
.Superscript = False
.Subscript = False
.OutlineFont = False
.Shadow = False
.Underline = xlUnderlineStyleNone
.ColorIndex = 1
End With
xls.ActiveSheet.Range("A3,A8,A13,A18,A22,A27,A34,A37").Font.Bold = True[/cpp]

 

[zeb]

A quelle ligne ?
Profites-en pour refaire une phrase plus ... compréhensible.

 

[darkspoilt]

la premiere ligne

 

[zeb]

Si je ne l'ai pas dis cent fois, je ne l'ai jamais dis :
ARRETER D'UTILISER ActiveTruc OU ActiveMachin.

[fixed]xls.Workbooks("ton_classeur").WorkSheets("ta_feuille").Range("tes_cellules") ...[/fixed]

 

[arzane]

bonjour a tous,

zeb a dit:

ARRETER D'UTILISER ActiveTruc OU ActiveMachin.

Mais a quoi sa sert?

 

[darkspoilt]

Les activeSheet et les Active charts sont en fait des objet activé c'est a dire que tu utilises. ce qui fait que parfois ton programme est perdu et cela peut provoquer n'importe quoi.
Je ne sais pas si je suis assez clair dans mes explications

 

[arzane]

Est cqu'il y a un rapport avec la programmation orienter objet??

 

[Freeman23]

Non aucun.

 

[zeb]

Je devine que tu as tout compris
Comme par ailleurs, tu as trouvé une solution à ton autre problème, je suppose que tu as règlé celui-là aussi ?

 

[darkspoilt]

Non justement mais vu que j'ai des délais a tenir donc j'ai tout fais un a un en mettant en gras les cellules une a une ca marche bien sous excel le code que j'ai marqué mais pas sous Access si vous avez une solution je suis preneur ca me ferais économiser des lignes