Code VBA pour Boutons : Imprimer en PDF

[soupesse]

Bonjour

j'ai céer un bouton nomé : EDIT AS PDF , il marche tres bien lorsque je clic dessus il sauvgarde mon ficher à l'endroit voulu et en PDF
la Problematqiue = je veux qu' il le sauvegarde sou un Nom précis + N° de , ce N° se trouve dans une cellule dans la feuil
Merci m'aider à le réaliser
ci dessous mon Code :

Private Sub CommandButton2_Click()
Sheets("Feuil3").Select
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
"D:\Documents and Settings\oh\Bureau\PROJET\Projet Excel\HUB\DEMANDE EXPEDITION N° .pdf" _
, Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas _
:=False, From:=1, To:=1, OpenAfterPublish:=False
Sheets("Feuil3").Select

End Sub

 

[Paf]

Re : Code VBA pour Boutons : Imprimer en PDF

Bonjour,

a priori modifier comme suit:
"D:\Documents and Settings\oh\Bureau\PROJET\Projet Excel\HUB\DEMANDE EXPEDITION N°" & Worksheets("Feuille1").Range("B12").value & ".pdf"

Noms de la feuille et de la cellule à adapter !
A+

 

[soupesse]

Re : Code VBA pour Boutons : Imprimer en PDF

Bonjour
je viens d'ajouter ton CODE mais il me sort un débougage " l'indice n'appartient pas à la selection
merci quand même pour ta réponse rapide