Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

XL 2010 Bibliothèque non inscrite

  • Initiateur de la discussion Initiateur de la discussion cp4
  • Date de début Date de début

cp4

XLDnaute Barbatruc
Bonjour,

Suite à une discussion mes recherches m'ont amené ICI
J'ai téléchargé le fichier zip. Il s'agit d'exporter des feuilles d'excel vers powerpoint.
Cependant, en exécutant le code un message d'erreur

Arrêt sur cette ligne de code

Alors que j'ai bien coché dans la référence Microsoft Powerpoint Object Library

Je suis sous windows7 64bits et Office2010 32bits. Auriez-vous une idée comment résoudre ce problème.
En vous remerciant par avance.
 
Dernière édition:
Trier par date Trier par votes

cp4

XLDnaute Barbatruc
patricktoulon à dit:
bonjour @cp4
essaie toujours en early binding avant de faire du late
Cliquez pour agrandir...
Bonjour Patrick,

Merci beaucoup pour ta suggestion. Cependant, Je suis autodidacte et progresse à mon rythme (very low).
Pourrais-tu m'éclairer? Avec mes remerciements.
Ci-dessous code du fichier:
VB: 
Option Explicit

Sub Export_Ppt()
'necessite d'activer la reference Microsoft Powerpoint Object Library
    Dim PPT As PowerPoint.Application
    Dim PptDoc As PowerPoint.Presentation
    Dim NbShpe As Byte
    Set PPT = CreateObject("Powerpoint.Application")    'creation session PowerPoint
    PPT.Visible = True    'l'application sera visible
    Set PptDoc = PPT.Presentations.Open(ThisWorkbook.Path & "/Présentation1.ppt")    'ouverture fichier ppt
    Dim Feuille As Worksheet, I As Integer, J As Integer, NbreGraphiques As Integer
    I = 2
    For Each Feuille In ThisWorkbook.Worksheets
        NbreGraphiques = Feuille.Shapes.Count
        For J = 1 To NbreGraphiques
            If Feuille.Shapes(J).Name <> "CommandButton1" Then
                PptDoc.Slides.Add I, ppLayoutBlank
                Feuille.Shapes(J).Copy
                PptDoc.Slides(I).Shapes.Paste
                I = I + 1
            End If
        Next J
    Next
    PptDoc.Save    'sauvegarder les modifications
    PptDoc.Close    'fermer le document ppt
    PPT.Quit    'fermer l'application powerPoint
End Sub
 
Vote positif 0 Vote négatif

patricktoulon

XLDnaute Barbatruc
re
VB: 
Option Explicit

Sub Export_Ppt()
'necessite d'activer la reference Microsoft Powerpoint Object Library
    Dim PPT As new  PowerPoint.Application' on créée l'object en le dimant avec la librairie existante sur le PC
    Dim PptDoc As PowerPoint.Presentation
    Dim NbShpe As Byte
    'supprimé la création tardive de l'object 'PPT = CreateObject("Powerpoint.Application")    'creation session PowerPoint
'blablabla
'......
 
Vote positif 0 Vote négatif

cp4

XLDnaute Barbatruc
Merci mais plante toujours mais des lignes de code plus bas.
 
Vote positif 0 Vote négatif

patricktoulon

XLDnaute Barbatruc
bon ben déjà si ça ne plante plus a la création de l'object c'est déjà pas mal
chez moi le fichier avec les graph fonctionne très bien
ça les ajoutes bien dans le ppt
VB: 
Option Explicit

Sub Export_Ppt()
'necessite d'activer la reference Microsoft Powerpoint Object Library
Dim PPT As New PowerPoint.Application
Dim PptDoc As PowerPoint.Presentation
Dim NbShpe As Byte
'Set PPT = CreateObject("Powerpoint.Application") 'creation session PowerPoint
PPT.Visible = True 'l'application sera visible
Set PptDoc = PPT.Presentations.Open(ThisWorkbook.Path & "/Présentation1.ppt") 'ouverture fichier ppt
Dim Feuille As Worksheet, I As Integer, J As Integer, NbreGraphiques As Integer
I = 2
For Each Feuille In ThisWorkbook.Worksheets
NbreGraphiques = Feuille.Shapes.Count
For J = 1 To NbreGraphiques
If Feuille.Shapes(J).Name <> "CommandButton1" Then
PptDoc.Slides.Add I, ppLayoutBlank
Feuille.Shapes(J).Copy
PptDoc.Slides(I).Shapes.Paste
I = I + 1
End If
Next J
Next
PptDoc.Save 'sauvegarder les modifications
PptDoc.Close 'fermer le document ppt
PPT.Quit 'fermer l'application powerPoint
End Sub
Code:
 
Vote positif 0 Vote négatif

cp4

XLDnaute Barbatruc
Merci beaucoup. Mais plante chez moi.
 
Vote positif 0 Vote négatif

cp4

XLDnaute Barbatruc
J'ai trouvé. Il fallait déclarer Dim PptDoc As Object, PPT As Object
VB: 
Option Explicit

Sub Export_Ppt()
'necessite d'activer la reference Microsoft Powerpoint Object Library
    Dim PptDoc As Object, PPT As Object, NbShpe As Byte
    '''''''''''''''''''''''''''''''''''''''''''''''
    Set PPT = CreateObject("Powerpoint.Application")
    PPT.Visible = True    'l'application sera visible
    Set PptDoc = PPT.Presentations.Open(ThisWorkbook.Path & "/Présentation1.ppt")    'ouverture fichier ppt
    Dim Feuille As Worksheet, I As Integer, J As Integer, NbreGraphiques As Integer
    I = 2
    For Each Feuille In ThisWorkbook.Worksheets
        NbreGraphiques = Feuille.Shapes.Count
        For J = 1 To NbreGraphiques
            If Feuille.Shapes(J).Name <> "CommandButton1" Then
                PptDoc.Slides.Add I, ppLayoutBlank
                Feuille.Shapes(J).Copy
                PptDoc.Slides(I).Shapes.Paste
                I = I + 1
            End If
        Next J
    Next
    PptDoc.Save    'sauvegarder les modifications
    PptDoc.Close    'fermer le document ppt
    PPT.Quit    'fermer l'application powerPoint
End Sub
 
Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.

Discussions similaires

V
  • Résolu(e)
XL 2013 VBA to Word - Erreur Automation : Bibliothèque non inscrite
Réponses
4
Affichages
2 K
Vlad1
V
B
  • Question Question
field projet ou bibliothèque introuvable
Réponses
3
Affichages
2 K
Bernard91
B
M
[REF] Wiki Page 8 de MichelXld
Réponses
0
Affichages
39 K
MichelXld
M
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…