Bonjour

Je souhaiterais enregistrer dans un fichier pdf un range de cellule.
J'ai trouvé ce code que j'ai adapté mais ça ne fait pas mon pdf à l'endroit indiqué.

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
 
sRep = "C:\Temp"
sFilename = "toto"&"-"&Now&"." & "pdf"     ' Nom du fichier
 Range("B2:G16").Select
Selection.ExportAsFixedFormat _
                     Type:=xlTypePDF, _
                     Filename:=sRep & SFilename, _
                     Quality:=xlQualityStandard, _
                     IncludeDocProperties:=True, _
                     IgnorePrintAreas:=False, _
                     OpenAfterPublish:=True
Autre question, je souhaiterais que le nom du fichier porte la date + heure d'impression ( 'Now') mais visiblement ca ne plait psa à VBA:

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
 
sFilename = "toto"&"-"&Now&"." & "pdf"
Merci de l'aide .