Enregistrer feuille en pdf

bonjour le forum.

Lors de l'enregistrement d'une feuille au format pdf vers un dossier sur bureau ,

je n 'arrive pas à mentionner dans l’extension du fichier les valeurs des cellules "C2","C3"

pourriez vous me dépatouiller ! , je planche sur ça depuis un bout de temps sans succès.

par avance merci .

Bonjour,

Teste avec ceci

Public Sub Create_PDF()
  Dim nomdossier As Variant
  Dim dossier As Variant
  Dim filename As String
  nomdossier = Sheets("BDC").Range("c2") & "-" & Sheets("BDC").Range("c3") & ".PDF"
  dossier = "C:\Users\papa\Desktop\sauvegarde commandes\"
  ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, filename:= _
  dossier & nomdossier, quality:= _
  xlQualityStandard, includedocproperties:=True, ignoreprintareas:=False, _
  From:=1, to:=1, openafterpublish:=False
End Sub

bonjour M12,

avant tout merci , mais ca bug a ce niveau ,

cdlt

Bonjour,

essaie ainsi (exemple) :

Public Sub Create_PDF()
Dim nomFichier As String, nomComplet As String
    With ActiveSheet
        nomFichier = Trim$("BDC_" & Replace(.Range("C2"), "/", "_") & Replace(.Range("C3"), "-", "_"))
        nomComplet = "C:\Users\papa\Desktop\sauvegarde commandes\" & nomFichier & ".pdf"
        .ExportAsFixedFormat _
                Type:=xlTypePDF, _
                filename:=nomComplet, _
                quality:=xlQualityStandard, _
                includedocproperties:=True, _
                ignoreprintareas:=False, _
                From:=1, _
                to:=1, _
                openafterpublish:=False
    End With
End Sub

bonjour jean Eric,

merci beaucoup , c'est parfait.

pourrais je encore abuser, et vous demander la méthode pour imprimer ce doc.Pdf automatiquement

ps: merci a M12

cdlt :

Bonjour le fil et le Forum,

ajoute après la ligne

openafterpublish:=False

le code

.PrintOut

Re

Bonjour sequoyah

Merci infiniment.

Tout fonctionne c est génial

Merci encore à tous

Bien cordialement