VBA erreur de compilation procédure trop grande

Créer une discussion
Répondre
  • Initiateur de la discussion Initiateur de la discussion michel90
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

S'inscrire
M

michel90

XLDnaute Nouveau
Bonjour,
j'ai un léger problème dans ma macro, et j'aimerais que quelqu'un puisse m'aider SVP.

la macro ce dessous permet d’afficher le contenue des cellule d'un fichier excel sur les slides d'un PowerPoint.

VB: 
Private Sub import()
'ce programme  sert a ouvrir le powerpoint cartes support relais et mettre a jour les slide c'est a dire les commentaire ainsi ETAT des relais.

Dim pptapp As PowerPoint.Application
'Dim PptDoc As PowerPoint.Presentation
Dim sld As PowerPoint.Slide
Dim Shp As PowerPoint.Shape
'Dim Cs1 As ColorScheme
'Dim NbShpe As Integer
Set pptapp = CreateObject("Powerpoint.Application")

Dim presppt As PowerPoint.Presentation
Dim FichierPpt, pwpt
Set pwpt = CreateObject("PowerPoint.Application")
'pwpt.Visible = False


Set presppt = pptapp.Presentations.Open(Filename:="Y:\Pré-op\SOPP et relais\Relais\Situation Relais V2\cartes support relais.pptm")

'pwpt.Visible = True
pwpt.ActivePresentation.UpdateLinks
With presppt
    '--- Ajoute un Slide
' .Slides.Add Index:=1, Layout:=ppLayoutBlank
  'Crée une zone de texte (AddLabel)
  ' affectation à l'objet slide la première diapositive de la présentation en cours.

    ' création de la zone de texte
   Set Shp = .Slides(2).Shapes.AddTextbox(msoTextOrientationHorizontal, 70, 320, 600, 50)
 
    'insère la valeur de la Cellule E3 dans une zone de texte (Le commentaire)
  If Range("E3") <> 0 Then Shp.TextFrame.TextRange.Text = Range("E3")
 
    'Modifie la couleur du texte
  Shp.TextFrame.TextRange.Font.Color = RGB(3, 34, 76)
 
  
  
'--------com1-SOMAIN
Set Shp = .Slides(2).Shapes.AddTextbox(msoTextOrientationHorizontal, 300, 240, 350, 50)
     If Range("E53") <> 0 Then Shp.TextFrame.TextRange.Text = Range("E53")
     Shp.TextFrame.TextRange.Font.Color = RGB(3, 34, 76)
     '--------com2
Set Shp = .Slides(2).Shapes.AddTextbox(msoTextOrientationHorizontal, 300, 220, 350, 50)
     If Range("E52") <> 0 Then Shp.TextFrame.TextRange.Text = Range("E52")
     Shp.TextFrame.TextRange.Font.Color = RGB(3, 34, 76)
     '--------com3
Set Shp = .Slides(2).Shapes.AddTextbox(msoTextOrientationHorizontal, 300, 200, 350, 50)
     If Range("E51") <> 0 Then Shp.TextFrame.TextRange.Text = Range("E51")
     Shp.TextFrame.TextRange.Font.Color = RGB(3, 34, 76)
     '--------com4
Set Shp = .Slides(2).Shapes.AddTextbox(msoTextOrientationHorizontal, 300, 180, 350, 50)
     If Range("E50") <> 0 Then Shp.TextFrame.TextRange.Text = Range("E50")
     Shp.TextFrame.TextRange.Font.Color = RGB(3, 34, 76)
     '--------com5
Set Shp = .Slides(2).Shapes.AddTextbox(msoTextOrientationHorizontal, 300, 160, 350, 50)
     If Range("E49") <> 0 Then Shp.TextFrame.TextRange.Text = Range("E49")
     Shp.TextFrame.TextRange.Font.Color = RGB(3, 34, 76)
     '--------com6
Set Shp = .Slides(2).Shapes.AddTextbox(msoTextOrientationHorizontal, 300, 140, 350, 50)
      If Range("E48") <> 0 Then Shp.TextFrame.TextRange.Text = Range("E48")
     Shp.TextFrame.TextRange.Font.Color = RGB(3, 34, 76)
     '-------Etat somain
