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 d'exécution '-2147417848' (80010108)


Sujet :

Macros et VBA Excel

Vue hybride

Message précédent Message précédent   Message suivant Message suivant
  1. #1
    Membre averti
    Inscrit en
    Avril 2008
    Messages
    46
    Détails du profil
    Informations forums :
    Inscription : Avril 2008
    Messages : 46
    Par défaut erreur d'exécution '-2147417848' (80010108)
    Bonjour à tous,

    J'ai le message d'erreur suivant lorsque je fais tourner ma macro:

    erreur d'exécution '-2147417848' (80010108)
    L'objet invoqué s'est déconnecté de ses clients.


    Voici le code. La macro plante sur la dernière ligne
    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
    20
    21
    22
    23
    24
    25
    26
    27
    28
    29
    30
    ...
     dossier = ActiveWorkbook.Path
     
        Sheets("Impression").Select
        Range("C7").Select
        dat = Selection
     
        Range("G3").Select
        pays = Selection
     
        Range("C5").Select
        monnaie = Selection
     
     
    'Ajout d'un fichier
        Workbooks.Add
     
    ' Définition du nom de fichier
    FichierCree = pays & " " & dat & " TdBSite " & monnaie & ".xls"
     
     
    'enregistrement automatique de ce fichier 'activeworkbook à la base
        ActiveWorkbook.SaveAs Filename:= _
            dossier & "\" & FichierCree, FileFormat:=xlNormal, _
            Password:="", WriteResPassword:="", ReadOnlyRecommended:=False, _
            CreateBackup:=False
     
     Windows("TdB").Activate
     Worksheets("PDF").Select
     Sheets("PDF").Copy Before:=Workbooks(FichierCree).Worksheets(1)


    Remarques:

    1) Au total, j'ai 3 fichiers (le fichier "TdB" + 2 autres) contenant des macros et Excel plante toujours sur les commandes "copy before" ou "copy after" quand il s'agit de copier des onglets.

    2) Ces onglets comportent soit des liens hypertextes soit des images comme c'est le cas pour l'onglet "PDF" dont il est question dans le code ci-dessus.

    3) Excel plante à peu près une fois sur deux sans que je modifie quoi que ce soit et quand il plante, je suis obligé de tout redémarrer.

    4) Je travaille sur Excel 2002

    5) J'ai essayé de comprendre les causes de ces disfonctionnements:
    a) j'ai d'abord recherché des références d'automation dans mon code mais je n'en ai pas trouvé.
    b) Je me suis dit que le nom de l'onglet "PDF" pouvait être problématique mais ça plante tjs lorsque je remplace le nom de l'onglet par sa position.
    c) Sur Excel Support, ils parlent de cette erreur et préconisent d'utiliser des liaisons anticipées mais je ne sais pas du tout ce que c'est.
    d) Est-ce un problème de librairies ?


    6)jusque là, je m'en sortais (éviter la commande copy before ou copy after) en créant un classeur et en copiant le contenu des feuilles mais en ce qui concerne l'onglet "PDF" ça me semble plus difficile de copier son contenu étant donné qu'il contient des images. Savez-vous si on peut copier le contenu d'un onglet qui contient des images tout en conservant la mise en forme ?

    Bon, je crois que j'ai tout dit.

    D'avance merci pour votre aide.

  2. #2
    Membre Expert
    Profil pro
    Inscrit en
    Juillet 2007
    Messages
    2 130
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : Juillet 2007
    Messages : 2 130
    Par défaut
    Salut atoffoli75 et le forum
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    FichierCree = pays & " " & dat & " TdBSite " & monnaie & ".xls"
    FichierCree contient le "nom du classeur "& ".xls"
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
     Windows("TdB").sheets("PDF").Copy Before:=Workbooks(left(FichierCree, len(FichierCree)-4)).Worksheets(1)
    [/CODE]A+

  3. #3
    Membre averti
    Inscrit en
    Avril 2008
    Messages
    46
    Détails du profil
    Informations forums :
    Inscription : Avril 2008
    Messages : 46
    Par défaut
    ça ne marche pas: il ya tjs le même message d'erreur

  4. #4
    Membre Expert
    Profil pro
    Inscrit en
    Juillet 2007
    Messages
    2 130
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : Juillet 2007
    Messages : 2 130
    Par défaut
    Salut atoffoli75 et nle forum
    Si j'ai bien compris, c'est
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    Workbooks("PDF").Sheets("PDF").Copy Before:=Workbooks(FichierCree).Worksheets(1)
    Qui est en erreur
    véfifie avec un point d'arrêt sur cette ligne :
    - que WorkBooks("PDF").Sheets("PDF") est bien accessible
    - que FichierCree est bien le nom d'un classeur ouvert
    A+
    books, sheets, presque pareils À force de checrher le problème, on ne remarque même plus les énormités qu'on peut marquer
    Heureusement qu'il y a alaintech.
    J'ai rectifié et ce sera dur de prouver mon erreur

  5. #5
    Membre averti
    Inscrit en
    Avril 2008
    Messages
    46
    Détails du profil
    Informations forums :
    Inscription : Avril 2008
    Messages : 46
    Par défaut
    Bonjour,

    En fait c'est

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    Worksheets("TdB").Sheets("PDF").Copy Before:=Workbooks(FichierCree).Worksheets(1)
    qui pose pb.

    Et j'ai bien vérifié:
    - que Worksheets("TdB").Sheets("PDF")est bien accessible
    - que FichierCree est bien le nom d'un classeur ouvert

    Et en plus, il ne m'est désormais plus possible d'ouvrir le fichier "TdB": il fait systématiquement planter Excel même après avoir fait redémarrer mon pc.

    Et dernière chose: quand j'essaie de copier l'onglet "PDF" manuellement (après avoir mis la ligne de code qui plante en commentaire) Excel plante et le fichier "TdB" ne peut plus s'ouvrir

  6. #6
    Modérateur
    Avatar de AlainTech
    Homme Profil pro
    Consultant informatique
    Inscrit en
    Mai 2005
    Messages
    4 235
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 71
    Localisation : Belgique

    Informations professionnelles :
    Activité : Consultant informatique
    Secteur : Finance

    Informations forums :
    Inscription : Mai 2005
    Messages : 4 235
    Par défaut
    Une chose m'interpelle:
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    Worksheets("TdB").Sheets("PDF").Copy
    Ne serait-ce pas Workbooks?
    N'oubliez pas de cliquer sur quand vous avez obtenu ou trouvé vous-même la réponse à votre question.
    Si vous trouvez seul, pensez à poster votre solution. Elle peut servir à d'autres!
    Pensez aussi à voter pour les réponses qui vous ont aidés.
    ------------
    Je dois beaucoup de mes connaissances à mes erreurs!

Discussions similaires

  1. [VI-2007] Erreur d'exécution '-2147417848 (80010108)'
    Par Ariaar dans le forum Visio
    Réponses: 1
    Dernier message: 05/12/2012, 11h53
  2. Excel 2010 : Erreur d'exécution -2147417848(80010108)
    Par AF_2.8 dans le forum Macros et VBA Excel
    Réponses: 4
    Dernier message: 14/12/2011, 19h55
  3. erreur d'exécution 2147417848(80010108)
    Par VELO1222 dans le forum Macros et VBA Excel
    Réponses: 2
    Dernier message: 19/01/2011, 16h50
  4. Erreur d'exécution'-2147417848 (80010108)'
    Par koala94s dans le forum Macros et VBA Excel
    Réponses: 5
    Dernier message: 21/08/2008, 15h16
  5. Erreur d'exécution '-2147417848 (80010108): Erreur Automation
    Par mardona dans le forum Macros et VBA Excel
    Réponses: 4
    Dernier message: 22/05/2007, 18h09

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