Microsoft 365 Exclure feuille

[Moreno076]

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

 

[Staple1600]

Bonjour

le nom de la feuille à exclure déjà ...

 

[Moreno076]

Bonjour

le nom de la feuille à exclure déjà ...

Bonjour "Activité"

 

[Staple1600]

Re

Donc
If Ws.Name <> "Activité" Then
Cette ligne te parle ou pas ?

 

[Moreno076]

Si le nom de feuille est "activité alors

 

[Staple1600]

Re

Absolument pas!
Si le nom de la feuille est différent d'Activité ...alors

Tu as donc la ligne VBA
Ma question était pour te demander : sais-tu où l'insérer dans ton code existant ?

 

[Moreno076]

Private Sub Workbook_Open()
Dim Rng As Range, ws As Worksheet
Application.AskToUpdateLinks = True
' Semaine en lignes

If Ws.Name <> "Activité" Then
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
End If
Next ws
End Sub

 

[Moreno076]

non ce n 'est pas ça ca bloque en bas Un seul End if?

 

[Staple1600]

Re

C'est plutôt comme ceci

Private Sub Workbook_Open()
Dim ws As Worksheet
Application.AskToUpdateLinks = True
On Error Resume Next
For Each ws In ThisWorkbook.Worksheets
If ws.Name <> "Activité" Then
If IsEmpty(ws.[B3]) Then
ws.[B3] = CDate(InputBox("Veuillez rentrer la date du 1er jour de la semaine", "Ouverture " & ws.Name, Date))
If Len(ws.[B3]) = 0 Then MsgBox "Date absente en " & ws.Name, vbCritical
End If
End If
Next ws
End Sub

PS: j'ai fait quelques autres modifs juste par envie

 

[Moreno076]

a une ligne pres lol merci bien

 

[jmfmarques]

BONJOUR
Je vois surtout une instruction Next qui n'est pas à sa place logique.