Set Shp = .Slides(2).Shapes.AddTextbox(msoTextOrientationHorizontal, 300, 100, 350, 40)
      If Range("D3") <> 0 Then Shp.TextFrame.TextRange.Text = Range("D3")
     Shp.TextFrame.TextRange.Font.Color = RGB(3, 34, 76)
    End With
'-------------------------------------------------------------------------------------------

With presppt
   ' création de la zone de texte
   Set Shp = .Slides(3).Shapes.AddTextbox(msoTextOrientationHorizontal, 70, 320, 600, 50)
    'insère la valeur de la Cellule E4 dans une zone de texte (Le commentaire)
  If Range("E4") <> 0 Then Shp.TextFrame.TextRange.Text = Range("E4")
    'Modifie la couleur du texte
  Shp.TextFrame.TextRange.Font.Color = RGB(3, 34, 76)
  '-------------Com1-CULMONT CHALANDRY
  Set Shp = .Slides(3).Shapes.AddTextbox(msoTextOrientationHorizontal, 300, 240, 350, 50)
     If Range("E61") <> 0 Then Shp.TextFrame.TextRange.Text = Range("E61")
     Shp.TextFrame.TextRange.Font.Color = RGB(3, 34, 76)
     '--------com2
Set Shp = .Slides(3).Shapes.AddTextbox(msoTextOrientationHorizontal, 300, 220, 350, 50)
     If Range("E60") <> 0 Then Shp.TextFrame.TextRange.Text = Range("E60")
     Shp.TextFrame.TextRange.Font.Color = RGB(3, 34, 76)
     '--------com3
Set Shp = .Slides(3).Shapes.AddTextbox(msoTextOrientationHorizontal, 300, 200, 350, 50)
     If Range("E59") <> 0 Then Shp.TextFrame.TextRange.Text = Range("E59")
     Shp.TextFrame.TextRange.Font.Color = RGB(3, 34, 76)
     '--------com4
Set Shp = .Slides(3).Shapes.AddTextbox(msoTextOrientationHorizontal, 300, 180, 350, 50)
     If Range("E58") <> 0 Then Shp.TextFrame.TextRange.Text = Range("E58")
     Shp.TextFrame.TextRange.Font.Color = RGB(3, 34, 76)
     '--------com5
Set Shp = .Slides(3).Shapes.AddTextbox(msoTextOrientationHorizontal, 300, 160, 350, 50)
     If Range("E57") <> 0 Then Shp.TextFrame.TextRange.Text = Range("E57")
     Shp.TextFrame.TextRange.Font.Color = RGB(3, 34, 76)
     '--------com6
Set Shp = .Slides(3).Shapes.AddTextbox(msoTextOrientationHorizontal, 300, 140, 350, 50)
      If Range("E56") <> 0 Then Shp.TextFrame.TextRange.Text = Range("E56")
     Shp.TextFrame.TextRange.Font.Color = RGB(3, 34, 76)
      '-------Etat culmont
Set Shp = .Slides(3).Shapes.AddTextbox(msoTextOrientationHorizontal, 300, 100, 350, 40)
      If Range("D4") <> 0 Then Shp.TextFrame.TextRange.Text = Range("D4")
     Shp.TextFrame.TextRange.Font.Color = RGB(3, 34, 76)
    End With

With presppt
    ' création de la zone de texte
   Set Shp = .Slides(4).Shapes.AddTextbox(msoTextOrientationHorizontal, 70, 320, 600, 50)
    'insère la valeur de la Cellule E5 dans une zone de texte (Le Commentaire)
  If Range("E5") <> 0 Then Shp.TextFrame.TextRange.Text = Range("E5")
    'Modifie la couleur du texte
  Shp.TextFrame.TextRange.Font.Color = RGB(3, 34, 76)
'------------com1-HAUSBERGEN
Set Shp = .Slides(4).Shapes.AddTextbox(msoTextOrientationHorizontal, 300, 240, 350, 50)
     If Range("E69") <> 0 Then Shp.TextFrame.TextRange.Text = Range("E69")
     Shp.TextFrame.TextRange.Font.Color = RGB(3, 34, 76)
     '--------com2
