EXCEL VBA pb sur FileDialog(msoFileDialogSaveAs).Show

Version imprimable

27/07/2009, 14h52
lecail65

EXCEL VBA pb sur FileDialog(msoFileDialogSaveAs).Show
Bonjour à tous.

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

Code:

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:

1 2 3 SendKeys (STR_Nom) pptApp.FileDialog(msoFileDialogSaveAs).Show
Auriez-vous une idée SVP ???
27/07/2009, 14h54
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.
27/07/2009, 15h00
toffe25

Pourquoi asser par une boîte de dialogue ?
Bonjour,

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

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

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

Code:

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

27/07/2009, 15h14
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
27/07/2009, 15h36
aalex_38

Citation:

à 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
27/07/2009, 15h49
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 ?

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

DU coup voici le bon code:

Code:

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

27/07/2009, 16h48
aalex_38

Citation:

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.

Citation:

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

Bravo :ccool: