Fonction Enregister en pdf excel différent sur Dropbox

Salut, concernant le Mac voir ici les pbs posés par le PDF.

Bonjour à tous et à ceux qui cherchent désespérément à enregistrer sur Dropbox leurs feuilles Excel en PDF et qu'elles soient exploitables quelques soit l'ordinateur. C'est une histoire de chemin et d'username... Un petit code testé sur Excel 2019-W10 mais qui ne semble pas fonctionner sur Excel 2007-W7. Si quelqu'un à une solution pour cette configuration merci de me le faire savoir !

Sub EnregistrerPDF()
'déclaration des variables
Dim Chemin As String
Dim Utilisateur As String

'accélération du code
----------------------------
With Application
.Application.ScreenUpdating = False
.Application.Calculation = xlCalculationManual
.EnableEvents = False
End With

On Error GoTo 1
NomUtilisateur = Environ("username") 'nom utilisateur de l'ordinateur
Chemin = "C:\Users\" & NomUtilisateur & "\Dropbox\TonDossier\TonSousDossier\etc\" 'chemin

'enregistrement format PDF.
'Range("I5").Value de la feuille active = le nom que tu veux donner à ton fichier
'dans la cellule I5 par exemple
'-----------------------------------------------------------------

ActiveSheet.ExportAsFixedFormat Type:=x1TypePDF, Filename:= _
Chemin & Range("I5").Value & ".pdf", Quality:= _
x1QualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, _
OpenAfterPublish:=True'pour voir le PDF False pour enregistrer sans voir

1

'fin acceleration du code
With Application
.EnableEvents = True
.Application.Calculation = xlCalculationAutomatic
.Application.ScreenUpdating = True
End With

End Sub
---------------------------------------------------------
'Ici pour connaître le nom de ton ordinateur
Public Function NomUtilisateur()
NomUtilisateur = Environ("username")
MsgBox NomUtilisateur
End Function
--------------------------------------------------------
Bisous à tous ceux qui galère