Set Shp = .Slides(4).Shapes.AddTextbox(msoTextOrientationHorizontal, 300, 220, 350, 50)
     If Range("E68") <> 0 Then Shp.TextFrame.TextRange.Text = Range("E68")
     Shp.TextFrame.TextRange.Font.Color = RGB(3, 34, 76)
     '--------com3
Set Shp = .Slides(4).Shapes.AddTextbox(msoTextOrientationHorizontal, 300, 200, 350, 50)
     If Range("E67") <> 0 Then Shp.TextFrame.TextRange.Text = Range("E67")
     Shp.TextFrame.TextRange.Font.Color = RGB(3, 34, 76)
     '--------com4
Set Shp = .Slides(4).Shapes.AddTextbox(msoTextOrientationHorizontal, 300, 180, 350, 50)
     If Range("E66") <> 0 Then Shp.TextFrame.TextRange.Text = Range("E66")
     Shp.TextFrame.TextRange.Font.Color = RGB(3, 34, 76)
     '--------com5
Set Shp = .Slides(4).Shapes.AddTextbox(msoTextOrientationHorizontal, 300, 160, 350, 50)
     If Range("E65") <> 0 Then Shp.TextFrame.TextRange.Text = Range("E65")
     Shp.TextFrame.TextRange.Font.Color = RGB(3, 34, 76)
     '--------com6
Set Shp = .Slides(4).Shapes.AddTextbox(msoTextOrientationHorizontal, 300, 140, 350, 50)
      If Range("E64") <> 0 Then Shp.TextFrame.TextRange.Text = Range("E64")
     Shp.TextFrame.TextRange.Font.Color = RGB(3, 34, 76)
        '-------Etat hausbergen
Set Shp = .Slides(4).Shapes.AddTextbox(msoTextOrientationHorizontal, 300, 100, 350, 40)
      If Range("D5") <> 0 Then Shp.TextFrame.TextRange.Text = Range("D5")
     Shp.TextFrame.TextRange.Font.Color = RGB(3, 34, 76)
    End With
presppt.Close
    Set presppt = Nothing
    pptapp.Quit
    Set pptapp = Nothing
End Sub

quand j'ajoute ce bout de code dans chaque slide qui permet d’afficher juste le contenu d'une cellule . ça me génère un erreur : la procédure est trop grande.

VB: 
     '-------Etat hausbergen
Set Shp = .Slides(4).Shapes.AddTextbox(msoTextOrientationHorizontal, 300, 100, 350, 40)
      If Range("D5") <> 0 Then Shp.TextFrame.TextRange.Text = Range("D5")
     Shp.TextFrame.TextRange.Font.Color = RGB(3, 34, 76)

quelqu'un peut m'aider a régler ce problème SVP.
 
Trier par date Trier par votes
Bonjour Michel90

Juste une question comme ça, pourquoi ne pas copier/coller avec liaison les cellules du fichier excel dans ton powerpoint !?

