Macro enregistrer en PDF

Bonjour,

J'ai aussi un problème d'erreur 5.

La macro tourne pour les 6 premiers onglets sur 29 qu'elle enregistre en PDF puis bug, impossible de comprendre pourquoi ?!

Si vous avez une idée pour m'aider je suis preneur.


Sub Enregistrer_PDF()
'Chemin contiendra le chemin de la sélection et
'choix prendra la valeur 0 pour rechercher uniquement les dossiers et
'n'importe quel autre valeur (de 1 à 255) pour rechercher un dossier ou un fichier.
'choix repertoire
Dim choix As Byte
choix = 0
Chemin = ChoixDossierFichier(choix)
If Chemin <> "" Then
For X = 1 To Worksheets.Count
NO = Worksheets(X).Name
Worksheets(NO).ExportAsFixedFormat Type:=xlTypePDF, Filename:=Chemin & "\" & NO & " Commission " & Format(Date, "yyyy-mm") & ".pdf", _
Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=False
Next X
End If
End Sub

'code trouve sur internet pour selection repertoire ou/et fichier
Function ChoixDossierFichier(SelType As Byte) As String
Dim objShell As Object, objFolder As Object
Dim Chemin As String, Msg As String
Dim FlagChoix As Long, NbPoint As Integer

If SelType = 0 Then
FlagChoix = &H1
Msg = "Selectionner un dossier :"
Else
FlagChoix = &H4000
Msg = "Selectionner un fichier :"
End If

Set objShell = CreateObject("Shell.Application")
' &h1
' 1er paramètre toujours 0 (zéro). Il représente le handle de la fenêtre parent
' 2ème paramètre Titre de la boite, en dessous de la barre de titre
' 3ème paramètre options de BrowseForFolder
' 4ème paramètre Facultatif. Répertoire de début d'exploration
On Error Resume Next
Set objFolder = objShell.BrowseForFolder(&H0&, Msg, FlagChoix)
'Si l 'objet retourné est valide, on teste son contenu (item.title)
'Si on a sélectionné la racine d'une partition, il se compose du nom de la partition,
' suivi de sa lettre et ":" entre parenthèses NbPoint = InStr(objFolder.Title, ":")
If NbPoint = 0 Then
'Sinon, il se compose du nom du dossier uniquement, sans le chemin précédent
'On récupère ce chemin à l'aide des propriété et méthode ParentFolder.ParseName
Chemin = objFolder.ParentFolder.ParseName(objFolder.Title).Path & ""
Else
'si racine on récupère la lettre du lecteur et les 2 points
Chemin = Mid(objFolder.Title, NbPoint - 1, 2)
End If
ChoixDossierFichier = Chemin
End Function


Merci d'avance

Bonsoir,

Moi j'aurais besoin de la même base, sauf qu'il faudrait que cela ne concerne que la feuille active et non les autres... Comment faire?