enregistrement d'un fichier sur le DD

[Shirow62]

Bonjour ,
je voudrais enregistrer une facture au format pdf directement sur mon disque dur, cela j'arrive a le faire mais je voudrais que le nom de fichier change par rapport a une cellule de facture en question , actuellement il efface l'ancienne facture pour mettre la nouvelle .


Sub engpdf()
'
' enregistrement de la facture au format pdf

ActiveWindow.SmallScroll Down:=9
Range("A1:X30").Select
Range("A1:X30").Activate
Selection.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
"C:\Users\jerome\Documents\piscine\facture.pdf", Quality:=xlQualityStandard, _
IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:= _
False
End Sub


pourriez-vous me donner un coup de main , s'il vous plait ?

 

[ERIC S]

Re : enregistrement d'un fichier sur le DD

peut-être

si ton info xxx est en A1, ton fichier s'appellerait facturexxx

Selection.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
"C:\Users\jerome\Documents\piscine\facture" & range("A1").value & ".pdf ", Quality:=xlQualityStandard, _

 

[Shirow62]

Re : enregistrement d'un fichier sur le DD

je vais essayé , je te remercie

 

[Shirow62]

Re : enregistrement d'un fichier sur le DD

la feuille a enregistrer en pdf comporte 3 chiffres exemple 1 26 835 ( 1 n° facture , 26 la date d'aujourd'hui , 835 facture etabli depuis la creation du dossier ) ton code ma bien aidé et voici je que j'en ai fait .

Private Sub Imprimer()
' imprime la facture en double
ActiveWindow.SelectedSheets.PrintOut Copies:=2, Collate:=True
' enregistre la facture au format pdf dans un dossier specifique
ActiveWindow.SmallScroll Down:=9
Range("A1:X30").Select
Range("A1:X30").Activate
Selection.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
"C:\Users\jerome\Documents\piscine\facture" & Range("U4").Value & Range("V4").Value & Range("W4").Value, Quality:=xlQualityStandard, _
IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:= _
False
' indique que la facture a été archivé
MsgBox ("Document archivé")
End Sub


merci beaucoup