Sinon voici un exemple de code optimisé
VB: 
Private Sub import()
  'ce programme  sert a ouvrir le powerpoint cartes support relais et mettre a jour les slide c'est a dire les commentaire ainsi ETAT des relais.
  Dim PptApp As PowerPoint.Application
  Dim PresPpt As PowerPoint.Presentation
  Dim Shp As PowerPoint.Shape
  Dim Sld As PowerPoint.Slide
  Dim FichierPpt As String
  Dim Ind As Integer, NumSld As Integer
  Dim TabCel() As String, TabTop() As String, TabHeight() As String
  Dim Top As Integer, Height As Integer
  ' Définir l'objet
  Set PptApp = CreateObject("Powerpoint.Application")
  ' Fichier powerpoint pour mon test
  FichierPpt = ThisWorkbook.Path & "\Michel90_Présentation1.pptx"
  ' Sinon le vrai chemin
  'FichierPpt = "Y:\Pré-op\SOPP et relais\Relais\Situation Relais V2\cartes support relais.pptm"
  Set PresPpt = PptApp.Presentations.Open(Filename:=FichierPpt)
  'pwpt.ActivePresentation.UpdateLinks
  With PresPpt
    '--- Ajoute un Slide
    ' .Slides.Add Index:=1, Layout:=ppLayoutBlank
    For NumSld = 2 To 4
      ' Définir la zone de texte
      Set Shp = .Slides(NumSld).Shapes.AddTextbox(msoTextOrientationHorizontal, 70, 320, 600, 50)
      'insère la valeur de la Cellule E3 dans une zone de texte (Le commentaire)
      If Range("E" & 1 + NumSld) <> 0 Then Shp.TextFrame.TextRange.Text = Range("E" & 1 + NumSld)
      'Modifie la couleur du texte
      Shp.TextFrame.TextRange.Font.Color = RGB(3, 34, 76)
      ' Définir le tableau des Slide
      If NumSld = 2 Then TabCel = Split("D3,E48,E49,E50,E51,E52,E53", ",")
      If NumSld = 3 Then TabCel = Split("D4,E56,E57,E58,E59,E60,E61", ",")
      If NumSld = 4 Then TabCel = Split("D5,E64,E65,E66,E67,E68,E69", ",")
      '
      TabTop = Split("100,140,160,180,200,220,240", ",")
      TabHeight = Split("40,50,50,50,50,50,50", ",")
      ' Créer les textbox
      For Ind = 0 To UBound(TabCel)
        Top = Val(TabTop(Ind)): Height = Val(TabHeight(Ind))
        Set Shp = .Slides(NumSld).Shapes.AddTextbox(msoTextOrientationHorizontal, 300, Top, 350, Height)
        If Range(TabCel(Ind)) <> 0 Then Shp.TextFrame.TextRange.Text = Range(TabCel(Ind))
        Shp.TextFrame.TextRange.Font.Color = RGB(3, 34, 76)
      Next Ind
      '
    Next NumSld
  End With
  PresPpt.Close
  Set PresPpt = Nothing
  PptApp.Quit
  Set PptApp = Nothing
End Sub

A+
 
Dernière modification par un modérateur:
Vote positif 0 Vote négatif
Bonjour Bruno 🙂

C'est la première fois que j'utilise excel avec powerpoint, la macro copie bien les cellules dans celui-ci n'est pas? . En faisant un test j'ai ce message d'erreur

erreur.gif


Tu vois de quoi il s'agit? 🙄
 
Vote positif 0 Vote négatif
Salut Lone-wolf,

Lone-wolf à dit:
Bonjour Bruno 🙂
C'est la première fois que j'utilise excel avec powerpoint, la macro copie bien les cellules dans celui-ci n'est pas? . En faisant un test j'ai ce message d'erreur
Regarde la pièce jointe 987356
Tu vois de quoi il s'agit? 🙄
Cliquez pour agrandir...
Personnellement, je n'utiliserais pas cette solution 😕
Il est tellement plus simple de copier/coller des plages Excel avec liaisons 😉
Une mise à jour dans Excel est automatiquement reproduite dans Powerpoint

Sinon pour le code, si les slide 2 à 4 n'existent pas, tu as l'erreur 😉

A+
 
Vote positif 0 Vote négatif
BrunoM45 à dit:
Salut Lone-wolf,


Personnellement, je n'utiliserais pas cette solution 😕
Il est tellement plus simple de copier/coller des plages Excel avec liaisons 😉
Une mise à jour dans Excel est automatiquement reproduite dans Powerpoint

Sinon pour le code, si les slide 2 à 4 n'existent pas, tu as l'erreur 😉

A+
Cliquez pour agrandir...
Moi si j'ai utilisé cette solution car j'ai des cellules qui contiennent de gros commentaires! parfois des paragraphes. donc avec le collage avec liaison c'est très moche et le texte ne s'affiche pas au complet.
 
Vote positif 0 Vote négatif
Re,

