esthetique
XLDnaute Nouveau
Bonjour
J'ai créer une macro pour enregistrer le fichier sous forme pdf. Pouvez-vous s'il vous paît m'aider à résoudre ce problème...
Merci
Sub enregistrer()
Dim LePath As String, LeNom As String
ActiveSheet.Copy
LePath = "C:\Users\Documents\Historique\"
LeNom = Format([H15], "yyyymmddhhmm") & [B16] & ".pdf"
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
LeRep & LaDate & "_" & LeParcours & ".pdf", Quality:= _
xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, _
From:=1, To:=1, OpenAfterPublish:=False
MsgBox "Votre facture est prête pour l'impression !"
End Sub
J'ai créer une macro pour enregistrer le fichier sous forme pdf. Pouvez-vous s'il vous paît m'aider à résoudre ce problème...
Merci
Sub enregistrer()
Dim LePath As String, LeNom As String
ActiveSheet.Copy
LePath = "C:\Users\Documents\Historique\"
LeNom = Format([H15], "yyyymmddhhmm") & [B16] & ".pdf"
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
LeRep & LaDate & "_" & LeParcours & ".pdf", Quality:= _
xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, _
From:=1, To:=1, OpenAfterPublish:=False
MsgBox "Votre facture est prête pour l'impression !"
End Sub