Nomination d'une enregistrement PDF par une cellule
Bonjour a tous,
je travaille sur un fichier Excel VBA, et je suis bloque au niveau de nomination de fichier d'enregistrement par une cellule
ci-joint le fichier Excel et le code VBA
Sub archive_note_de_frais()
ligne = Sheets("Archivage").Range("A1").End(xlDown).Row + 1
Sheets("Archivage").Range("A" & ligne).Value = Sheets("NOTE_DE_FRAIS").Range("H6:J6").Value
Sheets("Archivage").Range("B" & ligne).Value = Sheets("NOTE_DE_FRAIS").Range("F4:G4").Value
Sheets("Archivage").Range("C" & ligne).Value = Sheets("NOTE_DE_FRAIS").Range("D9:E9").Value
Sheets("Archivage").Range("D" & ligne).Value = Sheets("NOTE_DE_FRAIS").Range("D6:E6").Value
Sheets("Archivage").Range("E" & ligne).Value = Sheets("NOTE_DE_FRAIS").Range("D7:E7").Value
Sheets("Archivage").Range("F" & ligne).Value = Sheets("NOTE_DE_FRAIS").Range("D8:E8").Value
Sheets("Archivage").Range("G" & ligne).Value = Sheets("NOTE_DE_FRAIS").Range("H8:J8").Value
Sheets("Archivage").Range("H" & ligne).Value = Sheets("NOTE_DE_FRAIS").Range("H9:J9").Value
Sheets("Archivage").Range("I" & ligne).Value = Sheets("NOTE_DE_FRAIS").Range("C45").Value
Sheets("Archivage").Range("J" & ligne).Value = Sheets("NOTE_DE_FRAIS").Range("D45").Value
Sheets("Archivage").Range("K" & ligne).Value = Sheets("NOTE_DE_FRAIS").Range("E45").Value
Sheets("Archivage").Range("L" & ligne).Value = Sheets("NOTE_DE_FRAIS").Range("F45").Value
Sheets("Archivage").Range("M" & ligne).Value = Sheets("NOTE_DE_FRAIS").Range("G45").Value
Sheets("Archivage").Range("N" & ligne).Value = Sheets("NOTE_DE_FRAIS").Range("H45").Value
Sheets("Archivage").Range("O" & ligne).Value = Sheets("NOTE_DE_FRAIS").Range("I45").Value
Sheets("Archivage").Range("P" & ligne).Value = Sheets("NOTE_DE_FRAIS").Range("J45").Value
Sheets("Archivage").Range("Q" & ligne).Value = Sheets("NOTE_DE_FRAIS").Range("K45").Value
Sheets("Archivage").Range("R" & ligne).Value = Sheets("NOTE_DE_FRAIS").Range("L45").Value
Sheets("Archivage").Range("S" & ligne).Value = Sheets("NOTE_DE_FRAIS").Range("B51:C51").Value
Sheets("Archivage").Range("T" & ligne).Value = Sheets("NOTE_DE_FRAIS").Range("D51:F51").Value
Sheets("Archivage").Range("U" & ligne).Value = Sheets("NOTE_DE_FRAIS").Range("G51:H51").Value
Sheets("Archivage").Range("V" & ligne).Value = Sheets("NOTE_DE_FRAIS").Range("I51:J51").Value
Sheets("Archivage").Range("W" & ligne).Value = Sheets("NOTE_DE_FRAIS").Range("K51:L51").Value
Sheets("Archivage").Range("X" & ligne).Value = Sheets("NOTE_DE_FRAIS").Range("L47").Value
'ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True, _
'IgnorePrintAreas:=False
Sheets("NOTE_DE_FRAIS").Range("D6:E9").ClearContents
Sheets("NOTE_DE_FRAIS").Range("H7:J9").ClearContents
Sheets("NOTE_DE_FRAIS").Range("C14:L44").ClearContents
Sheets("NOTE_DE_FRAIS").Range("B51:L51").ClearContents
Sheets("NOTE_DE_FRAIS").Range("H6").Value = Sheets("NOTE_DE_FRAIS").Range("H6").Value + 1
'ActiveWorkbook.Save
MsgBox ("Sauvgarde et impression terminer")
End Sub
Sub Enregistrement_PDF() ChDir "C:\Users\MOUSTAHSSIN\Desktop\Note de frais"
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
"C:\Users\MOUSTAHSSIN\Desktop\Note de frais\Application note de frais.pdf", _
Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas _
:=False, OpenAfterPublish:=False
End Sub
Bonjour,
J'avoue que je ne comprends pas la demande ...
ric