SwimCoachNico79
XLDnaute Occasionnel
Bonsoir à tous,
J'ai créer une macro qui me permet d'enregistrer un onglet au format .pdf avec le code ci-dessous :
Private Sub CommandButton2_Click()
Sheets("Feuil2").ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
"C:\Users\XXX\Desktop\Coût action N°.pdf", Quality:= _
xlQualityStandard, IncludeDocProperties:=False, IgnorePrintAreas:=False, _
OpenAfterPublish:=False
End Sub
Par contre, j'aimerai remplacer \Coût action N° par le contenu de la cellule B9.
J'ai essayé d'appliquer le même principe que pour un fichier .xlsx ("C:\Users\XXX\Desktop\" & Range("B9") & ".xlsx" mais il m'indique le message suivant :
Erreur d’exécution '-2147024773 (8007007b)':
Document non enregistré.
Je suis sous Excel 2010.
Quelques aurait une idée ?
Merci d'avance
J'ai créer une macro qui me permet d'enregistrer un onglet au format .pdf avec le code ci-dessous :
Private Sub CommandButton2_Click()
Sheets("Feuil2").ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
"C:\Users\XXX\Desktop\Coût action N°.pdf", Quality:= _
xlQualityStandard, IncludeDocProperties:=False, IgnorePrintAreas:=False, _
OpenAfterPublish:=False
End Sub
Par contre, j'aimerai remplacer \Coût action N° par le contenu de la cellule B9.
J'ai essayé d'appliquer le même principe que pour un fichier .xlsx ("C:\Users\XXX\Desktop\" & Range("B9") & ".xlsx" mais il m'indique le message suivant :
Erreur d’exécution '-2147024773 (8007007b)':
Document non enregistré.
Je suis sous Excel 2010.
Quelques aurait une idée ?
Merci d'avance