imprimer en pdf avec nom et date heure

[mix770]

Bonsoir le forum,

j'ai une petite macro qui fonctionne mais je souhaiterai attribuer automatiquement un nom au PDF ( récapitulatif ) et la date et heure d'édition, je cherche mais vois pas, si quelqu’un peut m'aider )

Sub imp1()
Sheets("collecte soldes").Select
ActiveSheet.PrintOut Copies:=1, ActivePrinter:="PDFCreator"
Sheets("page accueil").Select
End Sub

merci à vous

 

[camarchepas]

Re : imprimer en pdf avec nom et date heure

Bonsoir Mix, les Ami(e)s du Forum

Voici une solution

Sub imp1()
Sheets("collecte soldes").Select
  'Sauvegarde
  ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=Fichier & "pdf"
Sheets("page accueil").Select
End Sub

Cordialement,

 

[mix770]

Re : imprimer en pdf avec nom et date heure

Bonjour Camarchepas

merci de ta réponse, j'ai essayé, j'ai un problème sur cette ligne: erreur d’exécution 458 propriété ou méthode non gérée par cet objet.
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=Fichier & "pdf"

je vois pas ce qui bloque

 

[camarchepas]

Re : imprimer en pdf avec nom et date heure

Oups ,
Désolé
Un peu trop rapide :

Il faut définir la variable Fichier

Fichier = "Test"
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=Fichier & ".pdf"

 

[mix770]

Re : imprimer en pdf avec nom et date heure

merci pour le temps que tu me consacres, j'ai remplacé fichier par "test", mais ce n'est peut être pas ce que tu voulais me dire.


ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:="test" & ".pdf"

 

[camarchepas]

Re : imprimer en pdf avec nom et date heure

Presque oui ,

sauf que si tu veux la date et l'heure il faut faire comme ceci
Replace permet de remplacer les caracteres non reconnus dans le nom d'un fichier

Fichier = "Test_" & Replace(Replace(Now, "/", "_"), ":", "_")
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=Fichier & ".pdf"

 

[mix770]

Re : imprimer en pdf avec nom et date heure

désolé je n'arrive pas à replacer ta proposition dans mon vba, ça plante, je maitrise pas tout, concrètement le vba entier donnerai quoi
merci à toi

 

[camarchepas]

Re : imprimer en pdf avec nom et date heure

Pour cet exemple , le fichier sera stocké dans la racine du disque C

Il s'appelle Test_03_06_2014 20_37_51.pdf lors de mon test

Sub imp1()
Sheets("collecte soldes").Select
'Sauvegarde PDf
Fichier = "c:\Test_" & Replace(Replace(Now, "/", "_"), ":", "_")
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=Fichier & ".pdf"
Sheets("page accueil").Select
End Sub

 

[mix770]

Re : imprimer en pdf avec nom et date heure

désolé petite pause et repas
je test tout de suite
merci à toi

 

[mix770]

Re : imprimer en pdf avec nom et date heure

ça ne marche pas, je suis en excel 2003, c'est peut etre lié à ça ?

 

[mix770]

Re : imprimer en pdf avec nom et date heure

j'ai bien créé le dossier test en C:\test, il manque rien ?

 

[camarchepas]

Re : imprimer en pdf avec nom et date heure

Ok Mix ,

Juste ,Désolé pour cette perte de temps, j'avais pas fait attention à l'indication Excel2003, donc ma solution ne fonctionne pas .

Par contre une solution hors Excel consiste à aller dans les options de PDFcréator , Enregistrement automatique , et la tu paramètre date et heure + title , n'oublies pas d'enregistrer , et hop le tour est joué.

Cordialement ,