Bonjour à tous !
Je rencontre des problèmes de type Erreur Automation sur le morceau de code suivant. (l'objet invoqué s'est déconnecté de ses clients)
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19
| For Each s In wbNEW.Sheets
If tabArray(s.Index, 1) < 3 Then
If tabArray(s.Index, 1) > 0 Then
With wbExport.Worksheets(s.Name)
.Activate
.Cells.Copy
.Cells.PasteSpecial Paste:=xlPasteValues
.Tab.ColorIndex = 55
End With
End If
If tabArray(s.Index, 1) = 1 Then
wbExport.Worksheets(s.Name).Tab.ColorIndex = 49
End If
Else
wbExport.Worksheets(s.Name).Tab.ColorIndex = 6
End If
Next s |
L'erreur ne de produit pas toujours, mais l'arrêt se fait toujours sur :
.Cells.PasteSpecial Paste:=xlPasteValues
Une chose étonnante est que j'arrive à reprendre l'exécution de la macro après l'arrêt. Autre chose, si je veux quitter Excel, l'appli plante.
Que signifient ces types d'erreurs ? Sont-ils vraiment liés à mon code ? Quels sont mes recours ?
Merci d'avance !
Laurent
Partager