Macro pour enregistrer un excel en pdf

Bonjour,
J'ai créé un excel qui me fait un joli bon de commande et facture à partir d'une base de données.
Je voudrais créer une macro qui crée un dossier avec le numéro de commande (qui figure dans une des cases de mon fichier excel dans lequel il mettra une copie de l'onglet BDC et une copie de l'onglet facture en pdf avec ce fameux numéro de commande dans le nom du fichier.
J'ai essayé tout bêtement en faisant enregistrer une macro mais ça ne marche pas car il met le numéro de commande "en dur" dans la macro.
Voici ce que ça donne :

Sub enregistrer_en_pdf()
'
' enregistrer_en_pdf Macro
'

'
Sheets("BDC").Select
Range("F7").Select
Selection.Copy
Application.CutCopyMode = False
ActiveCell.FormulaR1C1 = "111106-0101a"
ChDir "C:\Users\Uer\Dropbox\Factures\111106-0101a"
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
"C:\Users\Uer\Dropbox\Factures\111106-0101a\111106-0101a.pdf", Quality:= _
xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, _
OpenAfterPublish:=True
Sheets("Facture").Select
ActiveWindow.ScrollRow = 31
ActiveWindow.ScrollRow = 30
ActiveWindow.ScrollRow = 28
ActiveWindow.ScrollRow = 22
ActiveWindow.ScrollRow = 16
ActiveWindow.ScrollRow = 13
ActiveWindow.ScrollRow = 8
ActiveWindow.ScrollRow = 6
ActiveWindow.ScrollRow = 5
ActiveWindow.ScrollRow = 3
ActiveWindow.ScrollRow = 2
ActiveWindow.ScrollRow = 1
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
"C:\Users\Uer\Dropbox\Factures\111106-0101a\Facture 111106-0101a.pdf", Quality _
:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, _
OpenAfterPublish:=True
End Sub


Bref autant dire que ça ne marche pas du tout. Est-ce qu'il existe un code pour ça?
Merci d'avance pour votre aide!

Alix