Erreur lors d'une exportation d'une feuille Excel en PDF

Bonjour,

Lorsque je souhaite exécuter le code ci-dessous, la création du dossier passe sans problème ainsi qu'une grosse partie du code sauf au moment ou il faut exporter, mon fichier ne veut pas sortir.

Merci de votre aide...

Sub Creation_repertoire()
Dim c
On Error Resume Next
MkDir "D:\"
For Each c In Selection
    MkDir "D:\" + Range("L26") & c.Value

Next

'Déclaration des variables
    Dim NomDossier As String
    Dim CheminDossier As String
    On Error GoTo 1
    'Nom de dossier
     NomDossier = Range("L26")
     CheminDossier = "D:\" & NomDossier & "\"

    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
    CheminDossier & "DossierServ" & Range("L26").Value & ".pdf", quality:= _
    xlQualityStandard, includedocproperties:=True, ignoreprintareas:=False, _
    from:=1, to:=1, openafterpublish:=False

MsgBox " Dossier virtuel créé 4 ok "

1
End Sub

Salut

Pour moi, il manque un anti slash

"CheminDossier & "DossierServ\" & Range("L26").Value"

A+

Non ça na rien changé...

Cette macro fonctionne sur d'autres classeurs, mais pas sur le classeur que je souhaite, à croire qu'elle veuille me faire chier

Bonjour,

Quel est ton message d'erreur ?

Que contiennent : Range("L26") & c.Value ?

A+

Bonjour,

Je n'ai aucun message d'erreur, range L26 contient une description et le problème ne vient pas de la création du dossier mais sur l'export.

La création du dossier ce fais bien.

Re,

Mets un point d'arrêt (F9) sur la ligne qui doit créer le PDF

Lorsque le code est arrêté, saisi dans la fenêtre d'exécution :

Debug.Print CheminDossier & "DossierServ" & Range("L26").Value

Et dit nous ce que ça donne

Voilà le résultat:

" L'identificateur sous le curseur n'est pas reconnu " et " Debug.Print CheminDossier & "DossierServ" & Range("L26").Value

D:\\DossierServ"

Re,

Et bien voilà, tu as ta réponse

D:\\DossierServ

Edit : a ça a changé depuis 30s

Le fichier que tu veux enregistrer, c'est bien "DossierServC95-PRCL50750.pdf" !?

A+

Même après modification:

Debug.Print CheminDossier & "DossierServ" & Range("L26").Value

D:\test\C95-PRCL50750\DossierServC95-PRCL50750

Re,

Essaye de passer par une variable

  Dim sPathFic As String
  sPathFic = CheminDossier & "DossierServ" & Range("L26").Value & ".pdf"

  ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=sPathFic, _
    Quality:=xlQualityStandard, includedocproperties:=True, ignoreprintareas:=False, _
    from:=1, to:=1, openafterpublish:=False

Et Debug.Print sPathFic

Résultat:

DossierServC95-PRCL50750.pdf

Re,

Si Debug.Print sPathFic te donne : DossierServC95-PRCL50750.pdf

Il te manque bien le chemin d'accès dans lequel enregistrer le fichier

Tu devrais avoir un truc du style : D:\MonDossier\DossierServC95-PRCL50750.pdf

Pour moi cela s'arrêtera là, j'ai l'impression d'avoir un dialogue de sourd

A+

Même en mettant le chemin ça change rien, mon script ( de base ) fonctionne sur un autre classeur mais pas sur celui ou j'ai besoin