Enregistrer une feuille Excel en PDF

Bonjour,

N'étant pas un expert de VBA j'ai essayé d'écrire la fonction suivante pour enregistrer une feuille Excel en PDF dans un fichier défini suivant un titre issu d'une cellule......

Quand je lance cette fonction, rien ne se passe........ même pas de message d'erreur???

Sub EnregistreFacture()

Dim NomDossier As String

Dim CheminDossier As String

On Error GoTo 1

NomDossier = Application.ImputBox("Dossier Enregistrement :", "Dossier")

CheminDossier = "C:\Users\Christophe\Documents\Facture\" & NomDossier & "\"

If NomDossier = "" Then Exit Sub

ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _

CheminDossier & "Facture_" & Range("I3").Value & ".pdf", quality:= _

xlQualityStandard, includedocproperties:=True, ignoreprintareas:=False, _

from:=1, to:=1, openafterpublish:=False

1

End Sub

Pour plus d'information, ci-joint le fichier concerné

Merci d'avance

Cdt

Bjr,

mettre n au lieu de m

NomDossier = Application.InputBox("Dossier Enregistrement :", "Dossier")

personnellement je n'aurais pas mis

On Error GoTo 1

c'est pour cela qu'il n'y a pas de message d'erreur et qu'il ne détecte pas imput (au lieu de input), ou plutôt il le détecte mais comme c'est une erreur il sort du programme

attention aussi ce que le dossier entré existe bien !

Hello,

Ouf, heureusement que le ridicule ne tue pas.......... et oui en mettant un "n", la fenêtre pour l'enregistrement s'ouvre, par contre quand je tape "Facture" pour enregistrer il ne se passe rien

Ta phrase "attention aussi ce que le dossier entré existe bien !" est t'elle prémonitoire????

J'ai donc supprimé la ligne "On Error GoTo 1"

En retestant il apparait (erreur d’exécution "5") et le débogage me surligne en jaune toute cette zone:

ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _

CheminDossier & "Facture_" & Range("I3").Value & ".pdf", quality:= _

xlQualityStandard, includedocproperties:=True, ignoreprintareas:=False, _

from:=1, to:=1, openafterpublish:=False

Hello,

Pour alimenter ma réflexion, je m'aperçois que "Enregistrer sous" ne me propose pas PDF. Cette option n'est visible que dans le pack 2 ou 3 d'Office 2007..... je suis à charger la mise à jour

moi aussi j'ai eu cette erreur mais parce que le dossier n'existait pas !

vérifie que le nom du dossier que tu tapes existe et ne comporte pas d'erreur d'orthographe

Oui, j'ai vérifié.... et le fichier existe bien. J'ai même fait un copier/coller du nom de fichier pour être sûr.

je sollicite donc ton avis sur ma réflexion concernant Je reste sur ma réflexion concernant le pack office et le fait que dans enregistrer sous PDF n'apparait pas et donc le chemin est coupé................

Là je ne peux pas répondre

Donc peut-être ! mais le pack doit être téléchargeable gratuitement, non ?

Maintenant je voulais aussi te proposer autre chose de façon à ne pas avoir à taper le nom du dossier mais le choisir :

Sub EnregistreFacture()

Dim Repertoire As FileDialog
    Set Repertoire = Application.FileDialog(msoFileDialogFolderPicker)
    Repertoire.Show
    CheminDossier = Repertoire.SelectedItems(1)

If CheminDossier = "" Then Exit Sub
Debug.Print CheminDossier
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
CheminDossier & "\Facture_" & Range("I3").Value & ".pdf", quality:= _
xlQualityStandard, includedocproperties:=True, ignoreprintareas:=False, _
from:=1, to:=1, openafterpublish:=True

End Sub

Je suis en cours de mise à jour, je te tiens au courant...

Tout fonctionne et le choix est plus pratique que de taper un nom

Merci et à la prochaine