XL 2016 Aux experts VBA ; macro fonctionne sur un Pc mais pas sur un autre (excel 2016)

dindin

XLDnaute Occasionnel
Bonjour
j'utilise ce code pour convertir un onglet d'un classeur en PDF et l'enregistrer dans le même classeur que le fichier mère.
sur mon ordi perso il fonctionne très bien.

VB:
Sub pdf_TR()
Dim fName As String
With Worksheets("Facture_TR")
    fName = .Range("E9").Value & " _ " & .Range("B15").Value
End With
'ChDir "H:\pol\dossiers partagés\4 AS et communication\4 AS\Applications\PS"
'récuperer le chemein du dossier source
ChDir ThisWorkbook.Path


'où Path_name récupère le chemin du dossier où est enregistré le fichier.
'ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
'"H:\pol\dossiers partagés\4 AS et communication\4 AS\Applications\PS\" & fName, Quality:= _
'xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, _
'OpenAfterPublish:=False


'enregistrer le pdf dans le même dossier que le fichier source
[CODE]ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _

ThisWorkbook.Path & "\" & fName, Quality:= _

xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, _

OpenAfterPublish:=False
'afficher message à la fin d'enregistrement du PDF
MsgBox ("Le permis " & fName & " a été bien enregistré en PDF dans : " & ThisWorkbook.Path & vbLf & "Vous pouvez joindre ce fichier par mail.")
'enregistrer le classeur
ActiveWorkbook.Save

End Sub[/CODE]

dès que je lance la même marco sur un autre PC (qui contient la même version d'excel 2016) il me sort "Erreur d'automation") et bloque sur cette partie de code.
Code:
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _

ThisWorkbook.Path & "\" & fName, Quality:= _

xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, _

OpenAfterPublish:=False
j'aurai besoin de votre aide
 

Discussions similaires

Statistiques des forums

Discussions
311 725
Messages
2 081 941
Membres
101 848
dernier inscrit
Djigbenou