Discussion :

[sash6]

Bonsoir tout le monde,

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

Code :

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

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 :

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

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...

[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...

[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+

[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

[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.

[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)

[sash6]

Code :

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

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

c'est tout...

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?

[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

[ouskel'n'or]

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

Code :

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

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+