Lone-wolf à dit:
Re Bruno
Les Slides ce sont les diapos? Sinon pour la 2ème solution, comment on fait?
EDIT: bonjour Michel 🙂
Cliquez pour agrandir...
Oui les Slide ce sont les diapos, pour lier rien de plus simple 😉
Dans Excel, tu copie ta plage (CTRL+C)
2017-04-07_10h57_21.jpg
Dans ton Powerpoint -> Menu Accueil -> Collage Spécial
2017-04-07_10h58_19.jpg
Dans la fenêtre, choisir -> Coller le lien et Objet feuille de calcul
2017-04-07_10h58_40.jpg
Ensuite tu obtiens ta plage
2017-04-07_10h59_02.jpg

Voili, voilou 😉
 
Vote positif 0 Vote négatif
michel90 à dit:
Moi si j'ai utilisé cette solution car j'ai des cellules qui contiennent de gros commentaires! parfois des paragraphes. donc avec le collage avec liaison c'est très moche et le texte ne s'affiche pas au complet.
Cliquez pour agrandir...
Faut Michel, si tu fais un ajustement de la hauteur de la ligne, il n'y a pas de problème !

Je fais des CODIR régulièrement avec des tableaux qui contiennent plus au moins de commentaire, si la cellule est à la bonne hauteur, ta diapo le sera 😉
 
Vote positif 0 Vote négatif
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

J
  • Question Question
Microsoft 365 Probléme VBA
Réponses
8
Affichages
213
jalaba
J
cathodique
  • Question Question
XL 2010 Code de l'IA à corriger
2 3
Réponses
33
Affichages
2 K
cathodique
cathodique
D
  • Question Question
XL pour MAC [RESOLU]Cacher ou afficher colonnes, sauf colonne selectionné
Réponses
9
Affichages
949
Dudy
D
G
  • Question Question
Microsoft 365 Export données
Réponses
4
Affichages
482
GClaire
G
Chaton77
  • Résolu(e)
Microsoft 365 En VBA : Extraire le mois d'une date d'un tableau
Réponses
7
Affichages
364
Chaton77
Chaton77
M
  • Résolu(e)
XL 2016 comment créer une Barre de défilement ou faire simplement défiler son texte ?
2
Réponses
25
Affichages
1 K
melltel
M
F
  • Question Question
XL 2019 erreur 1004
Réponses
8
Affichages
451
florian50470
F
S
  • Question Question
Microsoft 365 créer un macro vba
Réponses
0
Affichages
367
souhaib ad
S
L
  • Résolu(e)
Microsoft 365 Changer code pour sélectionner 3lignes avec un pas de 1
Réponses
4
Affichages
449
laplayast
L
B
  • Question Question
Microsoft 365 Erreur de compilation
Réponses
3
Affichages
769
oguruma
oguruma
S
  • Résolu(e)
Microsoft 365 Envoi de la signature de l'utilisateur macro envoi de mail
Réponses
3
Affichages
239
spike29
S
D
  • Question Question
XL 2021 VBA - Erreur 1004 aléatoire - Image/Logo
Réponses
10
Affichages
681
crocrocro
C
G
  • Question Question
Microsoft 365 Transfert de données
Réponses
7
Affichages
704
GClaire
G
S
  • Question Question
XL 2021 macro VBA excel
Réponses
1
Affichages
452
crocrocro
C
J
  • Question Question
Microsoft 365 macro qui ouvre des fichiers excel de type "analyze in excel" généré par power bi et met à jour un filtre "mois" sur plusieurs tcd
Réponses
0
Affichages
105
JJ69
J
G
  • Question Question
Microsoft 365 Incompatibilité de type - Array
Réponses
2
Affichages
458
guiyom
G
O
  • Question Question
Microsoft 365 Excel [VBA]. Erreur d’exécution 424 Objet requis sur une concaténation
Réponses
3
Affichages
423
Oneida
Oneida
Nicolas JACQUIN
  • Résolu(e)
XL 2021 Doublons, Colorer partie de ligne en fonction de valeur dans colonne défini
Réponses
2
Affichages
454
Nicolas JACQUIN
Nicolas JACQUIN
F
  • Résolu(e)
XL 2021 Souci avec une macro lors d'un changement de "statut"
Réponses
3
Affichages
570
fanou06
F
M
  • Question Question
XL 2010 Calcul possible dans la zone de liste pour le débit et le crédit lors d'une recherche basée sur la zone de texte
Réponses
0
Affichages
645
Mody200
M
Retour