j ai fait le code ci dessous pour le 2 (sauvegarder au format PDF)
'Déclarion des variables
Dim NomDossier As String
Dim CheminDossier As String
'Nom de dossier
NomDossier = Application.InputBox("Dossier Enregistrement :", "Dossier")
CheminDossier = "Z:\Documentation generale\Note de frais\" & NomDossier & "\"
If NomDossier = "" Then Exit Sub
'Enregistrement au format PDF
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
CheminDossier & "Formulaire_" & Range("D4,I4").Value & ".pdf", quality:= _
xlQualityStandard, includedocproperties:=True, ignoreprintarea:=False, _
from:=1, to:=1, openafterpublish:=False
mais la partie enregistrement au format PDF bug...;j ai bien une petite fenetre qui me demande le nom du dossier mais apres j ai une erreur debogage...je suis perdue !