Est ce que quelqu'un peut m'expliquer cela
Dans un classeur je teste l'existence de certaines feuilles et je les efface j'ai d'abord essayé ceci :
Qui me retourne une belle erreur d'execution dont le code est incompréhensible si par contre je fais ceci :
Tout fonctionne nickel !!!
Une idée sur l'explication de cette Erreur ?
Dans un classeur je teste l'existence de certaines feuilles et je les efface j'ai d'abord essayé ceci :
Code:
Dim Ws As Worksheet
Application.DisplayAlerts = False
For Each Ws In ActiveWorkbook.Sheets
If Ws.Name = 'Expés 10 Jours Ouvrés' Then
Ws.Delete
End If
If Ws.Name = 'Stocks sur Expés' Then
Ws.Delete
End If
If Ws.Name = 'Ruptures Expés' Then
Ws.Delete
End If
Next
Application.DisplayAlerts = True
Qui me retourne une belle erreur d'execution dont le code est incompréhensible si par contre je fais ceci :
Code:
Dim Ws As Worksheet
Application.DisplayAlerts = False
For Each Ws In ActiveWorkbook.Sheets
If Ws.Name = 'Expés 10 Jours Ouvrés' Or Ws.Name = 'Stocks sur Expés' Or Ws.Name = 'Ruptures Expés' Then
Ws.Delete
End If
Next
Application.DisplayAlerts = True
Tout fonctionne nickel !!!
Une idée sur l'explication de cette Erreur ?