XL pour MAC Macro: erreur d'exécution "9"

Dranreb à dit:

Bonjour.
Essayez plutôt comme ça :

VB:

' -- Prise en compte de tous les onglets existants
For Each Wsh In ThisWorkbook.Worksheets
   Select Case Wsh.Name
      Case "COGESER - CCFM", "MASQUE": Wsh.Delete
      End Select: Next Wsh

Cliquez pour agrandir...

Dranreb à dit:

Remplacez par celle que j'indique la boucle où ça plante, avec le commentaire devant, que j'ai exprès reproduit pour que vous trouviez plus facilement où c'est.

Cliquez pour agrandir...

Dranreb à dit:

Avez vous bien remplacé toute la boucle depuis 'For u = 1 To Worksheets.Count' jusqu'à 'Next u' ?
Dans la mienne il n'y a pas de 'If Workbooks(FichTotal).Sheets(u).Name = "MASQUE"' susceptible de planter pour u=5 du fait qu'il n'y a plus que 4 feuilles juste après avoir supprimé la Sheets("COGESER - CCFM") !

Cliquez pour agrandir...

• En effet quand je vais sur le fichier « TCD TOTAL », je lance la macro dans l’onglet « MACRO »;
• Je sélectionne le fichier « TOTAL au 15 04 2021 »
• Après je saisis le numéro de facture (un au hasard)
• J’ai un message d’erreur : traitement des écritures : « veillez vérifier les immats suivantes » :
• Sauf que je n’ai rien en liste et les numéros d’immats sont exactes.
• 
  
• Un souci de format ?
• 
  
• Ci-joints les deux fichiers utilisés.
• 
  
• Merci d’avance
• 
  
• Luno

Dranreb à dit:

Bonjour.
Je n'ai pas étudié le reste de la programmation, je répondis juste au problème de suppression de feuilles.
Mais arrêtez de tout le temps consulter les collections WorkBooks et Worksheets. Définissez une bonne fois pour toutes avec quoi vous travaillez, au début de la macro, par des Set dans des variables As Workbook et As Worksheet.

Cliquez pour agrandir...