Création d'un fichier PDF

[Poussin]

Bonjour à tous,

Je me permets de vous contacter afin d'éliorer ma macro. En effet pour l'instant j'utilise le code suivant pour créer mon fichier PDF à partir d'un onglet :

ActiveWorkbook.Worksheets("Feuil5").ExportAsFixedFormat Type:=xlTypePDF, Filename:="C:\Users\\Mes documents locaux\Essai1\Essai.pdf"

Mais ce code ne me donne pas entièrement satisfaction, en effet lorsque je relance la macro il ne veut pas recréer le fichier PDF. Il me crée l efichier PDF seulement lors de la première utilisation de la macro. De plus si je change le chemin d'accès pour par exemple mettre le fihcier sur le bureau cela ne marche plus non plus.

Y-a-t-il une solution pour améliorer ce code.

Je vous remercie pour votre aide.

Cordialement

 

[Poussin]

Re : Création d'un fichier PDF

J'ai l'impression qu'il ne veut pas resauvegarder s'il n'y a eu aucune modification or moi je veux re-sauvegarder.

 

[mth]

Re : Création d'un fichier PDF

Bonjour,

Normalement ton PDF est écrasé et remplacé par le nouveau, si tu souhaites en créer un autre à chaque fois, il faut le renommer, en mettant comme nom par exemple le nom + la date ou l'heure dans le nom du fichier.

Est-ce ce que tu souhaites faire?

@ +

mth

 

[Etienne2323]

Re : Création d'un fichier PDF

Salut Poussin,
ma réponse ne répond pas exactement à tes attentes, par contre, elle les contournent. Essaye ceci :

Sub Exporter_vers_PDF()
Dim imprimante

'1) On va aller sélectionner l'imprimante PDF installée sur le poste en question
'2) On génère en PDF
On Error Resume Next
MsgBox "Veuillez sélectionner l'imprimante PDF installée sur votre poste. Merci!", vbOKOnly, "Sélection d'imprimante ..."
imprimante = Application.Dialogs(xlDialogPrinterSetup).Show
Application.ActivePrinter = imprimante
ExecuteExcel4Macro "PRINT(1,,,1,,,,,,,,2,,,TRUE,,FALSE)"
On Error GoTo 0

End Sub

Cordialement,

Étienne

 

[ben59]

Re : Création d'un fichier PDF

Bonjour poussin essaye avec sachant que dans cette macro tu doit placer le nom du fichier en A1 pour éviter les doublons de fichier dans ton répertoire de déstination

Public Sub SavecopyASpdf()
 
 chemin = "C:\Users\Mes documents locaux\Essai1\"
thisfile = Range("A1").Text

ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=chemin & " Le " & Format(Now, "mm-dd-yyyy") & " " & thisfile & ".pdf", Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=False
        
End Sub

Cordialement.

 

[Poussin]

Re : Création d'un fichier PDF

Merci à tous pour vos réponses je retrouve effectivement la fonctionnalité d'écraser le fichier à chaque fois que je relance ma macro donc merci beaucoup par contre si je change le chemin il refuse de me créer le fichier PDF :

chemin = "C:\Users\poussin\Bureau\"

Je ne comprends pas pourquoi il me refuse ce chemin. Merci pour votre aide.

 

[ben59]

Re : Création d'un fichier PDF

Re Poussin,
Essaye avec ceci:

"C:\Documents and Settings\poussin\Bureau"

Et dit si celà fonctionne.

 

[Poussin]

Re : Création d'un fichier PDF

C'est bon il fallait mettre Desktop et non bureau encore merci à tous !!!