Re : Récup fichier PDF
re bonjour
j'ai essayé ça mes ca ne marche pas :
Sub Enregistrement()
Dim Chemin$, Fichier$, Numfact$, Jour$, F$, N$
Chemin = "C:\FACTURE\"
Jour = Format(Now(), "ddmmyyyy")
Numfact = Range("E2")
N = Jour & "_" & Numfact
F = Application.GetSaveAsFilename(N, "fichier pdf,*.pdf")
Application.ActivePrinter = "PDFCreator sur Ne00:"
SendKeys N & "{ENTER}", False
ActiveWindow.SelectedSheets.PrintOut Copies:=1, ActivePrinter:= _
"PDFCreator sur Ne00:"
End Sub
@+ et merci d'avance