Exporter format PDF mais sans enregistrer automatiquement

Bonjour

Au sein d'une macro, j'exporte une feuille au format pdf. Ce doc pdf s'ouvre (ça oui je le veux) mais s'enregistre également automatiquement (et ça je ne le veux pas - je souhaite que ce soit l'utilisateur qui gère l'enregistrement en cas de besoin).

Voici une partie du code utilisé actuellement :

Dim nom As String
nom = Range("B1")
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=nom _
, Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas _
:=False, OpenAfterPublish:=True

Merci d'avance

Cordialement

Bonjour boby63

On ne peut pas ne pas enregistrer le PDF avant de le réaliser ! C'est le procédé de création du PDF qui veut ça !

Mais par contre on peut l'effacer après, si on ne voulait pas l'enregistrer !

Sub EnregOuPas()
Dim nom As String

    nom = Range("B1")
    ActiveSheet.ExportAsFixedFormat _
        Type:=xlTypePDF, _
        Filename:=nom, _
        Quality:=xlQualityStandard, _
        IncludeDocProperties:=True, _
        IgnorePrintAreas:=False, _
        OpenAfterPublish:=True

    ' Voilà l'astuce !
    If (MsgBox("Voulez-vous Enregistrer ce fichier " + vbCrLf + nom, vbQuestion + vbYesNo, "Attention !") = vbNo) Then
        ' Si l'utilisateur répond NON à cette question le fichier est effacé (donc plus enregistré)
        ' et l'utilisateur n'y a vu que du feu !
        Kill nom ' en supposant que "nom" est le nom complet (avec chemin inclus - sinon il faut l'y ajouter)
    End If

End Sub

à essayer... éventuellement si Excel demande confirmation de suppression... transformer le code autour de "kill nom" en ...

Application.DisplayAlerts = False
Kill nom
Application.DisplayAlerts = True

Bonjour Andrea

Merci beaucoup, c'est parfait

Bonne journée

(re)

boby63 a écrit :

Merci beaucoup, c'est parfait

à toi aussi !

Bonjour,

Je suis intéressé par votre solution par contre j'ai un message d'erreur qui s'affiche : "Proprièté ou méthode non gérée par cet objet"

Est-ce qu'il y a une macro complémentaire à activer dans le menu Outil?

J'ai activé toutes les macros contenant "Adobe" mais tjs le message d'erreur.

Help me please

Bonjour Niko

Sur quelle ligne l'erreur ? sur " ActiveSheet.ExportAsFixedFormat " je suppose !

Bonjour,

Oui, exactement

Bonjour Niko

Il me semblait...

Perso j'utilise "NitroPro" pour mes exports PDF...

Je pense qu'en faisant une impression PDF (avec l'enregistreur de macro activé) tu devrais obtenir un code similaire mais adapté à ta configuration.

Ensuite il ne te reste plus qu'a corriger le code généré (il me semble que tes compétences sont suffisantes pour cela ) pour intégrer "ma solution"

Si tu rencontres d'autres difficultés n'hésites pas... !

De toute façon tiens-moi au courant !

ok merci pour les tuyaux.

Bonne journée

Bonjour Niko

Alors ça fonctionne avec l'enregistreur ? As-tu testé ?

oui avec l'enregistreur ça marche.

J'ai téléchargé Nitro Pro pour tester, c'est pas mal du tout, mais payant ensuite, dommage.

MErci

(re)

Niko a écrit :

J'ai téléchargé Nitro Pro pour tester, c'est pas mal du tout, mais payant ensuite, dommage.

Mais c'est l'époque qui veut ça !

Plus rien n'est gratuit sauf les questions sur le forum et les mercis que l'on récolte !

Non pardon, les "mercis" sont précieux, donc ils sont chers aussi !!!