enregistrement d'un fichier sur le DD

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, _

Re : enregistrement d'un fichier sur le DD

je vais essayé , je te remercie

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