Discussion :

[Big75]

Bonjour à tous,

Je vous contacte car après de nombreuses recherches, je n'arrive toujours pas à solutionner mon problème.

J'ai un fichier Excel sur lequel j'ai incorporé un fichier Powerpoint avec une charte graphique personnalisée. L'objectif est de générer un Pptx personnalisé suivant les informations remplies dans le Excel.

Cependant, je souhaiterais que le fichier incorporé demeure "par défaut" et il conviendrait donc d'ouvrir le fichier, puis de l'enregistrer sous, dans le dossier où se trouve le document Excel, afin d'utiliser ce fichier pour effectuer les modifications.

J'ai bien le code pour ouvrir le fichier Pptx:

Code :

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

1
2
ActiveSheet.Shapes.Range(Array("Object 5")).Select
    Selection.Verb Verb:=xlOpen

Cependant, je reste bloqué à l'étape suivante, à savoir enregistrer le fichier dans le même dossier que celui de mon document Excel.

Si quelqu'un à une piste, je suis preneur!

Merci d'avance!

[eric4459]

Bonsoir,
Ceci pourra peut-être t'aider

Code :

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

1
2
3
Dim Chemin as String
Set Chemin= ThisWorkbook.Path ' Ici tu défini le chemin de ton fichier Excel (Celui dans lequel tu as ta macro)
Object5.SaveAs Chemin & "\" & Nom_de_ton_Fichier_PowerPoint

Perso je ne l'ai pas testé mais cela pourra déjà t'aiguiller

Eric

[Big75]

Bonsoir Eric,

Merci pour cette réponse rapide.
Alors en effet pour le chemin c'est parfaitement ce qu'il me faut, merci!

Par contre la difficulté c'est la déclaration de l'objet. J'avoue que là je n'ai vraiment pas d'idée. J'arrive à l'ouvrir, je vois bien où l'enregistrer, il me manque le "comment" enregistrer...

Thomas

[eric4459]

Bonjour Thomas
J'ai trouvé ceci, il me semble que cela répond a ton souhait:
http://www.info-3000.com/vbvba/piloterpowerpoint.php
D’après plusieurs post trouvé sur ce sujet, pour déclarer ta variable il faut utiliser :

Code :

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

1
2
Dim TaVAriable As PowerPoint.Application
Set TaVariable = CreateObject("PowerPoint.Application")

Eric

[Big75]

Bonjour Eric,

Alors effectivement l'aide info-3000 est intéressante pour la deuxième phase de ma macro, à savoir l'ouverture du document pour changer les données.

Le problème que j'ai, c'est celui d'enregistrer le powerpoint incorporé sur mon Excel, car je ne veux pas que l'utilisateur ait une manipulation à effectuer pour venir mettre le modèle powerpoint dans le fichier du Excel.

Du coup, j'arrive à un code qui ressemble à ça:

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
31
32
33
Sub TestPowerPoint()
 
' Déclaration des variables :
 
    Dim ppt As PowerPoint.Application
    Dim Pres As PowerPoint.Presentation
    Dim Chemin As String
 
 
' Première partie, on vient enregistrer l'objet powerpoint incorporé dans le repertoire du fichier Excel source :
 
        ActiveSheet.Shapes.Range(Array("Object 5")).Select
        Selection.Verb Verb:=xlOpen
 
        Chemin = ThisWorkbook.Path
 
        ???.SaveAs Chemin & "presentations"
 
' Deuxième partie, on ouvre le modèle pour venir personnaliser suivant les données du doc Excel :
 
    Set ppt = CreateObject("PowerPoint.Application")
    ppt.Visible = True
 
    Set Pres = ppt.Presentations.Open(Filename:=ThisWorkbook.Path & "\nom de mon powerpoint.pptx")
 
            ' -> Macro définissant les opérations à effectuer
 
    Pres.Save
 
    ppt.Quit
    Set ppt = Nothing
 
End Sub

Mon problème se situe donc au niveau des points d’interrogation, où je ne sais pas quoi déclarer pour pouvoir enregistrer l'objet incorporé que je viens d'ouvrir...

En tout cas, merci beaucoup pour ton aide Eric.

Thomas

[eric4459]

Bonjour Thomas,
Je n'ai pas encore eu à faire ces manipulations, ça viendra peut-être un jour, mais as-tu essayé tout simplement ?

Attention à ajouter un séparateur entre ton chemin et le nom du fichier

Code :

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

Selection.SaveAs Chemin & "\" & "presentations"

ou alors ceci

Code :

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

OLEObjects("Object 5").SaveAs Chemin  & "\" &  "presentations"

Eric