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

  1. #1
    Candidat au Club
    Profil pro
    Étudiant
    Inscrit en
    septembre 2013
    Messages
    3
    Détails du profil
    Informations personnelles :
    Localisation : France, Paris (Île de France)

    Informations professionnelles :
    Activité : Étudiant
    Secteur : Santé

    Informations forums :
    Inscription : septembre 2013
    Messages : 3
    Points : 4
    Points
    4

    Par défaut Macro qui ne fonctionne pas toujours

    Bonjour,

    J'ai créé une importante macro qui génère à partir d'excel une présentation Power Point. Cette macro fonctionnait bien avant et pour une raison mystérieuse, parfois elle ne marche plus... Mais parfois elle remarche ! Et puis ne remarche plus...

    Je créé d'abord un PPT vierge et ensuite je colle à l'intérieur plusieurs PPT pré-enregistrés dans un dossier :

    Je vous ai fait une version très courte :

    Dans un module Excel 2010 :
    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
    Sub Start()
     
    Public pptObjet As PowerPoint.Application 
    Public pptTaux As PowerPoint.Presentation 'le fichier PPT vierge
    Public PptTemplate As PowerPoint.Presentation 'le PPT à coller dans le PPT vierge
     
    Set pptObjet = CreateObject("PowerPoint.Application")
    pptObjet.Visible = True 
     
    Set pptTaux = pptObjet.Presentations.Open(PropalPath)
    Set PptTemplate = pptObjet.Presentations.Open(IntroPath, ReadOnly:=True, withwindow:=msoFalse)
     
    CopyPaste PptTemplate, PptTaux 'autre sub qui copie la template et la colle dans la presentation vierge
    PptTemplate.Close 'ferme la template
     
    End Sub
    Cette macro fonctionne correctement 75% du temps, mais sinon j'ai une erreur sur cette ligne :
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    Set pptTaux = pptObjet.Presentations.Open(PropalPath)
    Erreur d'éxécution '-2147467259 (80004005)':
    PowerPoint could not open the file

    Cela fait un an que j'ai ce problème et je n'ai rien trouvé...

    Je me souviendrai toute ma vie de celui qui m'aidera à résoudre ce problème !!

    Merci par avance,

    Coritani

  2. #2
    Membre du Club
    Homme Profil pro
    Développeur Web
    Inscrit en
    mars 2018
    Messages
    32
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 32
    Localisation : France, Bas Rhin (Alsace)

    Informations professionnelles :
    Activité : Développeur Web
    Secteur : High Tech - Matériel informatique

    Informations forums :
    Inscription : mars 2018
    Messages : 32
    Points : 42
    Points
    42

    Par défaut

    Impressionnante ta Macro, je n'en ai jamais utilisée pour Powerpoint. Je suis preneur de la solution à ce niveau... Et désolé pour la fausse joie
    La protection sur internet ne doit pas être une option, protégez vous ! --> https://vpnactu.fr
    "Le meilleur endroit pour cacher un cadavre est sur la deuxième page de Google Research"

  3. #3
    Modérateur
    Avatar de Obsidian
    Homme Profil pro
    Développeur en systèmes embarqués
    Inscrit en
    septembre 2007
    Messages
    7 146
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 42
    Localisation : France, Essonne (Île de France)

    Informations professionnelles :
    Activité : Développeur en systèmes embarqués
    Secteur : High Tech - Éditeur de logiciels

    Informations forums :
    Inscription : septembre 2007
    Messages : 7 146
    Points : 22 641
    Points
    22 641

    Par défaut

    Bonsoir,

    Citation Envoyé par coritani Voir le message
    Erreur d'éxécution '-2147467259 (80004005)':
    PowerPoint could not open the file
    Cela signifie littéralement « PowerPoint n'a pas pu ouvrir le fichier ». Donc visiblement, le problème est extérieur à ta macro (ce qui expliquerait pourquoi elle ait cessé de fonctionner sans que l'on ne change quoi que ce soit) et peut-être même extérieur à Powerpoint.

    Il faudrait voir sur quoi pointe « IntroPath ». Il se peut que ce soit un fichier sur un lecteur réseau parfois indisponible, il se peut que ce soit un raccourci vers un fichier qui, lui, a été effacé ou même encore qu'une autre application ait posé un verrou sur le fichier convoité.

Discussions similaires

  1. Réponses: 0
    Dernier message: 02/11/2017, 13h44
  2. [XL-2003] Macro qui ne Fonctionne PAS sur Excel 2003 mais Fonctionne sur Excel 2010
    Par CedResma34 dans le forum Macros et VBA Excel
    Réponses: 7
    Dernier message: 17/01/2014, 11h05
  3. [XL-2007] Code qui ne fonctionne pas toujours
    Par Foxeuh dans le forum Macros et VBA Excel
    Réponses: 1
    Dernier message: 02/12/2013, 13h16
  4. Macro qui ne fonctionne pas
    Par Françoise_ dans le forum Débutez
    Réponses: 2
    Dernier message: 09/03/2013, 22h08
  5. [AJAX] xmlHTTPRequest qui ne fonctionne pas toujours.
    Par zeclubbeur dans le forum AJAX
    Réponses: 4
    Dernier message: 19/09/2009, 17h58

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