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

Oudler

XLDnaute Nouveau
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
 

BrunoM45

XLDnaute Barbatruc
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

@+
 

Discussions similaires

Statistiques des forums

Discussions
302 236
Messages
2 001 688
Membres
215 256
dernier inscrit
Adso