Discussion :

[sams89]

Bonjour à tous,

Je suis nouveau sur ce forum, alors je vais essayer de vous exposer clairement mon problème.

J’ai réalisé un document PowerPoint (via office 2007) avec différentes macro (cases cliquables, champ commentaire etc…).

Je souhaiterais intégrer une macro me permettant d’enregistrer sous ce document en version *pdf Il est primordial pour moi d’avoir la possibilité de renommer à ma guise ce document et de l’enregistrer dans n’importe quel emplacement sur n’importe quel ordinateur.
J’ai réalisé une macro qui fonctionne bien, cependant quand je sélectionne le format pdf le fichier est bien téléchargé, mais impossible de l'ouvrir par la suite, Adobe Reader affichant le message suivant:

"Adobe Reader n'a pas pu ouvrir machin.pdf, car le type de fichier n'est pas pris en charge ou le fichier est endommagé (il a été envoyé en tant que pièce jointe et n'a pas été décodé correctement, par exemple)."

Ci-dessous ma macro.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Dim dlgSaveAs As FileDialog
    Dim strMyFile As String
    Set dlgSaveAs = Application.FileDialog(Type:=msoFileDialogSaveAs)
    With dlgSaveAs
        .InitialFileName = ActivePresentation.Name
        If .Show = -1 Then
            strMyFile = .SelectedItems(1)
            ActivePresentation.SaveAs (strMyFile)
            MsgBox " Document enregistré."
                  Else
             MsgBox "Enregistrement annulé."
                 End If
    End With
    Set dlgSaveAs = Nothing
End Sub

Auriez-vous une solution à me préconiser.

Par avance, merci.

[clementmarcotte]

Bonjour,

Quand tu veux enregistrer sous un format différent, et c'est indiqué dans l'aide de VBA Powerpoint (2010, chez moi, mais cela doit être la même chose pour ppt 2007 - Presentation.SaveAs, méthode), ils disent qu'il faut ajouter la constante qui correspond au PpSaveAsFileType. Et dans la liste des constantes, il n'y a rien qui correspond au pdf.

Il te reste juste à "imprimer" un fichier pdf.

[sams89]

Bonjour clementmarcotte,

Merci pour cette réponse, cependant je suis embété car impossible d'integrer cette const. à chaque fois j'ai un message d'erreur et ma macro ne fonctionne plus.

Comment l'intégrer ?

Merci.

[clementmarcotte]

S'il n'y a pas de constante pour l'enregistrement au format pdf en VBA, c'est probablement que tu ne peux pas enregistrer au format pdf par macro.

En principe, c'est dans cette ligne que tu ajoutes la constante, si elle existe.

Code :

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

 ActivePresentation.SaveAs (strMyFile,  LA CONSTANTE ICI)