IdentifiantMot de passe
Loading...
Mot de passe oublié ?Je m'inscris ! (gratuit)
Navigation

Inscrivez-vous gratuitement
pour pouvoir participer, suivre les réponses en temps réel, voter pour les messages, poser vos propres questions et recevoir la newsletter

Macros et VBA Excel Discussion :

Erreur Automation + plantage Excel


Sujet :

Macros et VBA Excel

Vue hybride

Message précédent Message précédent   Message suivant Message suivant
  1. #1
    Membre confirmé
    Inscrit en
    Mars 2005
    Messages
    138
    Détails du profil
    Informations forums :
    Inscription : Mars 2005
    Messages : 138
    Par défaut Erreur Automation + plantage Excel
    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

  2. #2
    Membre Expert Avatar de aalex_38
    Inscrit en
    Septembre 2007
    Messages
    1 631
    Détails du profil
    Informations forums :
    Inscription : Septembre 2007
    Messages : 1 631
    Par défaut
    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 ?

  3. #3
    Membre confirmé
    Inscrit en
    Mars 2005
    Messages
    138
    Détails du profil
    Informations forums :
    Inscription : Mars 2005
    Messages : 138
    Par défaut
    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.

  4. #4
    Membre Expert Avatar de aalex_38
    Inscrit en
    Septembre 2007
    Messages
    1 631
    Détails du profil
    Informations forums :
    Inscription : Septembre 2007
    Messages : 1 631
    Par défaut
    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

  5. #5
    Membre confirmé
    Inscrit en
    Mars 2005
    Messages
    138
    Détails du profil
    Informations forums :
    Inscription : Mars 2005
    Messages : 138
    Par défaut
    marci aalex,

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

  6. #6
    Rédacteur/Modérateur


    Homme Profil pro
    Formateur et développeur chez EXCELLEZ.net
    Inscrit en
    Novembre 2003
    Messages
    19 125
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 58
    Localisation : Belgique

    Informations professionnelles :
    Activité : Formateur et développeur chez EXCELLEZ.net
    Secteur : Enseignement

    Informations forums :
    Inscription : Novembre 2003
    Messages : 19 125
    Billets dans le blog
    131
    Par défaut
    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
    "Plus les hommes seront éclairés, plus ils seront libres" (Voltaire)
    ---------------
    Mes billets de blog sur DVP
    Mes remarques et critiques sont purement techniques. Ne les prenez jamais pour des attaques personnelles...
    Pensez à utiliser les tableaux structurés. Ils vous simplifieront la vie, tant en Excel qu'en VBA ==> mon tuto
    Le VBA ne palliera jamais une mauvaise conception de classeur ou un manque de connaissances des outils natifs d'Excel...
    Ce ne sont pas des bonnes pratiques parce que ce sont les miennes, ce sont les miennes parce que ce sont des bonnes pratiques
    VBA pour Excel? Pensez D'ABORD en EXCEL avant de penser en VBA...
    ---------------

Discussions similaires

  1. Erreur Automation VBA excel
    Par icpa38 dans le forum Général VBA
    Réponses: 1
    Dernier message: 05/06/2012, 15h53
  2. Lancer javascript depuis Excel - erreur Automation [E-03]
    Par beben31 dans le forum Macros et VBA Excel
    Réponses: 4
    Dernier message: 08/06/2009, 11h16
  3. Erreur automation sous excel pour ouvrir Word
    Par Philippe53 dans le forum VBA Word
    Réponses: 6
    Dernier message: 21/06/2008, 22h52
  4. Erreur Automation sous Excel (SaveCopyAs)
    Par jeanvoil dans le forum Macros et VBA Excel
    Réponses: 5
    Dernier message: 09/03/2007, 11h05
  5. [VBA-Excel] Erreur automation
    Par argv666 dans le forum Macros et VBA Excel
    Réponses: 27
    Dernier message: 18/09/2006, 19h03

Partager

Partager
  • Envoyer la discussion sur Viadeo
  • Envoyer la discussion sur Twitter
  • Envoyer la discussion sur Google
  • Envoyer la discussion sur Facebook
  • Envoyer la discussion sur Digg
  • Envoyer la discussion sur Delicious
  • Envoyer la discussion sur MySpace
  • Envoyer la discussion sur Yahoo