Discussion :

[Orange11]

Bonjour,

Débutant sur VBA ainsi que sur ce forum, je souhaiterais obtenir de l'aide concernant une macro qui me permettrait de copier des cellules d'Excel vers Power point, et que lorsque des modifications sont faites sur Excel, celles-ci soit repecurtés automatiquement sur Power point. L'outil "Collé avec liaison" de Power point ne me conviens pas.

J'ai déjà une Macro qui me permet de coller les cellules mais les modifications ne se répercutent pas.
Ma Macro est la suivante :

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
Sub Macro0()
 
Dim PptApp As PowerPoint.Application
Dim PptDoc As PowerPoint.Presentation
 
Set PptApp = CreateObject("Powerpoint.Application")
PptApp.Visible = True
Set PptDoc = PptApp.Presentations.Open("C:\Users\VJJL3271\Desktop\Présentation Mairie\1.pptx")
 
With PptDoc
 
Feuil1.Range("D5:J15").Copy
 
PptDoc.Slides(1).Shapes.PasteSpecial ppPasteEnhancedMetafile
 
'(...)
 
End With
End Sub

En espérant poser ma question au bon endroit, merci d'avance pour vos réponses.

[unparia]

Bonjour

J'ai déjà une Macro qui me permet de coller les cellules mais les modifications ne se répercutent pas.

Elles se "répercuteront" sans doute si tu mets tes instructions dans la procédure évènementielle qui se déclenche forcément en cas de modification.
Qu'est la procédure évènementielle WorkSheet_Change ? Quand se déclenche-t-elle ? --->> aide interne VBA à lire sans attendre. (rubrique Worksheet.Change, événement)

[Orange11]

Bonjour,

Tout d'abord je vous remercie pour votre réponse.

J'ai adapté mon code suite à la lecture de l'aide VBA, mais les modifications ne se font toujours pas.

Voici mon code :

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
Sub Macro0()
 
Dim PptApp As PowerPoint.Application
Dim PptDoc As PowerPoint.Presentation
 
Set PptApp = CreateObject("Powerpoint.Application")
PptApp.Visible = True
Set PptDoc = PptApp.Presentations.Open("C:\Users\VJJL3271\Desktop\Présentation Mairie\1.pptx")
 
With PptDoc
'copie la plage de cellules dans la feuille Excel active
Feuil1.Range("D5:J15").Copy
'Effectue un collage dans la 2eme diapositive
PptDoc.Slides(1).Shapes.PasteSpecial ppPasteEnhancedMetafile
 
'(...)
 
End With
End Sub
 
Private Sub Worksheet_Change(ByVal Target As Range)
    Target.Font.ColorIndex = 5
End Sub

Merci d'avance pour votre retour.

[unparia]

Ah !
Parce-que tu penses que :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Private Sub Worksheet_Change(ByVal Target As Range)
    Target.Font.ColorIndex = 5
End Sub

fait autre chose que modifier la couleur de la police de caractères de la cellule concernée ??????
Je n'y vois aucune instruction de pilotage de Power Point
Réfléchis, s'il te plait (question de simple logique)

EDIT : question au "chargé d'affaires - opérateur de télécommunications" : tu crois qu'en recouvrant d'une housse bleue le récepteur de ton téléphone, tu as changé l'aspect du sofa de ton interlocuteur au cours de ta conversation avec lui ?

[Orange11]

Effectivement..

J'imagine, ou j’espère, que je me rapproche avec le code suivant, mais toujours pas le résultat attendu.

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
Sub Macro0()
 
Dim PptApp As PowerPoint.Application
Dim PptDoc As PowerPoint.Presentation
 
Set PptApp = CreateObject("Powerpoint.Application")
PptApp.Visible = True
Set PptDoc = PptApp.Presentations.Open("C:\Users\VJJL3271\Desktop\Présentation Mairie\1.pptx")
 
With PptDoc
'copie la plage de cellules dans la feuille Excel active
Feuil1.Range("D5:J15").Copy
'Effectue un collage dans la 2eme diapositive
PptDoc.Slides(1).Shapes.PasteSpecial ppPasteEnhancedMetafile
 
'(...)
 
End With
End Sub
 
Private Sub Worksheet_Change(ByVal Target As Range)
 
    If Target.Count > 1 Then Exit Sub
 
    MsgBox "Vous venez de modifier la cellule " & Target.Address & _
        " (" & Target.Value & ")"
 
End Sub

[unparia]

Je te souhaite beaucoup de succès, mais également une énorme chance (tu en as un besoin non moins énorme) dans toutes tes entreprises et démarches (informatiques ou non) actuelles et à venir.
Et te quitte là.

[halaster08]

Effectivement..

J'imagine, ou j’espère, que je me rapproche avec le code suivant, mais toujours pas le résultat attendu.

Tu as l'intention d'en tester combien des codes pris au hasard sur la toile que tu n'as pas lu et/ou pas compris avant te rendre compte que ce n'est pas la bonne démarche?

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
Private Sub Worksheet_Change(ByVal Target As Range)
 
    If Target.Count > 1 Then Exit Sub
 
    MsgBox "Vous venez de modifier la cellule " & Target.Address & _
        " (" & Target.Value & ")"
 
End Sub

Quel est le rapport entre ce code et ta macro?

[78chris]

Bonjour à tous

...
Débutant sur VBA ainsi que sur ce forum, je souhaiterais obtenir de l'aide concernant une macro qui me permettrait de copier des cellules d'Excel vers Power point, et que lorsque des modifications sont faites sur Excel, celles-ci soit repecurtés automatiquement sur Power point. L'outil "Collé avec liaison" de Power point ne me conviens pas.

La 1ère chose à expliquer c'est le contexte et l'objectif précis et pourquoi la solution qui existe et marche très bien ne convient pas...

[Orange11]

Bonjour,

L'objectif de l'outil serait d'automatiser des présentations Ppt depuis Excel, les présentations respectent toujours la même forme (insertion de différentes images à des endroits et dans un ordre précis, plusieurs caractéristiques techniques et informatifs).
J'ai déjà réussi à trouver la macro qui va chercher les images contenues dans un dossier et qui les insère dans Excel, ainsi que la macro qui insère les images et les informations textes dans le Ppt, mais lorsque les informations sont modifiées dans Excel, celles ci ne se font pas dans Ppt.

L'outil collé avec liaison de Power Point ne conviens pas car c'est un projet que je souhaite partager aux personnes de mon équipe.
Je leur envoi donc le Ppt et le fichier Excel, mais les objet collé depuis Excel vers Ppt garde toujours le lien vers mon fichier Excel et pas celui que j'ai pu leur transmettre.

[78chris]

Bonjour

Il suffit que les deux fichier soient dans un même dossier pour que cela fonctionne : dans ce cas le chemin n'est pas pris en compte dans la liaison (même s'il est affiché), seulement le nom du fichier.

Cependant tes explications sont bizarres On insère dans PowerPoint des plages de cellules ou des graphiques Excel : toi tu parles d'images...