Discussion :

[lecail65]

Bonjour à tous.

Je viens vers vous car j'ai un problème sur un fichier avec la commande :

Code :

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

FileDialog(msoFileDialogSaveAs).Show

Explications:
Via Excel j'ouvre une présentation ppt (powerpoint) et après qques traitements automatiques j'ouvre la boite de dialogue pour l'enregistrement de fichier (avec le nom du fichier déjà créé).

Jusque là tout se passe bien, par contre lorsque j'enregistre le fichier, donc appuie sur le bouton "enregistrer", le fichier n'est pas enregistré.

Je ne comprend pas pourquoi le fichier ne veut pas s'enregistrer?...
Voici le code que j'utilise:

Code :

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

1
2
3
 
SendKeys (STR_Nom)
pptApp.FileDialog(msoFileDialogSaveAs).Show

Auriez-vous une idée SVP ???

[aalex_38]

A mon avis, afficher la boite de dialogue ne te permet pas de le faire, il faut que tu récupère le nom et que tu sauve toi même.

[toffe25]

Bonjour,

Si c'est un objet PPT, il y a une méthode pour la sauvegarde.

Code :

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

1
2
3
Dim objPPT As PowerPoint.Presentation
[..]
objPPT.Save

Bien sur il faut penser à ajouter une référence vers Microsoft Powerpoint nn

A+

Christophe

[aalex_38]

Toujours en passant par la boite de dialogue, un code à adapter :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Sub ZF_Enregistrer_Sous() 
    Dim REP As FileDialog
    Set REP = Application.FileDialog(msoFileDialogSaveAs)
    With REP
        .AllowMultiSelect = False
        .InitialFileName = CurDir 'Mettre ici le chemin avec le nom
       .Title = "Choix du dossier" & libdos
        If .Show = -1 Then
           ThisWorkbook.SaveAs Filename:=.SelectedItems(1)
        End If
    End With
 
End Sub

[lecail65]

Merci pour vos réponses je vais voir avec ce que vous m'avez dit.

Le but de mon code est de ne pas enregistrer le fichier directement après mes traitements. J'ouvre simplement une boite de dislogue avec le nom du fichier pré-remplie mais libre à moi d'enregistrer le document sous un autre nom ou de ne pas enregistrer du tout.

Seulement lorsque j'enregistre la première fois çà ne marche pas du tout.

Je vous tiens au courant

[aalex_38]

à moi d'enregistrer le document sous un autre nom ou de ne pas enregistrer du tout.

Dans ce cas mon code ci-dessu devrait te servir

[lecail65]

Merci Alex.

Le problème pour le moment avec ton code c'est qu'il me propose d'enregistrer mon fichier père Excel et non le fichier PPT généré par l'Excel.

tu vois ce que je veux dire ?

[lecail65]

OK j'ai réussit en adaptant ton code aalex 38.

DU coup voici le bon code:

Code :

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

1
2
3
4
5
6
7
8
9
10
 
Dim REP As FileDialog
    Set REP = pptApp.FileDialog(msoFileDialogSaveAs)
    With REP
        .AllowMultiSelect = False
        .InitialFileName = STR_Nom
        If .Show = -1 Then
            pptPres.SaveAs Filename:=.SelectedItems(1)
        End If
    End With

[aalex_38]

Le problème pour le moment avec ton code c'est qu'il me propose d'enregistrer mon fichier père Excel et non le fichier PPT généré par l'Excel.

OK j'ai réussit en adaptant ton code aalex 38.

Bravo