Discussion :

[ADbtr]

Bonjour à tous,

j'ai une erreur d'execution "automation" '-2147221080 (800401a8)' dans le code suivant :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
    'supprime les feuilles des jours
For Each Feuille In Worksheets
    For Each Machine In Array("U1", "U2", "U3", "U4", "F2")
        For Each Cherche In Array("SAM", "DIM", "LUN", "MAR", "MER", "JEU", "VEN")
            If Left(InStr(1, Feuille.Name, Cherche, 1), 3) > 0 Then
                Application.DisplayAlerts = False
                Worksheets(Feuille.Name).Delete
                Application.DisplayAlerts = True
            End If
        Next Cherche
    Next Machine
Next Feuille

L'erreur me montre la ligne avec la commande If(Left(InStr...

Je ne connais pas ce type d'erreur, et je vois où peut être mon erreur.

Merci d'avance pour vos éclaircicments...

AD

[zyhack]

Bonjour

effectivement le problème viens de

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
If Left(InStr(1, Feuille.Name, Cherche, 1), 3) > 0 Then

car

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
InStr(1, Feuille.Name, Cherche, 1)

renvoie le n° de caractète ou la chaine à été trouvé ce qui reviendrait à écrire si la chaine cherché est trouvé au 5eme caractère

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
If Left(5 , 3) > 0 Then

ne connaissant pas comment sont formatés tes noms de feuille je n'ai pas de solution à te donner.

si tu n'arrive pas à trouver donne nous un exemple de nom de feuille et ce que tu veux extraire de ce nom.

[ADbtr]

Bonjour,

mes feuilles sont nommées :
LUNDI 15-06
MARDI 16-06
...
DIMANCHE 22-06

Etant donné que les feuilles sont supprimées chaque semaine, seul le nom du jour reste identique de semaines en semaines. C'est pourquoi je souhaite trouver le nom de feuille qui commence soit par : "LUN", "MAR", ..., "DIM"; sélectionner cette feuille, et la supprimer.

En espérant avoir été un peu plus clair

Bonne journée

AD

[zyhack]

Bonjour

Je ne sais pas à quoi te sert la boucle machine mais c'est elle la cause du message d'erreur.

Quand tu as trouvé une correspondance la feuille est supprimé et du coup l'objet workSheet Feuille contient une erreur automation et comme tu reboucle avec Each machine ça coince.

j'ai modifié le code et mis la boucle machine en commentaire.

Fais un test et si tu as réélement besoin de la boucle machine on trouvera une solution.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
Dim Jours As String
'supprime les feuilles des jours
Jours = "SAM DIM LUN MAR MER JEU VEN"
For Each feuille In Worksheets
  'For Each machine In Array("U1", "U2", "U3", "U4", "F2")
    If InStr(1, Jours, UCase(Left(feuille.Name, 3))) > 0 Then
      Application.DisplayAlerts = False
      Worksheets(feuille.Name).Delete
      Application.DisplayAlerts = True
    End If
  'Next machine
Next feuille
End Sub

[ADbtr]

Merci, ca fonctionne.

En effet, ma boucle "machine" ne servait à rien ici.

Je comprends mieux l'action de la fonction InStr!

Merci encore, bonne journée

AD