Microsoft 365 Macro PDF et envoie mail Windows - bug sur Mac

[sergiofox]

Bonjour le forum,
J'ai une macro qui transforme mon fichier en pdf et envoie le courriel qui fonctionne super bien sur mon PC windows à la maison, pour le taf j'utilise un macbook pro, quand je demande l’exécution de la macro, celle-ci me met un code erreur.

J'ai cherché sur différents forum, mais je ne trouve pas de réponse à mon problème et je fais donc appel à vous pour un petit coup de pouce.
Merci d'avance pour votre aide.

la macro est celle-ci :

Sub Mail()
Dim FileExtStr As String
Dim FileFormatNum As Long
Dim Sourcewb As Workbook
Dim destwb As Workbook
Dim TempFilePath As String
Dim TempFileName As String
Dim OutApp As Object
Dim OutMail As Object
Dim S As Shape
Dim sNomFic As String, sRep As String, WshShell As Object


With Application
    .ScreenUpdating = False
    .EnableEvents = False
End With

' Créer une instance Windows Script pour retrouver le chemin du bureau
Set WshShell = CreateObject("WScript.Shell")
sRep = WshShell.SpecialFolders("Desktop")
Set WshShell = Nothing
' Définit le nom du fichier à enregistrer
sNomFic = ".pdf"
' Enregistrer la feuille en PDF
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=sRep & "\" & sNomFic, _
Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, _
OpenAfterPublish:=False

Set OutApp = CreateObject("outlook.application")
Set OutMail = OutApp.CreateItem(0)
    With OutMail
        .To = ""
        .Cc = ""
        .Attachments.Add (sRep & "\" & sNomFic)
        .Subject = ""
        .Display
    End With
    
With Application
    .ScreenUpdating = True
    .EnableEvents = True
End With
Kill (sRep & "\" & sNomFic)
End Sub

Le code erreur
qui apparait

Et la ligne qui se bloque

 

[kiki29]

Salut, perso j'irais voir sur le site de Ron de Bruin

 

[sergiofox]

Salut, perso j'irais voir sur le site de Ron de Bruin

Merci pour ta réponse, malheureusement je ne pratique pas la langue de Shakespeare et j'avoue ne pas trop comprendre les explications données

 

[kiki29]

Re, comme je dis toujours tu te prives de 95% des ressources qui sont en Anglais.
Pas de bras ... pas de chocolat.

 

[sergiofox]

Re, comme je dis toujours tu te prives de 95% des ressources qui sont en Anglais.
Pas de bras ... pas de chocolat.

J'imagine effectivement que nous devons perdre énormément de choses, mais bon c'est une réalité que je ne pourrais changer actuellement

 

[kiki29]

Re, un pis-aller ?

 

[sergiofox]

Re, un pis-aller ?

Effectivement Google traduction est un réflexe quotidien en ce qui me concerne mais je dois bien avouer que malgré ses qualités tout n’est pas toujours traduit de manière claire quand tu est dans du langage technique comme excel, mais à force de perceverance et d‘essais je pourrai peut-être trouvez la solution si personne ne me mâche le travail