Enregistrer un fichier incorporé sous Excel par VBA

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:

---

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!

Bonsoir,
Ceci pourra peut-être t'aider

Code:

---

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

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

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:

---

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

---

Eric

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:

---

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

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:

---

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

---

ou alors ceci

Code:

---

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

---

Eric

Merci Eric pour ces solutions mais malheureusement, j'ai toujours un problème de déclaration de l'objet qui vient de s'ouvrir...

Je vais essayer de trouver une autre solution, mais merci beaucoup pour ton aide ;)

Thomas

Thomas,
Quel est le type d'erreur? Sur quelle ligne intervient-elle?
Eric

Bonjour Eric,

J'ai deux types d'erreurs suivant le code que j'utilise :

Avec ce code :

Code:

---

1 2 3 4 5 6

ActiveSheet.Shapes.Range(Array("Object 5")).Select Selection.Verb Verb:=xlOpen   chemin = ThisWorkbook.Path   Selection.SaveAs chemin & "\" & "presentations"

---

La dernière ligne ressort en erreur d'execution 438 (Propriété ou méthode non gérée par cet objet)

Avec ce code :

Code:

---

1 2 3 4 5

Worksheets(2).OLEObjects(1).Activate   chemin = ThisWorkbook.Path   OLEObjects(1).SaveAs chemin & "\" & "presentations"

---

Le code ne se lance pas, le "OLEObjects(1)" de la dernière ligne est surlignée et une fenêtre apparaît avec écrit "Erreur de compiltation : Sub ou Function non définie".


En fait je pense que la "transformation" du Powerpoint sous forme d'objet Excel au Powerpoint sous forme de présentation ne se fait pas, et c'est là où je bloque...

Merci pour ton aide en tout cas :)

Bonjour Thomas
Je viens d'essayer de reproduire ce que tu souhaites avec l'enregistreur de macro mais lorsque je souhaite sauvegarder le document PowerPoint après l'avoir inséré, aucune possibilité ne s'offre à moi.
Il semblerait donc que ça ne soit pas possible, à moins qu'une âme charitable avec un peu plus de connaissance passe par ici...
Eric

Une solution qui fonctionne : sélectionner le fichier actif puisque l'objet ouvert constitue le dernier fichier manipulé.

Le code qui j'ai utilisé pour un objet Word à adapter selon l'application:

Code:

---

1 2 3 4 5 6 7 8 9

Dim WordApp as Word.Application 'Permet de créer une instance Word s'il n'en existe pas déjà une On Error Resume Next Set WordApp = GetObject(, "Word.Application") If Err.Number > 0 Then Set WordApp = CreateObject("Word.Application") On Error GoTo 0 WordApp.ActiveDocument.SaveAs Filename:= Path & Fichier

---