XL 2010 Mise à jour macro et éxécution de celle ci à l'ouverture du doc

[candice**]

Bonjour,

J'aurais besoins de votre aide une nouvelle fois.

J'ai effectuer un programme pour créer les bordures d'un tableau si une certaine cellule est rempli celui ci fonctionnent très bien mais j'aurais besoins que cette macro ce s'exécute des l'ouverture (premier problème que je n'ai pas réussi à résoudre) du fichier en faisant une mise à jour toute les 5 secondes (ce problème étant résolu).
La macro concernant les bordures de ce tableau est sur la feuille 1 de mon excel mais ma feuille de mesure ou je rentre toutes mes données est elle en feuille 2, donc lors de la mise à jour de ma macro je retourne toute les 5 secondes en feuille 1. Serait-il possible que cette mise à jour se face sans qu'il y ait ce retour à la feuille 1?

Merci pour votre aide.

Mon code:

Private Sub Workbook_open()
Call miseajour
End Sub


Sub miseajour()

Application.OnTime Now + TimeValue("00:0:05"), "miseajour"
Call Bordures

End Sub


Sub Bordures()
Sheets("ce0").Unprotect

x = Sheets("ce0").Cells(39, "AW").End(xlDown).Row - 38

Sheets("ce0").Select

For I = 1 To x

Range("AW" & 38 + I & ":" & "AY" & 38 + I).Select
If Range("AW" & 38 + I) <> " " Then
Selection.Borders(xlDiagonalDown).LineStyle = xlNone
Selection.Borders(xlDiagonalUp).LineStyle = xlNone
With Selection.Borders(xlEdgeLeft)
.LineStyle = xlContinuous
.ColorIndex = 0
.TintAndShade = 0
.Weight = xlThin
End With
With Selection.Borders(xlEdgeTop)
.LineStyle = xlContinuous
.ColorIndex = 0
.TintAndShade = 0
.Weight = xlThin
End With
With Selection.Borders(xlEdgeBottom)
.LineStyle = xlContinuous
.ColorIndex = 0
.TintAndShade = 0
.Weight = xlThin
End With
With Selection.Borders(xlEdgeRight)
.LineStyle = xlContinuous
.ColorIndex = 0
.TintAndShade = 0
.Weight = xlThin
End With
With Selection.Borders(xlInsideVertical)
.LineStyle = xlContinuous
.ColorIndex = 0
.TintAndShade = 0
.Weight = xlThin
End With
With Selection.Borders(xlInsideHorizontal)
.LineStyle = xlContinuous
.ColorIndex = 0
.TintAndShade = 0
.Weight = xlThin
End With
End If
Next I
Sheets("ce0").Protect
End Sub

 

[Staple1600]

Bonjour le fil, candice**

candice**
Juste pour infos
Ta macro Bordures peut se réduire à

Sub Bordures()
Dim x As Long
x = ActiveSheet.Cells(39, "AW").End(xlDown).Row - 38
Range("AW39:AY39").Resize(x).Borders.LineStyle = 1
End Sub

 

[candice**]

Bonjour Staple1600,

Merci beaucoup pour l'info