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
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