Discussion :

[laurentabj]

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)

Code :

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

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 :

Code :

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

               .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

[aalex_38]

A quoi servent ces deux lignes de code :

Code :

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

1
2
              .Cells.Copy
               .Cells.PasteSpecial Paste:=xlPasteValues

Il semblerait que tu copies et colles au même endroit ?

[laurentabj]

Correct ! et merci de répondre si vite !

L'idée est d' "aplatir" la feuille en supprimant les formules et en ne laissant que les valeurs.

[aalex_38]

La pour le plantage je ne vois pas trop (pas testé)

tu peux essayer :

Code :

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

1
2
3
.Cells.Copy
.Cells.PasteSpecial Paste:=xlPasteValues
Application.CutCopyMode = False

[laurentabj]

marci aalex,

Je viens d'essayer, mais je ne constate pas d'amélioration...

[Pierre Fauconnier]

Bonjour

Essaie

Code :

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

1
2
3
               .Cells.Copy
               .Cells(1,1).PasteSpecial Paste:=xlPasteValues
               application.cutcopymode = false

Cela étant, c'est un peu tirer au bazooka pour tuer une mouche. En E-07, tu as 16384 colonnes sur +/-1 048 000 lignes...

Tu pourrais peut-être restreindre la copie à UsedRange