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

Oudler · 21 Octobre 2021

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 · 22 Octobre 2021

Bonjour Oudler

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

@+

Oudler · 22 Octobre 2021

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

Compte Supprimé 979 · 22 Octobre 2021

Bonjour,

Avec votre code

VB:

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 · 22 Octobre 2021

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 · 22 Octobre 2021

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 · 22 Octobre 2021

Bonsoir,

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

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

Oudler

XLDnaute Nouveau

Compte Supprimé 979

Guest

Oudler

XLDnaute Nouveau

Pièces jointes

Compte Supprimé 979

Guest

Oudler

XLDnaute Nouveau

Oudler

XLDnaute Nouveau

Compte Supprimé 979

Guest

Discussions similaires