VBA Access probleme Automation

Question

Bonjour,
j'ai un gros souci mon code s'éxécute mais sans ma fenêtre Excel rien de se passe si quelqu'in peut me le dire pourquoi merci d'avance. Voila mon code:

With xls.ActiveSheet.Range("B1:B2")
        .VerticalAlignment = xlCenter
        .WrapText = False
        .Orientation = 0
        .AddIndent = False
        .ShrinkToFit = False
        .ReadingOrder = xlContext
        .MergeCells = True
    End With
    xls.ActiveSheet.Range("B1:B2").Borders(xlDiagonalDown).LineStyle = xlNone
    xls.ActiveSheet.Range("B1:B2").Borders(xlDiagonalUp).LineStyle = xlNone
    With xls.ActiveSheet.Range("B1:B2").Borders(xlEdgeLeft)
        .LineStyle = xlContinuous
        .Weight = xlMedium
        .ColorIndex = 1
    End With
    With xls.ActiveSheet.Range("B1:B2").Borders(xlEdgeTop)
        .LineStyle = xlContinuous
        .Weight = xlMedium
        .ColorIndex = 1
    End With
    With xls.ActiveSheet.Range("B1:B2").Borders(xlEdgeBottom)
        .LineStyle = xlContinuous
        .Weight = xlMedium
        .ColorIndex = 1
    End With
    xls.ActiveSheet.Range("B1:B2").Borders(xlEdgeRight).LineStyle = xlNone
    xls.ActiveSheet.Range("B1:B2").Borders(xlInsideVertical).LineStyle = xlNone
    xls.ActiveSheet.Range("B1:B2").Borders(xlInsideHorizontal).LineStyle = xlNone
    xls.ActiveSheet.Range("B1:B2").Interior.ColorIndex = 6

jrivet · Answer

Salut,
Ou exactement as tu placer ce code.
le fait que rien ne se passe ne veux pas forcément diure que le code est faux mais tout simplement que l'on n'y passe pas.
As tu essayer en mettant un point d'arrêt

@+: Ju£i?n
Pensez: Réponse acceptée

darkspoilt · Answer

BAh dans mon code aucue condition n'est émise il est tout simplement placé a la fin précédement ce ne sont que des condition de controle

jrivet · Answer

re,
je l'ai testé chez moi en pilotant Excel depuis VB6 et lorsque le code s'execute, j'ai bien la fusion de BB
 avec des lignes épaisse dans le bord gauche et en bas, puis les cellules en jaune.
C'est pour cela que je te demande si le code s'execute vraiment.
En mettant un point d'arrêt (F9) sur une ligne du code ci dessus tu le verras tout de suite.
@+: Ju£i?n
Pensez: Réponse acceptée

darkspoilt · Answer

c'est ca il n'est passé par le code j'ai utilisé des msgbox pour regarder

jrivet · Answer

Re,
Et? donc? Tu as réussi à contourner le problème?
Si non, il va faloir que tu mettes un peu plus de code, et que tu explique mieu QUAND souhaites tu exactement que ce code s'execute

@+: Ju£i?n
Pensez: Réponse acceptée

cs_Nicko11 · Answer

Salut,

en effet, du code tout seul ne peut pas fonctionner. Tu devrais le mettre dans un module ou un evenement ou encore une fonction,
sans ca, il n'y passera pas tout seul. Donnes le contexte de ton programme en général et dans quelle mesure ce code doit etre appelé

VBA Access probleme Automation

6 réponses

Votre réponse

Discussions similaires