Pb pour enregistrer un fichier PDF

Bonjour à tous,

J'avais une super macro qui fonctionnait super bien avec mon Excel 2010.

Mais j'ai changé de PC et donc de version Excel, c'est une 2016.

Depuis mon fichier m'indique une erreur d'exécution '1004', voir capture en pièce jointe.

Le mode débogage met en surbrillance cette ligne :

'Enregistrer en fichier PDF

MsgBox xFolder

xSht.ExportAsFixedFormat Type:=xlTypePDF, FileName:=xFolder, Quality:=xlQualityStandard

Est-ce que quelqu'un aurait une piste pour mon problème ?

Merci d’avance de votre retour.

Je reste à votre disposition pour d'éventuelles informations complémentaires.

Bonjour

Tu devrais joindre ton fichier complet en le rendant anonyme si besoin...

Bye !

Bonjour,

A moins que ton xFolder ne contienne pas le nom et le chemin complet de ton fichier, difficile à dire comme ça.

Il faut également que ton chemin existe bien entendu

A+

gmb a écrit :

Bonjour

Tu devrais joindre ton fichier complet en le rendant anonyme si besoin...

Bye !

Bonjour à vous,

Désolé pour cette réponse tardive.

Pas facile de rendre cela anonyme, il y a tous les chemins.

Mais voici le fichier.

BrunoM45 a écrit :

Bonjour,

A moins que ton xFolder ne contienne pas le nom et le chemin complet de ton fichier, difficile à dire comme ça.

Il faut également que ton chemin existe bien entendu

A+

Bonjour,

J'y avais même pas pensé.

Mais après une petite vérification, tout est OK.

Bonjour à tous,

J'espère qu'il y a une solution à mon problème.

Bonjour,

Tu peux essayer de mettre ton chemin ainsi que le nom de ton fichier dans une variable

Et tester ton chemin, mais normalement ton code doit fonctionner

Sub PDF()
  Dim sPath As String, sFic As String
  sPath = "C:\Users\bmetivier\OneDrive\OneDrive - BRILLOUET\Dossier Qualité 2018 - 2019\PDF\"
  ' Vérifier la terminaison du chemin d'accès
  If Right(sPath, 1) <> "\" Then sPath = sPath & "\"
  ' Vérifier l'existence du chemin d'accès
  If Dir(sPath, vbDirectory) = "" Then
    MsgBox "Impossible de trouver le chemin :" & vbCr _
    & sPath, vbCritical, "OUPS ..."
    Exit Sub
  End If
  sFic = "Fiche non conformité V4.5 - Brillouet.pdf"
  '
  ThisWorkbook.Sheets("Fiche").ExportAsFixedFormat Type:=xlTypePDF, FileName:=sPath & sFic, _
        Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=False
End Sub

A+

C'est résolu, merci à tous pour vos retours.

Toujours aussi efficace ce forum.