PB avec enregistrer sous ppt depuis VBA Excel

Version imprimable

Bonsoir tout le monde,

Le code suivant a au préalable fonctionné et désormais il "refuse" :aie: :
Code:

1 2 Set dlgSaveAs = PptApp.FileDialog(msoFileDialogSaveAs) dlgSaveAs.Show
J'ai essayé de faire un truc du genre mais hélàs sans beaucoup de succès:
Code:

1 2 3 4 5 6 7 8 9 Dim vrtSelectedItem As Variant With dlgSaveAs If .Show = -1 Then For Each vrtSelectedItem In .SelectedItems MsgBox "Le chemin du fichier est: " & vrtSelectedItem Next vrtSelectedItem Else End If End With
La msgbox m'indique bien le chemin choisi, mais comme lors du code précédent le fichier n'est pas enregistré à l'endroit souhaité...il est même pas sauvegardé du tout...

27/11/2007, 09h18
sash6

Je ne sais pas pourquoi on m'a déplacé étant donné que le code ci-dessus est géré par VBA Excel et non dans l'environnement ppt. Bref, soit dit en passant le problème demeure...
27/11/2007, 11h07
ouskel'n'or

Quel est le problème ? Enregistrer ton ppt quelque part ? Comment l'ouvres-tu ? Le crées-tu de toute pièce ?
Il faudrait que tu nous donnes plus de précisions.
A+
27/11/2007, 11h50
ouskel'n'or

Il a été déplacé (j'ignore par qui) car nulle part tu ne signales que ton code se trouve dans VBA-Excel ;)
Je re-déplace en modifiant le sujet
27/11/2007, 11h59
sash6

Le ppt est ouvert depuis VBA Excel. Il s'agit de modifier une présentation existante. Le problème c'est que l'enregistrement ne se fait pas.
Dans la 1re méthode, elle ne porte plus le nom enregistrer sous mais seulement enregistrer. Je choisis un emplacement, donne un nom au fichier mais je ne le retrouve nul part.
De même dans la deuxième méthode, même si la msgbox m'affiche correctement le chemin d'enregistrement je ne le retrouve pas.
27/11/2007, 12h21
ouskel'n'or

Mets ton code en entier qui te sert à baptiser ton fichier, j'avoue qu'avec les éléments que tu nous donnes, je ne vois pas. Tu es sous Excel. Si tu utilises une boîte de dialogue Excel, dans Excel, les fichiers affichés sont des fichiers Excel. Es-tu certain que tu puisses visualiser des ppt avec une boîte de dialog Excel ? Je ne l'ai jamais fait mais pour ma part je testerais avec une boîte de dialogue PowerPoint en plaçant le code d'enregistrement dans une macro placée dans la présentation que tu pourrais alors lancer (???) depuis Excel. Juste une idée, faut tester.
Tu dis
A+

(J'ai fusionné les deux discussions concernant ce sujet, lis mes explications réponse 4)
27/11/2007, 13h16
sash6
Code:

1 2 3 4 Dim PptApp As PowerPoint.Application Dim dlgSaveAs As FileDialog Set dlgSaveAs = PptApp.FileDialog(msoFileDialogSaveAs) dlgSaveAs.Show
c'est tout...

Citation:

Es-tu certain que tu puisses visualiser des ppt avec une boîte de dialog Excel?

J'ai déjà réussi à enregistrer sous des fichiers ppt depuis l'environnement Excel et c'est justement cela qui me perturbe.
Quant à ta suggestion je ne suis pas sûr de bien comprendre: dans VBA Powerpoint je fais une macro pour enregistrer sous que j'appelle depuis VBA Excel?
27/11/2007, 17h00
sash6

euhhhh je n'ai rien réussi à obtenir. J'ai tenté d'obtenir une boîte de dialogue Powerpoint mais...Il semble que la propriété msoFileDialogSaveas n'est pas disponible sous Powerpoint...Je comprends pas comment un truc peut marcher il y a quelque temps et du jour au lendemain paaaaaf ça marche plus 8O

Teste ça.
Tu dois instantier l'application et utiliser l'instance dans le code pour y accéder depuis Excel

Code:

1
2
3
4
5
6
7
8
9
10
11
Sub OuvrirFichier()
Dim BdI As FileDialog
Dim NomFich
    Set BdI = Application.FileDialog( _
        Type:=msoFileDialogOpen)
        BdI.Show
        For Each NomFich In BdI.SelectedItems
            Presentations.Open NomFich
        Next NomFich
    Set BdI = Nothing
End Sub

Tu sauras adapter ? Sinon, tu demandes
A+