Utilité de With/End With ? [Résolu]

[OtObOx]

Bonjour à tous,

petite question que je me posais. Ecrire ceci :

Code :

1
2
3
4
 
acApp.OpenCurrentDatabase (txtCheminBd)
acApp.Visible = True
acApp.docmd.OpenForm strForm, acNormal, , , acFormAdd

ou ceci :

Code :

1
2
3
4
5
6
 
With acApp
        .OpenCurrentDatabase (txtCheminBd)
        .Visible = True
        .docmd.OpenForm strForm, acNormal, , , acFormAdd
End With

revient au même quant au fonctionnement. Alors, quelle est l'utilité d'utiliser la seconde façon ? (hormis taper moins de code dans certain cas ?)

Merci,

Jean-Marc

[Heureux-oli]

Salut,

Comme dans l'expemple que tu donnes, tu n'as qu'une variable le gain est faible.

Imagine que tu fasses appel à un objet une propriété et une seconde.

Code :

1
2
3
4
5
With ActiveDocument.Sections(1).Headers(wdHeaderFooterPrimary).Range.Font
    .Bold = True
    .Italic = True
    ....
End With

C'est quand même un peu plus lisible.

[OtObOx]

Ce n'est que sur la lisibilité du code que ça joue. Pas sur les performances ?

[Heureux-oli]

Salut,

Je ne peux dire si les performances sont affectées.

Mais de toute façon, avec les machines actuelles, je ne pense pas que ça puisse avoir un impact.

[OtObOx]

OK, merci pour ces précisions.

JM