Bonjour à tous.
Dans la macro suivante j'aimerais exclure une feuille qui n'est pas forcément en premier
Private Sub Workbook_Open()
Dim Rng As Range, ws As Worksheet
Application.AskToUpdateLinks = True
' Semaine en lignes
For Each ws In ThisWorkbook.Worksheets
Set Rng = ws.[B3]
' Semaine en Colonnes
If IsEmpty(Rng.Value) Then
On Error Resume Next
Rng.Value = CDate(InputBox("Veuillez rentrer la date du 1er jour de la semaine", "Ouverture " & ws.Name, Date))
If Rng.Value = "" Then MsgBox "Date absente en " & ws.Name
End If
Next ws
End Sub
Que faut-il rajouter svp?
Merci
Dans la macro suivante j'aimerais exclure une feuille qui n'est pas forcément en premier
Private Sub Workbook_Open()
Dim Rng As Range, ws As Worksheet
Application.AskToUpdateLinks = True
' Semaine en lignes
For Each ws In ThisWorkbook.Worksheets
Set Rng = ws.[B3]
' Semaine en Colonnes
If IsEmpty(Rng.Value) Then
On Error Resume Next
Rng.Value = CDate(InputBox("Veuillez rentrer la date du 1er jour de la semaine", "Ouverture " & ws.Name, Date))
If Rng.Value = "" Then MsgBox "Date absente en " & ws.Name
End If
Next ws
End Sub
Que faut-il rajouter svp?
Merci