MICROSOFT VISUAL BASIC EXCEL ERREUR 400
Bonjour à tous,
j'essaie d'archive une feuille excel mais en vain.
aider moi car lorsque je lance la macro voici le message que je reçois
"microsoft visual basic erreur 400"
Option Explicit
Sub enregistrer_onglet_en_pdf()
' enregistrer un onglet en PDF
Dim onglet As Worksheet
Dim nom_PDF As String
Dim chemin_PDF As String
' Identifier le nom du fichier PDF à créer
nom_PDF = "Nom PDF.pdf"
' Identifier chemin d'acces du PDF à créer
chemin_PDF = "C:\Utilisateur\MADESS\desktop\" & nom_PDF
' Identification onglet
Set onglet = Worksheets("jeu")
' Selectionner la feuille à enregistrer en PDF
onglet.Select
' Créer le PDF
ActiveSheet.ExportAsFixedFormat Type:=xltypePDF, Filename:=chemin_PDF, _
Quality:=xlQualityStandard, IncludeDocProperties:=True, _
IgnorePrintAreas:=False, OpenAfterPublish:=True
End Sub
j'essaie d'archive une feuille excel mais en vain.
aider moi car lorsque je lance la macro voici le message que je reçois
"microsoft visual basic erreur 400"
Option Explicit
Sub enregistrer_onglet_en_pdf()
' enregistrer un onglet en PDF
Dim onglet As Worksheet
Dim nom_PDF As String
Dim chemin_PDF As String
' Identifier le nom du fichier PDF à créer
nom_PDF = "Nom PDF.pdf"
' Identifier chemin d'acces du PDF à créer
chemin_PDF = "C:\Utilisateur\MADESS\desktop\" & nom_PDF
' Identification onglet
Set onglet = Worksheets("jeu")
' Selectionner la feuille à enregistrer en PDF
onglet.Select
' Créer le PDF
ActiveSheet.ExportAsFixedFormat Type:=xltypePDF, Filename:=chemin_PDF, _
Quality:=xlQualityStandard, IncludeDocProperties:=True, _
IgnorePrintAreas:=False, OpenAfterPublish:=True
End Sub
5 réponses
-
Contributeurbonjour, avant tout, deux choses à faire:
1) utiliser les balises de code quand tu partages du code: https://codes-sources.commentcamarche.net/faq/11288-les-balises-de-code
2) préciser à quelles ligne de code se produit l'erreur
