XL 2016 Erreur automation l'objet invoqué s'est déconnecté de ses clients

[Oudler]

Bonjour

Depuis quelques jours, une macro qui enregistre 2 onglets d'un classeur en pdf plante au niveau de la commande ActiveSheet.ExportAsFixedFormat type:=xlTypePDF.:

Private Sub convoc_Click()
' impresssion pdf de la convocation

Dim cla1, ongj As String
Dim lieu, chemin, ori As String

If Left(ActiveSheet.Name, 4) <> "jour" Then
MsgBox "Vous n'êtes pas dans une journée de compétition"
Exit Sub
Else
ongj = ActiveSheet.Name
End If

cla1 = Left(ActiveWorkbook.Name, Len(ActiveWorkbook.Name) - 4)
lieu = ActiveSheet.Cells(6, 3).Value

chemin = ActiveWorkbook.Path & "\" & cla1 & " - convocation J " & Right(ongj, 1) & " - " & lieu & ".pdf"

ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=chemin, _
Quality:=xlQualityStandard, _
IncludeDocProperties:=True, _
IgnorePrintAreas:=False, _
OpenAfterPublish:=True
End Sub

j'ai essayé plusieurs chemins et plusieurs nom mais j'ai toujours une erreur d'exécution '-2147417848 (80010108).

Si quelqu'un pouvait m'aider

 

[Compte Supprimé 979]

Bonjour Oudler

Peut-être un problème de fichier corrompu 🤔
Avez-vous essayé le code dans un autre classeur neuf ?

@+

 

[Oudler]

j'ai créé un nouveau fichier avec la macro simplifiée.
J'ai le même défaut.

 

[Compte Supprimé 979]

Bonjour,

Avec votre code

Sub convoc_Click()
  ' impresssion pdf de la convocation
  Dim chemin As String
  chemin = ActiveWorkbook.Path & "\" & "test.pdf"
  ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=chemin, _
    Quality:=xlQualityStandard, IncludeDocProperties:=True, _
    IgnorePrintAreas:=False, OpenAfterPublish:=True
End Sub

Désolé, mais pas de problème de mon côté 🤔
Essayez en supprimant "Quality:=xlQualityStandard" il me semble que ça peut poser problème parfois

@+

 

[Oudler]

Bonjour

Toujours le problème sans le "Quality".

J'ai le défaut sur mon pc perso en Office Pro Plus 2016, mais pas sur mon pc au travail qui est en office famille et petite entreprise 2016.

très surprenant

 

[Oudler]

Problème à moitié résolu:
J'ai à priori 2 Office 2016 d'installés, un avec lequel la macro fonctionne et un qui me plante mes macros.
Je peux retravailler sans connaitre le pourquoi du comment.

 

[Compte Supprimé 979]

Bonsoir,

Peut-être lié à un driver d'imprimante 🤔