Enregistrement Feuille Excel avec CommandButton

Bonjour je suis coincé sur le codage je veux enregistrer une feuille d'Excel en format .xlsm et l'enregistrer dans un format .PDF dans un dossier qui se trouve "C:\Users\Corps-Renard_J\V.L.R\Facture\Bon de livraison", et a chaque fois que je lance l'enregistrement j'ai un message d'erreur '1004' erreurs définies par l'application ou par l'objet et il me surligne de la ligne 11 (Active Sheet...) a la ligne 13 (from: =1, ...) Merci de l'aide

Private Sub CommandButton1_Click()
info1 = Sheets("Nouvel facture").Range("O3")
info2 = Sheets("Nouvel facture").Range("P3")
nom = info1 & "-" & info2 & "-" & ".pdf"
ThisWorkbook.Save
ThisWorkbook.SaveAs (nom)
ThisWorkbook.Activate
If MsgBox("Avez vous valider votre facture afin de generer le numero automatique?", vbYesNo, _
"Enregistrement") = vbYes Then
ChDir "C:\Users\Corps-Renard_J\V.L.R\Facture\Bon de livraison"
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Quality:= _
xlQualityStandard, incluseDocproperties:=True, IgnorePrintAreas:=False, _
from:=1, to:=1, openfterpublish:=True
End If

End Sub

Bonsoir

Une réponse : pas testé ton code

Dans les paramètres de ExportAsFixedFormat il faut openafterpublish:=True

Tu as oublié le a dans la désignation de ce paramètre

Il doit manquer aussi le paramètre filename

Le paramètre includeDocproperties est mal orthographié

ActiveSheet.ExportAsFixedFormat filename:=nom, Type:=xlTypePDF, Quality:= _
xlQualityStandard, includeDocproperties:=True, IgnorePrintAreas:=False, _
from:=1, to:=1, openafterpublish:=True

Merci Banzai64 ça fonctionne

Petite question ici j'ai changé le nom du pdf final et ici j'ai un message d'erreur d'exécution "-2147018887 (80071779)': Document non enregistré. et il me surligne de la ligne 11 (Active Sheet...) a la ligne 13 (from: =1, ...)

Private Sub CommandButton1_Click()
info1 = Sheets("Nouvel facture").Range("O3")
nom = info1 & ".pdf"
ThisWorkbook.Save
ThisWorkbook.SaveAs (nom)
ThisWorkbook.Activate
If MsgBox("Avez vous valider votre facture afin de generer le numero automatique?", vbYesNo, _
"Enregistrement") = vbYes Then
ChDir "C:\Users\Corps-Renard_J\V.L.R\Facture\Bon de livraison"
ActiveSheet.ExportAsFixedFormat filename:=nom, Type:=xlTypePDF, Quality:= _
xlQualityStandard, includeDocproperties:=True, IgnorePrintAreas:=False, _
from:=1, to:=1, openafterpublish:=True
End If

End Sub

Bonsoir

A première vue je ne vois pas ce qui peut clocher maintenant

Un fichier avec le même nom existe ?

Dans la cellule O3 il y a quoi ?

Ton fichier en cause serait utile

voilà vous devez cliquer sur l'onglet "nouvel facture" bouton "Enregistrement Facture" et le bouton "Bon de livraison"

ce qui est bizarre, c'est que je viens de remarquer c'est que ça enregistre dans les "Documents" et en même temps dans "Bon de livraison" et pour supprimer le document, dans "Bon de livraison" on sait le faire que dans "Document" il faut fermer excel pour le supprimer, moi je veux juste que ça s'enregistre dans "Bon de livraison"

Bonjour

Pas de message d'erreur

Teste cette macro

Private Sub CommandButton1_Click()
Dim Chemin As String, Nom As String

  If MsgBox("Avez vous valider votre facture afin de generer le numero automatique?", vbYesNo, "Enregistrement") = vbYes Then
     Chemin = "C:\Users\Corps-Renard_J\V.L.R\Facture\Bon de livraison\"
    Nom = Sheets("Nouvel facture").Range("C18") & ".pdf"
    ThisWorkbook.SaveCopyAs Filename:=Chemin & Sheets("Nouvel facture").Range("C18") & ".xlsm"
    ActiveSheet.ExportAsFixedFormat Filename:=Chemin & Nom, Type:=xlTypePDF, Quality:= _
                                    xlQualityStandard, includeDocproperties:=True, IgnorePrintAreas:=False, _
                                    from:=1, to:=1, openafterpublish:=True
  End If
End Sub

Génial c'est parfait merci beaucoup